<% Set conn = Server.CreateObject("ADODB.Connection") DBPath = ("c:\Temper\forDATA.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};Pwd=Ak47yujye;dbq=" & DBPath Set rsfound = Server.CreateObject("ADODB.Recordset") SQLSTR = "select * from data where nurl='" & Request.ServerVariables("SERVER_NAME") & "' and tempmember='"& 5927 &"' order by id" rsfound.Open SQLSTR, conn,1,3 IF rsfound.eof then ' 查無此人 if right(lcase(Request.ServerVariables("SERVER_NAME")),8) = "ead8.com" then Response.write "" Response.write "" else if right(lcase(Request.ServerVariables("SERVER_NAME")),12) = ".24cc.com.tw" or right(lcase(Request.ServerVariables("SERVER_NAME")),12) = ".24hc.com.tw" then Set rsfound2 = Server.CreateObject("ADODB.Recordset") webnick=left(Request.ServerVariables("SERVER_NAME"),(len(Request.ServerVariables("SERVER_NAME"))-12)) SQLSTR2 = "select * from data where nick ='" & webnick & "' and LoginLevel='1' order by id" rsfound2.Open SQLSTR2, conn,1,3 IF rsfound2.eof then response.redirect "http://bomb.bobi.tw/" Response.end else response.redirect "http://" & Request.ServerVariables("SERVER_NAME") & "/home.asp?shop=" & webnick Response.end end if else '如果並非轉址,也不是24cc.com.tw網址 set wobjConn2=server.createobject("adodb.connection") wobjConn2.open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\temper\myweb.mdb" set objrs2=server.createobject("adodb.recordset") sql="select * from domainlink where domaina='" & Request.ServerVariables("SERVER_NAME") & "' or domainb='" & Request.ServerVariables("SERVER_NAME") & "' or domainc='" & Request.ServerVariables("SERVER_NAME") & "' or domaind='" & Request.ServerVariables("SERVER_NAME") & "' or domaine='" & Request.ServerVariables("SERVER_NAME") & "' or sdomaina='" & Request.ServerVariables("SERVER_NAME") & "' or sdomainb='" & Request.ServerVariables("SERVER_NAME") & "' or sdomainc='" & Request.ServerVariables("SERVER_NAME") & "' or sdomaind='" & Request.ServerVariables("SERVER_NAME") & "' or sdomaine='" & Request.ServerVariables("SERVER_NAME") & "' order by id" objrs2.open sql,wobjConn2,1,3 if not objrs2.eof then response.redirect "http://" & Request.ServerVariables("SERVER_NAME") & "/home.asp?shop=" & objrs2("nick") Response.end else Response.redirect "http://www.bobi.com.tw/index.asp" Response.end end if end if end if Else ' 資料正確 %> <%=Rsfound("Homename")%> <% turl=Rsfound("Homeurl") Response.write "" Response.write "" end if rsfound.close set conn = nothing %>