【ASP】ASP初学者可方便查询相关的代码

1.获得系统时间:

< % = now ()% >

2.取得来访用的IP:

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

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

1 < script >
2 window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.")
3 </ script >

4.去除IE混动条:

1 < body  scroll ="no" >  
2 < body  style ="overflow-y:hidden" >

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

1 < script  language ="javascript" >
2 <!--  
3 <!-- 注意更改文件所在路径 -->
4 window.open(''http://www.XXXXXX.com&#39;','''',''height=200,width=300,top=0,left=30'');
5 // -->
6 </ script >
7

6.随机数:

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

N为可改变数

7.向上混动代码:

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

8.自动关闭网页:

1 < script  LANGUAGE ="javascript" >
2 <!--
3 setTimeout(''window.close();'', 10000); //60秒后关闭
4 //  -->
5 </ script >
6 < p  align ="center" > 本页10秒后自动关闭,请注意刷新页面 </ p >
7

9.随机背景音乐:

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

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

10.自动刷新本页面:

 1 < script >  
 2 < ! --  　
 3  
 4 var limit = " 0:10 "  　
 5  
 6 if  (document.images){ 
 7 var parselimit = limit. split ( " : " ) 
 8 parselimit = parselimit[ 0 ] * 60 + parselimit[ 1 ] * 1  
 9  } 
10 function  beginrefresh(){ 
11 if  (!document.images) 
12 return 
13 if  (parselimit == 1 ) 
14 window.location.reload() 
15 else { 
16 parselimit -= 1  
17 curmin = Math.floor(parselimit / 60 ) 
18 cursec = parselimit% 60  
19 if  (curmin! = 0 ) 
20 curtime = curmin + " 分 " + cursec + " 秒后重刷本页！ "  
21 else  
22 curtime = cursec + " 秒后重刷本页！ "  
23 window.status = curtime 
24 setTimeout( " beginrefresh() " , 1000 ) 
25 } 
26 } 　
27
28 window.onload = beginrefresh 
29 file: //-->  
30 </ script >

11.ACCESS数据库连接:

 1 < %
 2 option   explicit
 3 dim  startime,endtime,conn,connstr,db
 4 startime = timer ()
 5 ' 更改数据库名字
 6 db = " data/dvBBS5.mdb"
 7 Set  conn  =  Server. createObject ( " ADODB.Connection " )
 8 connstr = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "   &  Server.MapPath(db)
 9 ' 如果你的服务器采用较老版本Access驱动，请用下面连接方*
10 ' connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
11 conn.Open connstr
12 function  CloseDatabase
13 Conn.close
14 Set  conn  =   Nothing
15 End Function
16 % >
17

12.SQL数据库连接:

 1 < %
 2 option   explicit
 3 dim  startime,endtime,conn,connstr,db
 4 startime = timer ()
 5 connstr = " driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs "  
 6 Set  conn  =  Server. createObject ( " ADODB.Connection " )
 7 conn.Open connstr
 8 function  CloseDatabase
 9 Conn.close
10 Set  conn  =   Nothing
11 End Function
12 % >
13

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

 1 < script language = " javascript " >
 2 function  ctlent(eventobject)
 3 {
 4 if ((event.ctrlKey  &&  window.event.keyCode == 13 ) || (event.altKey  &&  window.event.keyCode == 83 ))
 5 {
 6 window.open('网址','','')
 7 }
 8 }
 9 </ script > 　
10

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

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

1 < div  z-Index:2 >< object  *** ></ object ></ div >  ＃ 前面 
2 < div  z-Index:1 >< object  *** ></ object ></ div >  ＃ 后面 
3 < 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 >
4 < div  id ="Layer1"  style ="position:absolute; top:50;width:200px; height:115px;z-index:1" >< iframe  height =100%  width =100% ></ iframe ></ div >
5

15.动网FLASH广告代码:

1 < object  classid ="clsid27CDB6E-AE6D-11cf-96B8-444553540000"  codebase ="http://download.macromedia.com/p&  ;flash.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/shockw  kwaveFlash" ;;; type ="application/x-shockwave-f  height=" 60" ></ embed ></ object >

16.VBS弹出窗口小代码:

1 < script language = vbscript >
2 msgbox " 你还没有注册或登陆论坛 " , " 0 " , " 精品论坛"
3 location.href  =   " login.asp"
4 </ 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

转载于:https://www.cnblogs.com/fantboy/archive/2005/09/07/231681.html