|
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=数据库名称 %> |