帮忙改写一个asp代码

答案:2 悬赏:0 手机版

解决时间 2021-05-16 22:50

提问者网友：辞取
2021-05-16 13:28

第一个是玉名识别代码

<%
if instr(Request.ServerVariables("SERVER_NAME"),"www.xxx.com")>0 then
response.redirect "/index.asp"
elseif instr(Request.ServerVariables("SERVER_NAME"),"wap.xxx.com")>0 then
response.redirect "wap.asp"
elseif instr(Request.ServerVariables("SERVER_NAME"),"bbs.xxx.com")>0 then
response.redirect "bbs"
end if
%>

第二个是自动识别WEB和WAP代码
<%
Option Explicit
dim enterurl
if instr(Request.ServerVariables("http_accept"),"wap")>0 then
enterurl="wap" '网站WAP地址

else
enterurl="wapmo" '网站WEB地址

end if
Response.Redirect(enterurl)
%>

现在我想把两个代码写成一个文件

过路高手帮帮忙

最佳答案

五星知识达人网友：慢性怪人
2021-05-16 13:51

<%
Option Explicit
dim enterurl,SERVER_NAME

SERVER_NAME=Request.ServerVariables("SERVER_NAME")

if instr(SERVER_NAME,"www.xxx.com")>0 then

enterurl="wapmo"

elseif instr(SERVER_NAME,"wap.xxx.com")>0 then
enterurl="wap"
elseif instr(SERVER_NAME,"bbs.xxx.com")>0 then
enterurl="bbs"
end if

Response.Redirect(enterurl)

事实上我实在看不怎么出来这2个文件有什么很强的关联性呵呵

全部回答

1楼网友：酒者煙囻
2021-05-16 15:00

<% dim enterurl if instr(Request.ServerVariables("SERVER_NAME"),"www.xxx.com")>0 then response.redirect "/index.asp" elseif instr(Request.ServerVariables("SERVER_NAME"),"wap.xxx.com")>0 Then if instr(Request.ServerVariables("http_accept"),"wap")>0 then enterurl="wap" '网站WAP地址 else enterurl="wapmo" '网站WEB地址 end if Response.Redirect(enterurl) elseif instr(Request.ServerVariables("SERVER_NAME"),"bbs.xxx.com")>0 then response.redirect "bbs" end if %>

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息