这代码有问题，帮忙解决下

晨跑去 · 发表于 2015-4-20 00:42:42

<%
'二级域名转发系统
nowmain = Request.ServerVariables("HTTP_HOST")
If Request.ServerVariables("SCRIPT_NAME") = "/index.asp" then
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("sjk#.mdb")
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select * from dnsurl where alldomain='"&nowmain&"'",conn,1,1
if not rs.eof then
dz=rs("userurl")
   rs.close
   set rs=nothing
   conn.close
   set conn=nothing
Response.Write "<script Language=Javascript>parent.location.href='" & dz & "'</script>"
Response.End
%>

代码老是显示缺少End，帮我看看怎么回事

ttasp · 发表于 2015-4-20 08:44:17

'二级域名转发系统
nowmain = Request.ServerVariables("HTTP_HOST")
If Request.ServerVariables("SCRIPT_NAME") = "/index.asp" then
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("sjk#.mdb")
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select * from dnsurl where alldomain='"&nowmain&"'",conn,1,1
if not rs.eof then
dz=rs("userurl")
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Write "<script Language=Javascript>parent.location.href='" & dz & "'</script>"
Response.End
end if
end if

复制代码

缺失endif 你自己看看

晨跑去 · 发表于 2015-4-20 12:38:27

还有个问题，就是没带http://的网址转发不了URL，怎么自动加上个http://转发，userurl这是URL库名

ttasp · 发表于 2015-4-20 13:08:50

还有个问题，就是没带http://的网址转发不了URL，怎么自动加上个http://转发，userurl这是URL库名
晨跑去发表于 2015-4-20 12:38

跟昨天提交一样，加上HTTP:// 字符串就行

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[求代码] 这代码有问题，帮忙解决下

在线客服

官方Q群 天天ASP家园网友互动群 群1: 697497501(新手学习互助群) 群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[求代码] 这代码有问题，帮忙解决下

在线客服

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)