当前位置: 首页 > 图文教程 > 网络编程 > ASP > 常用的asp代码

ASP
ASP基础讲座（下）
解决IIS5 HTTP500内部错误
ASP 3.0高级编程（四十六）
ASP 3.0高级编程（四十五）
ASP 3.0高级编程（四十四）
ASP 3.0高级编程（四十三）
ASP 3.0高级编程（四十二）
ASP 3.0高级编程（四十一）
ASP 3.0高级编程（三十九）
ASP 3.0高级编程（三十八）
ASP 3.0高级编程（三十七）
ASP 3.0高级编程（三十六）
ASP 3.0高级编程（三十五）
ASP 3.0高级编程（三十四）
ASP 3.0高级编程（三十三）
ASP 3.0高级编程（三十二）
ASP 3.0高级编程（三十一）
ASP错误代码说明
jscript错误代码及相应解释大全
ASP错误处理

No. « 12 13 14 15 »

技术文章搜索

关键字

ASP 中的 常用的asp代码

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 29 ::
收藏到网摘: n/a

这里列出一些常用字的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(''http://www.gbunix.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">Unix中文站</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 ***></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" 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