【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