default.asp

来自「UQC虚拟主机专用免费域名转向程序,域名也不需要支持泛解晰,就可以达到二级域名转」· ASP 代码 · 共 32 行

<% 
dim name 
name=trim(request("name")) 
if name="" then 
%> 
<script language="vbscript"> 
location.href="?name="&location.href 
</script> 
<% 
else 
name=replace(name,"http://","") 
auser=instr(name,"@") 
if auser>0 then 
name=left(name,auser-1) 
end if 
mdbname="database/domainyagis.asp" 'database/domainyagis.asp为数据库存名 
set conn=server.createobject("adodb.connection") 
conn.open "dbq="&server.mappath(mdbname)&";driver={microsoft access driver (*.mdb)};" 
set rs=server.createobject("adodb.recordset") 
rs.open "select * from user where name='"&name&"'",conn,1,1 
if not rs.eof then 
url=rs("url") 
else 
url="reg/reg.asp" '改为你的注册页 
end if 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
response.redirect url 
end if 
%>