一些ASP初学者常用的代码

2022-07-15 80酷酷网 80kuku.com

　　初学

1.获得系统时间:
<%=now()%>
2.取得来访用的IP:
<%=request.serverVariables("remote_host")%>
3.获得系统,浏览器版本:
<script>
window.document.write("版本："+navigator.appName+navigator.appVersion+"browser.")
</script>
4.去除IE混动条:
<bodyscroll="no">
<body webSiteID = 6;window.onload=beginrefresh
file://-->
</script>
11.ACCESS数据库连接:
<%
optionexplicit
dimstartime,endtime,conn,connstr,db
startime=timer()
'更改数据库名字
db="data/dvBBS5.mdb"
Setconn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath(db)
conn.Openconnstr
functionCloseDatabase
Conn.close
Setconn=Nothing
EndFunction
%>
12.SQL数据库连接:
<%
optionexplicit
dimstartime,endtime,conn,connstr,db
startime=timer()
connstr="driver={SQLServer};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs"
Setconn=Server.CreateObject("ADODB.Connection")
conn.Openconnstr
functionCloseDatabase
Conn.close
Setconn=Nothing
EndFunction
%>
13.用键盘打开网页代码:
<scriptlanguage="javascript">
functionctlent(eventobject)
{
if((event.ctrlKey&&window.event.keyCode==13)||(event.altKey&&window.event.keyCode==83))
{
window.open('网址','','')
}
}
</script>　

这里是Ctrl+Enter和Alt+S的代码自己查下键盘的ASCII码再换就行
14.让层不被控件复盖代码:
<divz-Index:2><object***></object></div>＃前面
<divz-Index:1><object***></object></div>＃后面
<divid="Layer2"><divid="Layer1">15.动网FLASH广告代码:
<objectclassid="clsid27CDB6E-AE6D-11cf-96B8-444553540000"codebase=""width="468"height="60"><paramname=movievalue="images/yj16d.swf"><paramname=qualityvalue=high><embedsrc="images/dvbanner.swf"quality=highpluginspage="";;;type="application/x-shockwave-flash"width="468"height="60"></embed></object>
16.VBS弹出窗口小代码:
<scriptlanguage=vbscript>
msgbox"你还没有注册或登陆论坛","0","精品论坛"
location.href="login.asp"
</script>
16.使用FSO修改文件特定内容的函数
functionFSOchange(filename,Target,String)
DimobjFSO,objCountFile,FiletempData
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData=objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.WriteFiletempData
objCountFile.Close
SetobjCountFile=Nothing
SetobjFSO=Nothing
EndFunction
17.使用FSO读取文件内容的函数
functionFSOFileRead(filename)
DimobjFSO,objCountFile,FiletempData
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead=objCountFile.ReadAll