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

<%
'二级域名转发系统
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，帮我看看怎么回事

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

复制代码

缺失endif  你自己看看

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

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

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