ASP常用代码_asp 定时延时关闭页面代码-CSDN博客

ASP是Active Server Page的缩写，意为“动态服务器页面”。ASP是微软公司开发的代替CGI脚本程序的一种应用，它可以与数据库和其它程序进行交互，是一种简单、方便的编程工具。下面介绍的是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.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">

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

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.οnlοad=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>

17.使用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

18.使用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

19.使用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

20.使用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

21.使用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

22.使用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 
 
 
  
  
  
  
   
   

   
   1、数据库连接。
  
  
  
  
   
   
    
    ASP与Access数据库连接：
<%@ language=VBs cript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>
ASP与SQL数据库连接：
<%@ language=VBs cript%>
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>
DW中用字符串连接代码：
"Driver={Microsoft Access Driver (*.mdb)};DBQ=数据库的绝对路径"
等做完后再打开数据库服务器，把
"Driver={Microsoft Access Driver (*.mdb)};DBQ=数据库的绝对路径"
换成
"Provider=Microsoft.Jet.OLEDB.4.0;data source="& server.mappath("服务器根目录下所在数据库路径")
并把本地服务器修改成测试服务器
2、加载别的页面。
<!--#include file = "页面的路径和名称"-->
3、显示数据库中的数据。
<%=rs("字段")%>
4、输出。
Response.Write("文字或者字符串");
5、打开数据库并建立数据集对象。
set conn=server.CreateObject("ADODB.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("***/photodata.mdb") '更改您的数据库文件存放路径
set rs=server.createobject("ADODB.recordset") '建立数据集
sql="Select * FROM data" '更改您的数据库表名
rs.Open sql,conn,1,1
6、获得系统的时间。
<%=now()%>
7、取得来访问的IP。
<%=request.serverVariables("remote_host")%>
8、随机数。
<%randomize%>
<%=(int(rnd()*n)+1)%>
N为可改变数
9、跳转页面。
Response.Redirect("页面")
10、弹出消息框。
Response.Write("<script>alert('消息框！')</script>")
11、用hidden类型来传递变量。
< % form method="post" action="mynextpage.asp" >
< % for each item in request.form % >
< input namee="< %=item% >" type="HIDDEN"
value="< %=server.HTMLEncode(Request.form(item)) % >" >
< % next % >
< /form >
12、常用SQL语句整理。
(1) 数据记录筛选：
sql="select * from 数据表 where 字段名=字段值 order by 字段名 [desc]"
sql="select * from 数据表 where 字段名 like ''%字段值%'' order by 字段名 [desc]"
sql="select top 10 * from 数据表 where 字段名 order by 字段名 [desc]"
sql="select * from 数据表 where 字段名 in (''值1'',''值2'',''值3'')"
sql="select * from 数据表 where 字段名 between 值1 and 值2"
(2) 更新数据记录：
sql="update 数据表 set 字段名=字段值 where 条件表达式"
sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"
(3) 删除数据记录：
sql="delete from 数据表 where 条件表达式"
sql="delete from 数据表" (将数据表所有记录删除)
(4) 添加数据记录：
sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)"
sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)
(5) 数据记录统计函数：
AVG(字段名) 得出一个表格栏平均值
COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计
MAX(字段名) 取得一个表格栏最大的值
MIN(字段名) 取得一个表格栏最小的值
SUM(字段名) 把数据栏的值相加
引用以上函数的方法：
sql="select sum(字段名) as 别名 from 数据表 where 条件表达式"
set rs=conn.excute(sql)
用 rs("别名") 获取统的计值，其它函数运用同上。
(5) 数据表的建立和删除：
Create TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… )
例：Create TABLE tab01(name varchar(50),datetime default now())
Drop TABLE 数据表名称 (永久性删除一个数据表)