以下是引用片段:
〈%
for
<% for each x in request.Form %>
request.From (<%=x%)=<%=request.Form
(x)%> <br>
<% next %>
12.获取客户端TCP/IP端口的方法:
如: tcp/ip port is <%=request("server_port")%>
if not session("BEEN_to_home_page") then
response.redirect "index.asp"
end if
| 以下是引用片段: <% 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> |
|||
| 共4页: 上一页 [1] [2] 3 [4] 下一页 | |||
![]() |