在<html>标签上方输出以下代码：
<% select case request.QueryString("url")
case "1"
response.Redirect("http://www.163.com")
case "2"
response.Redirect("http://www.sina.com")
case "3"
response.Redirect("http://www.sohu.com")
case "4"
response.Redirect("http://www.6to23.com")
end select
%>
完全的代码以下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% select case request.QueryString("url")
case "1"
response.Redirect("http://www.163.com")
case "2"
response.Redirect("http://www.sina.com")
case "3"
response.Redirect("http://www.sohu.com")
case "4"
response.Redirect("http://www.6to23.com")
end select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无题目文档</title>
</head>
<body>
<form action="Untitled-6.asp" method="get" name="form1" target="_blank">
<select name="url" id="url">
<option value="1">网易</option>
<option value="2">新浪</option>
<option value="3">搜狐</option>
<option value="4">中国粹生网</option>
</select>
<input type="submit" name="Submit" value="提交">
</form>
</body>
</html>
按“F12”键，选择你想去的网站吧！
3、使response.write办法完成轮回输入
这里要触及到一个VBScript剧本言语，很复杂的，却很有效，今后咱们要做纪录集分页的时分，要用到它。
for...next轮回语句布局：
for 变量=肇端值 to 终值 step 步长值
轮回体
next
上面做一个小例子：
实例5、轮回输入字符数
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无题目文档</title>
</head>
<body>
<% for y=1 to 50%>
<%response.Write("字") %>
<%next%>
</body>
</html>
个中，<%= Session("MM") %>为读取session变量的值显示在页面上。
按“F12”键预览履行了局。
假如用request.QueryString办法数数据存储于session对象中的话，将<%session("MM")=request.Form("y")%>
改成：
<%session("MM")=request.QueryString("y")%>
便可。
1、session.adandon办法
session对象只要一个办法，即abandon办法，它的感化是删除一切存储在session对象的数据，并释访这些资本。假如未明白地挪用adandon办法，当会话超时（IIS办事器默许超不时间为900秒，这由空间办事器商决意），办事器将删除这些会话，以释放资本。
语法以下：
<%session.adandon%>
DW MX的“刊出用户”代码分析
<%
' *** Logout the current user.
MM_logoutRedirectPage = "index.asp"
Session.Contents.Remove("MM_Username")
Session.Contents.Remove("MM_UserAuthorization")
If (MM_logoutRedirectPage <> "") Then Response.Redirect(MM_logoutRedirectPage)
%>
这段代码中就利用到的是Session.Contents.Remove属性来指定要删除的某个session变量，假如不指定“Contents.Remove”而利用“adandon”的话，它会把该页面创立的一切会话删除，但有时咱们只需求删除个中一个或几个会话，而保存其它的会话形态。
删除多个会话：
Session.Contents.Remove("MM_Username")
Session.Contents.Remove("MM_UserAuthorization")
...
上面是DW MX的“限制对页的会见”办事器行动生成的代码：
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="yesno.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
个中这句“If Session("MM_Username") <> "" Then”就是用来判别“MM_Username”会话变量是不是有值，不然由“Response.Redirect(MM_authFailedURL)”转向失足页。
其实咱们可以写个更复杂的:
<% if session("MM_Uesrname")="" then
response.Redirect("失足页.asp")
response.end
end if
%>
