常用的asp代码

这里列出一些常用字的asp代码。
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(&
#39
&
#39
http://www.gbunix.com"
,&
#39
&
#39
&
#39
&
#39
,&
#39
&
#39
height=200,
width=300,top=0,left=30&
#39
&
#39
)
 

// 
-->
 

<
/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"
>
Unix中文站<
/marquee>
 


8.自动关闭网页: 


<
script 
LANGUAGE="
javascript"
>
 

<
!-- 

setTimeout(&
#39
&
#39
window.close()
&
#39
&
#39
, 
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() 

&
#39
更改数据库名字 

db="
data/dvBBS5.mdb"
 

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

connstr="
Provider=Microsoft.Jet.OLEDB.4.0

Data 
Source="
 
&

#38
 
Server.MapPath(db) 

&
#39
如果你的服务器采用较老版本Access驱动，
&
#39
请用下面连接方法 

&
#39
connstr="
driver=
{Microsoft 
Access 
Driver 
(*.mdb)}

dbq="
 
&

#38
 
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 
&

#38
&

#38
 
window.event.keyCode==13)
||(event.altKey 
&

#38
&

#38
 
window.event.keyCode==83)) 


{ 

window.open(&
#39
网址&
#39
,&
#39
&
#39
,&
#39
&
#39
) 

} 

} 

<
/script>
　 


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


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


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

<
div 
z-Index:1>
<
object 
***>
<
/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="
clsid27CDB6E-AE6D-11cf-96B8-444553540000"
 


codebase="
http://download.macromedia.com/pub/shockwave/
cabs/flash/swflash.cab
#version=5,0,0,0"
 


width="
468"
&nbs