ASP编程中几个非常有用的例子

1.计算每天的平均反复访问人数
< % startdate=DateDiff("d",Now,"09/04/1985"
if strdate< 0 then startdate=startdate*-1
avgvpd=Int((usercnt)/startdate) % >
显示：< % response.write(avgvpd) % >

2.查看使用者所用的浏览器
strBrowser=Request.ServerVariables("HTTP_USER_AGENT"
If Instr(strBrowser,"MSIE" < > 0 Then
Response.redirect("ForMSIEOnly.htm"
Else
Response.redirect("ForAll.htm"
End If

3.显示随机图象
< % dim p,ppic,dpic
ppic=12
randomize
p=Int((ppic*rnd)+1)
dpic="graphix/randompics/"&p&".gif"
% >
显示：< img src="< %=dpic% >" >

4.回到先前的页面
< a href="< %=request.serverVariables("Http_REFERER"% >" >preivous page< /a >

5.ASP判断网站的虚拟物理路径
< p align="center" >< font size="4" face="Arial" >< b >
The Physical path to this virtual website is:
< /b >< /font >
< font color="#FF0000" size="6" face="Arial" >
< %= Server.MapPath(""% >
< /font >< /p >

6.传递变量
< % form method="post" action="mynextpage.html" >
< % for each item in request.form % >
< input namee="< %=item% >" type="HIDDEN"
value="< %=server.HTMLEncode(Request.form(item)) % >" >
< % next % >
< /form >

7.强迫输入密码对话框
< % response.status="401 not Authorized"
response.end
% >

8.链结图片
< % @Languages=vbs cript % >
< % response.expires=0
strimagename="graphix/errors/erroriamge.gif"
response.redirect(strimagename)
% >

9.从一个ASP页面传到另一个页面
Response.Redirect("second.html?" & Request.ServerVariables("QUERY_STRING")

10.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
%>

11.ASP与SQL数据库连接
<%@ language=VBs cript%>
<%
dim conn
set conn=server.createobject("ADODB.connection"
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>