【案例4-2】
网站重定向举例
<%
Response.Buffer=True
gosite=Request.QueryString("gosite")
Select case gosite
Case "sina"
Response.Redirect "http://www.sina.com"
Case "sohu"
Response.Redirect "http://www.sohu.com"
Case "yahoo"
Response.Redirect "http://cn.yahoo.com.cn"
End Select
%>
请选择要访问的网站：
【案例4-3】
<%
Response. Buffer =True
Response. Write "这里是新世纪网站"
Response. Flush
Response. Write "欢迎来到这里！"
Response. Clear
%>
【案例4-4】
输入客户资料
<%
Dim name, age, phone
name = Request.Form ("name")
age = Request.Form ("age")
phone = Request.Form ("phone")
If name = Empty Or phone = Empty Then
Response.Write "您的个人信息没填写完毕，请返回重新填写！"
Response.End
Else
Response.Write "
" & "您提交的信息如下：" & "
"
Response.Write " 您的姓名是：" & name & " "
Response.Write " 您的年龄是：" & age & " "
Response.Write " 您的联系电话是：" & phone
End If
%>
【案例4-5】
输入客户资料
<%
Dim name, age, phone
name = Request.QueryString ("name")
age = Request.QueryString ("age")
phone = Request.QueryString ("phone")
Response.Write name & "：您好！" & " "
Response.Write "您今年" & age & "岁" & " "
Response.Write "您的联系电话是：" & phone & " "
If Request.QueryString("UserStatus") = "New" Then
Response.Write "这是您第一次访问本网站！"
End if
%>
【案例4-6】
<%
Path_Info = Request.ServerVariables("Path_Info")
Request_Method = Request.ServerVariables("Request_Method")
HTTP_User_Agent = Request.ServerVariables("HTTP_User_Agent")
Server_Name = Request.ServerVariables("Server_Name")
Server_Port = Request.ServerVariables("Server_Port")
Server_Software = Request.ServerVariables("Server_Software")
Response.Write "网页虚拟路径："&Path_Info&" "
Response.Write "浏览器请求方式："&Request_Method&" "
Response.Write "浏览器相关信息："&HTTP_User_Agent&" "
Response.Write "服务器名或IP："&Server_Name&" "
Response.Write "服务器连接端口："&Server_Port&" "
Response.Write "服务器软件版本："&Server_Software&" "
%>
第5章 ASP 内置组件
【案例5-1】
<%
' 创建一个FileSystemObject对象实例，并指派给objFSO变量：
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' 指定要创建的文件所在的虚拟目录和该文件的名称，并指派给Ph变量：
Ph = Server.Mappath("\ch5\MyFile1.txt")
' 使用对象实例的CreateTextFile方法创建一个名为MyFile的文件，
' 参数true表示若存在同名文件则将其覆盖：
objFSO.CreateTextFile Ph, true
' 释放FileSystemObject对象实例：
Set objFSO = Nothing
%>
【案例5-2】
<%
' 创建一个Scripting.FileSystemObject对象实例，并指派给objFSO变量：
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' 指定源文件所在路径和文件名，并指派给sPh变量：
sPh = Server.Mappath("\ch5\MyFile1.txt")
' 指定目的文件所在路径和文件名，并指派给tPh变量：
tPh = Server.Mappath("\ch5\MyFile2.txt")
' 如果存在源文件，则使用CopyFile方法实现复制，
' 参数true表示若存在同名目标文件则将其覆盖：
If objFSO.FileExists(sPh) Then
objFSO.CopyFile sPh, tPh, true
Else
Response.Write "源文件不存在，无法复制！"
End If
' 释放FileSystemObject对象实例：
Set objFSO = Nothing
%>
【案例5-3】
<%
' 创建一个Scripting.FileSystemObject对象实例：
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' 指定源文件所在路径和文件名，并指派给sPh变量：
sPh = Server.Mappath("\ch5\MyFile2.txt")
' 指定目的文件所在路径和文件名，并指派给tPh变量：
tPh = Server.Mappath("\ch4\MyFile2.txt")
' 如果存在源文件，则使用MoveFile方法实现移动：
If objFSO.FileExists(sPh) Then
objFSO.MoveFile sPh, tPh
Else
Response.Write "源文件不存在，无法移动！"
End If
Set objFSO = Nothing
%>
【案例5-4】
<%
' 创建一个Scripting.FileSystemObject对象实例：
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' 指定被删除文件所在路径和文件名，并指派给Ph变量：
Ph = Server.Mappath("\ch4\MyFile2.txt")
' 如果存在指定文件，则使用DeleteFile方法将其删除：
If objFSO.FileExists(Ph) Then
objFSO.DeleteFile Ph
Else
Response.Write "文件不存在，无需删除！"
End If
Set objFSO = Nothing
%>
【案例5-5】
<%
' 创建FileSystemObject对象实例，并指派给变量objFSO：
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'指定要打开的ch5目录中的MyFile1.txt文件：
Ph = Server.Mappath("\ch5\MyFile1.txt")
' 利用OpenTextFile方法打开指定文件，并将获得的文本流对象指派给变量objTS，
' 参数2表示以允许写入方式打开，参数True表示如果文件不存在则创建之：
Set objTS = objFSO.OpenTextFile(Ph, 2, True)
Wellcome = "欢迎来到新世纪网站！"
' 利用WriteBlankLines方法写入两个空行：
objTS.WriteBlankLines(2)
' 将Wellcome变量中的字符串写入文件，并换行：
objTS.WriteLine Wellcome
objTS.WriteLine
'写入一个空行
objTS.Writeline "恭祝大家："
'写入指定字符后换行
objTS.Write " 节日快乐！"
'写入指定字符后不换行
objTS.WriteLine "身体健康！"
'写入指定字符后换行
objTS.Close
'关闭打开的文件
Set objTS = Nothing
'释放TextStream对象实例
Set objFSO = Nothing
'释放FileSystemObject对象实例
%>
【案例5-6】
<%
' 创建FileSystemObject对象实例，并指派给变量objFSO：
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' 指定要打开ch5目录中的MyFile1.txt文件：
Ph = Server.Mappath("\ch5\MyFile1.txt")
' 利用OpenTextFile方法打开指定文件，并将获得的文本流对象指派给变量objTS，
' 参数1表示以只读方式打开，参数false表示如果文件不存在则不打开：
Set objTS = objFSO.OpenTextFile(Ph, 1, false)
Do While not objTS.AtEndOfStream
'如果没有到文件结尾就进行循环
ALine = objTS.ReadLine
'读取一行，并指派给变量ALine
Response.write ALine & " "
'向客户端输出该行内容，并换行
Loop
objTS.Close
'关闭打开的文件
Set objTS = Nothing
'释放TextStream对象实例
Set objFSO = Nothing
'释放FileSystemObject对象实例
%>
【案例5-7】
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Ph = Server.Mappath("\ch5\MyFile1.txt")
Set objTS = objFSO.OpenTextFile(Ph, 1, false)
If not objTS.AtEndOfStream Then
' 如果获取的文本流对象非空
AllLines = objTS.ReadAll
' 读取全部内容，并指派给变量AllLines
' 利用Replace函数将内容中的换行符号置换为HTML的换行标记：
Result = Replace(AllLines,vbCrLf," ")
Response.write Result
End If
objTS.Close
'关闭打开的文件
Set objTS = Nothing
'释放TextStream对象实例
Set objFSO = Nothing
'释放FileSystemObject对象实
享受工作！享受生活！
【案例2-2】
可链接到百度网站。
浙公网安备 33021202002483