转自: 
http://www.xbasp.net/Article_Show.asp?ArticleID=2704
作者Blog：http://blog.csdn.net/great_domino/

1.获得系统时间:

<%=now()%> 



2.取得来访用的IP:

<%=request.serverVariables("remote_host")%> 



3.获得系统,浏览器版本:

<script> 

window.document.write("版本："+navigator.appName+navigator.appVersion+" 
browser.") 

</script> 


4.去除IE混动条:

<body scroll="no"> 

<body style="overflow-y:hidden"> 


5.进入网站,跳出广告:

<script language="javascript"> 

<!-- 

<!-- 注意更改文件所在路径--> 

window.open('http://www.XXXXXX.com','','height=200,width=300,top=0,left=30'); 


// --> 

</script> 



6.随机数:

<%randomize%> 

<%=(int(rnd()*n)+1)%> 



N为可改变数

7.向上混动代码:

<marquee direction="up" scrolldelay="200" style="font-size: 
9pt; color: #FF0000; line-height: 150%; font-style:italic; font-weight:bold" 
scrollamount="2" width="206" height="207" bgcolor="#FFFF00">hhhhhhhhhhhhhhhhhhh</marquee> 

8.自动关闭网页:

<script LANGUAGE="javascript"> 

<!-- 

setTimeout('window.close();', 10000); //60秒后关闭 

// --> 

</script> 

<p align="center">本页10秒后自动关闭,请注意刷新页面</p> 


9.随机背景音乐:

<%randomize%> 

<bgsound src="mids/<%=(int(rnd()*60)+1)%>.mid" loop="-1"> 




可以修改数字，限制调用个数，我这里是６０个．

10.自动刷新本页面:

<script> 

<!-- 



var limit="0:10" 


 

if (document.images){ 

var parselimit=limit.split(":") 

parselimit=parselimit[0]*60+parselimit[1]*1 

} 

function beginrefresh(){ 

if (!document.images) 

return 

if (parselimit==1) 

window.location.reload() 

else{ 

parselimit-=1 

curmin=Math.floor(parselimit/60) 

cursec=parselimit%60 

if (curmin!=0) 

curtime=curmin+"分"+cursec+"秒后重刷本页！" 

else 

curtime=cursec+"秒后重刷本页！" 

window.status=curtime 

setTimeout("beginrefresh()",1000) 

} 

} 


 

window.onload=beginrefresh 

file://--> 

</script> 


11.ACCESS数据库连接:

<% 

option explicit 

dim startime,endtime,conn,connstr,db 

startime=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 connstr 

function CloseDatabase 

Conn.close 

Set conn = Nothing 

End Function 

%> 


12.SQL数据库连接:

<% 

option explicit 

dim startime,endtime,conn,connstr,db 

startime=timer() 

connstr="driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs" 


Set conn = Server.CreateObject("ADODB.Connection") 

conn.Open connstr 

function CloseDatabase 

Conn.close 

Set conn = Nothing 

End Function 

%> 


13.用键盘打开网页代码:


<script language="javascript"> 

function ctlent(eventobject) 

{ 

if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && 
window.event.keyCode==83)) 

{ 

window.open('网址','','') 

} 

} 

</script> 


 这里是Ctrl+Enter和Alt+S的代码 自己查下键盘的ASCII码再换就行


 

14.让层不被控件复盖代码:

<div z-Index:2><object xxx></object></div> ＃ 前面 

<div z-Index:1><object xxx></object></div> ＃ 后面 

<div id="Layer2" style="position:absolute; top:40;width:400px; 
height:95px;z-index:2"><table height=100% width=100% bgcolor="#ff0000"><tr><td 
height=100% width=100%></td></tr></table><iframe width=0 
height=0></iframe></div> 

<div id="Layer1" style="position:absolute; top:50;width:200px; 
height:115px;z-index:1"><iframe height=100% width=100%></iframe></div> 



15.动网FLASH广告代码:

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" 
width="468" height="60"><param name=movie value="images/yj16d.swf"><param 
name=quality value=high><embed src="images/dvbanner.swf" quality=high 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash";;;;;;;;;;;; 
type="application/x-shockwave-flash" width="468" height="60"></embed></object> 



16.VBS弹出窗口小代码:

<script language=vbscript> 

msgbox"你还没有注册或登陆论坛","0","精品论坛" 

location.href = "login.asp" 

</script> 

 

16.使用FSO修改文件特定内容的函数

function FSOchange(filename,Target,String) 

Dim objFSO,objCountFile,FiletempData 

Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 

Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True) 

FiletempData = objCountFile.ReadAll 

objCountFile.Close 

FiletempData=Replace(FiletempData,Target,String) 

Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True) 

objCountFile.Write FiletempData 

objCountFile.Close 

Set objCountFile=Nothing 

Set objFSO = Nothing 

End Function 


17.使用FSO读取文件内容的函数

function FSOFileRead(filename) 

Dim objFSO,objCountFile,FiletempData 

Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 

Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True) 

FSOFileRead = objCountFile.ReadAll 

objCountFile.Close 

Set objCountFile=Nothing 

Set objFSO = Nothing 

End Function 


18.使用FSO读取文件某一行的函数

function FSOlinedit(filename,lineNum) 

if linenum < 1 then exit function 

dim fso,f,temparray,tempcnt 

set fso = server.CreateObject("scripting.filesystemobject") 

if not fso.fileExists(server.mappath(filename)) then exit function 

set f = fso.opentextfile(server.mappath(filename),1) 

if not f.AtEndofStream then 

tempcnt = f.readall 

f.close 

set f = nothing 

temparray = split(tempcnt,chr(13)&chr(10)) 

if lineNum>ubound(temparray)+1 then 

exit function 

else 

FSOlinedit = temparray(lineNum-1) 

end if 

end if 

end function 

 

19.使用FSO写文件某一行的函数

function FSOlinewrite(filename,lineNum,Linecontent) 

if linenum < 1 then exit function 

dim fso,f,temparray,tempCnt 

set fso = server.CreateObject("scripting.filesystemobject") 

if not fso.fileExists(server.mappath(filename)) then exit function 

set f = fso.opentextfile(server.mappath(filename),1) 

if not f.AtEndofStream then 

tempcnt = f.readall 

f.close 

temparray = split(tempcnt,chr(13)&chr(10)) 

if lineNum>ubound(temparray)+1 then 

exit function 

else 

temparray(lineNum-1) = lineContent 

end if 

tempcnt = join(temparray,chr(13)&chr(10)) 

set f = fso.createtextfile(server.mappath(filename),true) 

f.write tempcnt 

end if 

f.close 

set f = nothing 

end function 


20.使用FSO添加文件新行的函数

function FSOappline(filename,Linecontent) 

dim fso,f 

set fso = server.CreateObject("scripting.filesystemobject") 

if not fso.fileExists(server.mappath(filename)) then exit function 

set f = fso.opentextfile(server.mappath(filename),8,1) 

f.write chr(13)&chr(10)&Linecontent 

f.close 

set f = nothing 

end function 


21.读文件最后一行的函数

function FSOlastline(filename) 

dim fso,f,temparray,tempcnt 

set fso = server.CreateObject("scripting.filesystemobject") 

if not fso.fileExists(server.mappath(filename)) then exit function 

set f = fso.opentextfile(server.mappath(filename),1) 

if not f.AtEndofStream then 

tempcnt = f.readall 

f.close 

set f = nothing 

temparray = split(tempcnt,chr(13)&chr(10)) 

FSOlastline = temparray(ubound(temparray)) 

end if 

end function