荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: nicq (NoName), 信区: Homepage
标  题: asp代码精华(九)
发信站: 荔园晨风BBS站 (Wed Apr 23 13:30:00 2003), 站内信件


怎样在asp中检测iis中设置的虚拟目录

ハケモテADSIソノメヤハ
オマヨ
ト譱エソエマツテ贏篋ヲト
ワオトハオマヨ」ャソ
ノメヤセルメサキエネ


マ獎ナヘィケヌーテ豬
トシククsdiオトタウ
フ」ャエメカヤadsiシシ
ハソ&#653
96;トケヲトワモミメサ
カィチヒス筌ャマツテ贇
ルス鯔ワメサクミケリ
adsiシシ&#654
18;isトソツシキホシ
ハャユ篋ウフアネス
マシ・」ャセヘイサ
カ獸鯔ワ&#65409
;ヒ。」

'*******************************************************************************
***
' エエスィメサクebServerオ
トミ鯑籠ソツシ
'
アリミ・ホハ」コVDir,
ホェエエスィミ鯑籠ソツ
シオトホ・曺キセカ」
サWNumberホ&#65
386;ユセオ羲ナ;VDnameミ鯑籠ソツ
シテ﨤ニ
'
オアエエスィウノケヲ
ハアキオサリ1」ャキ睫
セウ槢ナマ「イ「キオ
サリ0
'*******************************************************************************
***
' Dim name,webno,vpath,iscreate
' vpath="d:\myinfo\family"
' webno=1
' name="myfamily"
' iscreate=CreateWebVDir(vpath,webno,name)
' If iscreate=1 Then
'    Response.Write "ミ鯑籠ソツシ"&name&"エ
エスィウノケヲ,ホ・曺
キセカホェ"&vpath
' Else
'    Response.Write
"ミ鯑籠ソツシエエスィハ
ァーワ」ャヌ・キカィ
ト摠ヌキヤケワタ橳アノ昞
ンオ&
#65415;ツシサレ"&webno&"ユセオ飜
ヌキ贇レ!"
' End If


Function CreateWebVDir(VDir,WNumber,VDname)
On Error Resume Next
Dim ServerObj,VDirObj,VDirName
VDirName="vdir"
Set ServerObj = GetObject("IIS://"&oComputer&"/W3SVC/"&WNumber&"/ROOT")'
オテオスFtpServerオトヨソ
ツシカヤマ・

  ' スィチ「ミ鯑籠ソツシ
  Set VDirObj = ServerObj.Create("IIsWebVirtualDir", VDName)

    If (Err.Number <> 0) Then' &#65418;&#65415;&#65399;&#12539;
'Response.Write "&#65396;﨔&#12539;  &#65396;&#65396;&#65405;&#65384;
Web&#65424;鯑籠&#65407;&#65410;&#65404;&#65397;&#65412;ADSI&#65394;&#65433;
&#65431;&#65383;&#65392;&#65436;&#65379;&#65377;<br/>"
CreateWebVDir=0
Exit Function
    End If

  ' &#65413;葷&#65411;&#65424;鯑籠&#65407;&#65410;&#65404;
  VDirObj.Path = VDir
  VDirObj.AccessRead = True
  VDirObj.AccessWrite = False
  VDirObj.EnableDefaultDoc=True
  VDirObj.SetInfo

  ' &#65395;&#65417;&#65401;&#65382;&#65409;&#65419;&#65379;&#65377;
  Set VDirObj=Nothing
  Set ServerObj=Nothing
  CreateWebVDir=1
End Function


如何将数据库中的二进制流文件生成到硬盘上?

<%
dim conn, rs

set conn = server.createObject("adodb.connection")
conn.open "Provider=OraOLEDB.Oracle;Data Source=oracle.mydomain.com;User
ID=scott;PASSWORD=tiger;Persist Security Info=True"

set rs = conn.execute("SELECT blobcolumn FROM blobtable WHERE id = 7")

'Write it to the browser
response.binaryWrite rs.fields("blobcolumn").value

'Write it to disk
dim stream
set stream = server.createObject("adodb.stream")
stream.type = adTypeBinary
stream.open
stream.write(rs.fields("blobcolumn").value)
stream.saveToFile folderAndFileName, adSaveCreateOverWrite
stream.close
%>


順便說說這個有問題的代碼

JS判断输入日期的正确性
<script language=javascript>
function strDateTime(str){
var reg = /^(\d{1,4})(-|\/)(\d{1,2})\2(\d{1,2})$/;
var r = str.match(reg);
if(r==null)return false;
var d= new Date(r[1], r[3]-1,r[4]);
var newStr=d.getFullYear()+r[2]+(d.getMonth()+1)+r[2]+d.getDate()
return newStr==str
}
alert(strDateTime("2002-1-31"))
alert(strDateTime("2002-1-41"))
</script>

如果alert(strDateTime("2002-01-31"))
則判斷為非法
所以我是這樣寫的
function isDate(str){
        if (str.length==0)return true;
        var reg = /^(\d{4})(-|\/)(0?[1-9]|1[0-2])(-|\/)(0?[1-9]|[12][0-9]|3[01])
$/g;
        var r = reg.exec(str);
        if(r==null)return false;
        var d = new Date(r[1], r[3]-1,r[5]);
        var newStr=d.getFullYear()+r[2]+(d.getMonth()+1)+r[2]+d.getDate()
        var reg=/(\/|-)(0*)( *)([1-9])/g  //(容許空格﹐這個可取消)
        var t=s.value.replace(reg,'$1$4')
        if (newStr==t)return true;
        return false;
}


<!--定制你自己独特的IE滚动条 -->
<%

技巧1:将IE滚动条放到左边?

