【2013-9-19 1:51:18 作者:窄门】
1. 用asp判断你的网站的虚拟路径
使用mappath方法
<p align="center"> <font size="4" face="aria"> <b> the physical path to this virtual website is:</b> </font> <font color:#ff0000" size="6" face="arial"> <%= server.mappath("\")%> </font> </p>
2. 如何知道使用者所用的浏览器?使用the request object方法
strbrower = request.servervariables("http_user_agent") if instr(strbrowser, "msie") <> 0 then response.redirect("formsieonly.html") else response.redirect("formall.html") end if
3. 计算每天平均反复访问人数
<% startdate = datediff("d", now, "01/01/1990") if strdate < 0then startdate = startdate *-1 avgvpd = int((usercnt)/startdate) %>
4. 显示随机图像
<% dim p, ppic, dpic ppic = 12 randomize p = int((ppic * rnd) + 1) dpic = "graphix / randompics / "&p&".gif" %>
显示
<img src="<%=dpic%>">
5. 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" %>
6. 确定对方的ip地址
<%=request.servervariables("remote_addr") %>
7. asp与sql数据库连接:
<%@ language = vbs script %> <% dim conn set conn=server.createobject("adodb.connection") con.open "provider=sqloledb; data source=sql服务器名称或ip地址; uid=sa; pwd=数据库密码; database=数据库名称 %>
建立记录集对象:
set rs=server.createobject("adodb.recordeset") rs.open sql语句, conn, 3, 2