Question

写一段简单的asp代码

之前的代码如下：
sn=lcase(Request.ServerVariables("SERVER_NAME")) '
if sn="baidu.com" or sn="www.baidu.com" then response.redirect "baidu/"
（下面还有几条这种类似的）

现在我需要将这个代码代码修改一下。
sn=lcase(Request.ServerVariables("SERVER_NAME")) '
if sn="变量1" or sn="www.变量1" then response.redirect "变量2/"
如：变量1=baidu.com 变量2=baidu
这个变量是获取的一个文本文档里面的内容；比如文本连接：http://baidu.com/1.txt
里面的格式是
baidu.com
XXXXXXX
XXXXXXX
思路应该是首先获取浏览器输入的域名，然后在获取网络文本数据，当浏览器输入的域名在网络文本中存在，就将这个域名设为变量1，变量2就是网址前半部分
--------------------------------------------------------------------------------------
不知道我这个描述清楚不

Answer 1

如果你的这个文本是在同域内，可以用FSO功能读取文本内容
如果是跨域的话，要用AJAX来读取
读取的代码太多，就不写了，你可以搜一下百度FSO和AJAX的使用
==============
<%
'.....设定已经将内容存入变量str_link
arr_str_link=split(str_link,chr(13))'用换行符做分割符来数组化原数据
sn=lcase(Request.ServerVariables("SERVER_NAME")) '
for i=0 to ubound(arr_str_link)
if sn=arr_str_link(i) or sn="www."&arr_str_link(i) then
response.redirect (left(arr_str_link,instr(arr_str_link(i),".")-1)&"/"):exit for
else
response.white("没有找到")]
end if
next
%>

Answer 2

aa="baidu.com"
ab="1.txt"
sn=lcase(Request.ServerVariables("SERVER_NAME")) '
if sn=aa or sn="www."&aa then response.redirect aa&ab

Answer 3

首先写一个子程序
sub redirectwebsite(bianliang)
sn=lcase(Request.ServerVariables("SERVER_NAME")) '
index=InStr(bianliang,".")
bianliang1=left(bianliang,index)
if sn=bianliang or sn="www." & bianliang then response.redirect bianliang1&"/"
end sub
然后，调用：
Set MyFile = fso.OpenTextFile("1.txt", 1)
ReadLineTextFile =trim( MyFile.ReadLine)
do while MyFile.AtEndOfStream <> True
redirectwebsite ReadLineTextFile
ReadLineTextFile =trim( MyFile.ReadLine)
loop