平时习惯了IE的滚动条出现在右边,要是突然跑到左边了,会不会吃一惊?怎么做?很简单
,把html代码最前边的<html>改为<html dir=rtl>,再看看你的网页,是不是变了,很有趣
吧?

技巧2:不要滚动条?

让竖条没有:
<body style='overflow:scroll;overflow-y:hidden'>
</body>
让横条没有:
<body style='overflow:scroll;overflow-x:hidden'>
</body>
两个都去掉?更简单了
<body scroll="no">
</body>

技巧3:彩色的滚动条

现在网上很流行彩色的滚动条,可以和自己主页的颜色搭配得更协调。那么这又是怎么作出
来的呢?
在文件的<head></head>标签里之间加上CSS定义:
<style>
body {scrollbar-3dlight-color:color;
scrollbar-highlight-color:color;
scrollbar-face-color:color;
scrollbar-arrow-color:color;
scrollbar-shadow-color:color;
scrollbar-darkshadow-color:color;
scrollbar-base-color:color;
scrollbar-track-color:color;
}</style>
再看看,是不是变了?不过这是在IE5.5里新出现的CSS属性,所以如果你用的是IE5,可能
还看不到
详细说明:
scrollbar-3dlight-color:color;设置或检索滚动条亮边框颜色
scrollbar-highlight-color:color;设置或检索滚动条3D界面的亮边颜色
scrollbar-face-color:color;设置或检索滚动条3D表面的颜色
scrollbar-arrow-color:color;设置或检索滚动条方向箭头的颜色。当
scrollbar-shadow-color:color;设置或检索滚动条3D界面的暗边颜色,
scrollbar-darkshadow-color:color;设置或检索滚动条暗边框颜色。
scrollbar-base-color:color;设置或检索滚动条基准颜色。其它界面颜色将据此自动调整

scrollbar-track-color:color;设置或检索滚动条的拖动区域颜色
其中color为你要设置的颜色代码,可以是16进制的,如#FF0000,也可以是以RGB表示的,
如rgb(255,0,255)。
%>
<!--打印相关
打印时不打印"打印"按钮,方法1
-->
<input type="button"
onclick="javascript:this.style.display=this.style.display=='none'?'':'none';if
(window.print != null) { window.print(); } else {alert('没有安装打印机'); }"
value="打印">
<!--打印时不打印"打印"按钮,方法2-->
<script>
window.onbeforeprint = new Function("document.all.pr.style.display='none'");
window.onafterprint = new Function("document.all.pr.style.display=''");
</script>
<body onprint="document.all.pr.display='none'">
这是一个示例文件<br/>
仅供参考!
<input type=button onclick="window.print()" value="打印该页" id=pr>
</body>
<!--引用CSS文件-->
<link rel="stylesheet" href="<%=application("wiseboyroot")%>/include/style.css">
<!--输入框宽度设置-->
<input type="text" value="<%=ordernum%>" name="ordernum" style="height:20px;
fontsize:2" maxlength=5 size=3>
<%
Function strLen(str)
'vb判断字符串的字节长度
                dim length,t,c,i
                length=len(str)
         if length>0 then
                t=length
                for i=1 to length
                  c=asc(mid(str,i,1))
                  if c<0 then
                         c=c+65536
                  end if
                  if c>255 then
                         t=t+1
                  end if
                next
                strLength=t
         else
                strLength=len(str)
         end if
End Function
%>
<form name=frm action="test1.asp" enctype="multipart/form-data" method="post">
<!--
<form name=frm action="test1.asp" method="post">
-->
<textarea name="content" cols="50" rows="20"><%=content%></textarea>
<input type="button" value="yes" onclick="checkdata()">
<input type="submit" value="yes">
</form>
<%
'upl最多可传递的字节数:大约12万
'form,post方法最多可传递的字节数:大约10万
'form,get方法最多可传递的字节数:大约776
Set upl = Server.CreateObject("SoftArtisans.FileUp")
content=upl.form("content")
'content=request("content")

'location.replace()连接到的页面中使用history.back()将不能返回到当前页面
%>
<!--自动延时-->
<script language="javascript">
//五秒钟后自动最小话的程序;
function automini()
{
setTimeout("mini()",5000)
}
function mini()
{
 min.Click()
}
</script>
<!--提交表单发送邮件-->
<FORM ACTION="mailto:mtscf@microsoft.com" METHOD=GET>
<INPUT NAME=subject TYPE=hidden VALUE="InetSDK User Feedback">
Enter comments about this site:<BR>
<TEXTAREA NAME=body COLS=40>
InetSDK: http://msdn.microsoft.com/workshop/
The InetSDK site is superlative!
</TEXTAREA>
<INPUT TYPE=submit VALUE="Send Feedback">
</FORM>
<%
message="test"
url="test.asp"
'页面三秒后自动刷新到其他页面
succeed(""&message&"<meta http-equiv=refresh content=3;url="&url&">")
function succeed(message)
%>
<ol><%=message%></ol>
<%
end function
%>

<!--释放页面缓存-->
HTM网页
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">
或者<META HTTP-EQUIV="expires" CONTENT="0">
<%
'ASP网页
  Response.Expires = -1
  Response.ExpiresAbsolute = Now() - 1
  Response.cachecontrol = "no-cache"
'一段美丽的字,好漂亮
  %>
<table style="FILTER:glow(color=a4b6d7)"><caption>这是一个测试</caption></table>


<%
'验证表单的提交源是否正确
if trim(Request.ServerVariables("http_referer"))<>"" then
        if instr(Request.ServerVariables("http_referer"),
""&Request.ServerVariables("server_name")&"") = 0 then
                error("<li>来源错误")
        end if
end if
'页面自动刷新时Request.ServerVariables("http_referer")为空。
%>

 -- (S-Term)Sorry, i'm not here

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.0.180]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店