<% if not session("BEEN_to_home_page") then response.redirect "index.asp" end if %>
16.判断是回到本页还是第一次进入
<% if user_has_been_here_before then response.write "<h3 align=center> Welcome Back again" else response.write "Welcome!" end if %>
17.显示数据库中的图片与超级连接
<% set conn=server.creatobject("ADODB.connection") conn.open "myaddress" set rs=conn.execute("select name,tel,url,image from myaddress") %>
<p> <tabel> <tr> <% for i=0 to rs.fields.count-1 %> <td> <b> <%=rs(i).name %> </b> </td> <% next %> </tr> <% do while not rs.eof %> <tr> <% for i=0 to rs.fields.count-1 %> <td valign =top> <% if rs(i).name="image" then response.write "<img src="""&rs(i)&""" >" else if rs(i).name="url" then response.write "<a href="""&rs(i)&""">"&rs(i)&"</a>" else response.write rs(i) end if end if %> </td> <%next%> </tr> <% rs.movenext loop rs.close conn.close %> </html>
18. 用ASP取得浏览器信息
<% set a=server.creatobject("MSWC.BROWSERTYPE") msg="您使用的浏览器是:"+a.browser+"version"+a.version %> <%=msg%>