22条ASP初学者常用的代码1.获得系统时间:<%=now()%>2.取得来访用的IP:<%=request.serverVariables("remote_host")%>3.获得系统,浏览器版本:4.去除IE混动条:
本页10秒后自动关闭,请注意刷新页面9.随机背景音乐:<%randomize%>可以修改数字，限制调用个数，我这里是６０个．10.自动刷新本页面:11.ACCESS数据库连接:<%option explicitdim startime,endtime,conn,connstr,dbstartime=timer()更改数据库名字db="data/dvBBS5.mdb"Set conn = Server.CreateObject("ADODB.Connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)如果你的服务器采用较老版本Access驱动，请用下面连接方*connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)conn.Open connstrfunction CloseDatabaseConn.closeSet conn = NothingEnd Function%>12.SQL数据库连接:<%option explicitdim startime,endtime,conn,connstr,dbstartime=timer()connstr="driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs"Set conn = Server.CreateObject("ADODB.Connection")conn.Open connstrfunction CloseDatabaseConn.closeSet conn = NothingEnd Function%>13.用键盘打开网页代码:这里是Ctrl+Enter和Alt+S的代码 自己查下键盘的ASCII码再换就行14.让层不被控件复盖代码: ＃ 前面 ＃ 后面15.动网FLASH广告代码:16.VBS弹出窗口小代码:16.使用FSO修改文件特定内容的函数function FSOchange(filename,Target,String)Dim objFSO,objCountFile,FiletempDataSet objFSO = Server.CreateObject("Scripting.FileSystemObject")Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)FiletempData = objCountFile.ReadAllobjCountFile.CloseFiletempData=Replace(FiletempData,Target,String)Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)objCountFile.Write FiletempDataobjCountFile.CloseSet objCountFile=NothingSet objFSO = NothingEnd Function17.使用FSO读取文件内容的函数function FSOFileRead(filename)Dim objFSO,objCountFile,FiletempDataSet objFSO = Server.CreateObject("Scripting.FileSystemObject")Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)FSOFileRead = objCountFile.ReadAllobjCountFile.CloseSet objCountFile=NothingSet objFSO = NothingEnd Function18.使用FSO读取文件某一行的函数function FSOlinedit(filename,lineNum)if linenum < 1 then exit functiondim fso,f,temparr。