[原创]实现虚拟二级域名的方法!

domain=request.querystring("domain")
username = mid(domain,8,instr(domain,"@")-8)
if not check_user(username) then
url="reg.asp?Err_Msg_id=1"
else
set rs=server.createobject("adodb.recordset")
sql="select homepage,hits from domain where username='" & username & "'"
rs.open sql,conn,1,3
if rs.bof or rs.eof then
url="reg.asp?Err_Msg_id=1"
else
url=rs("homepage")
end if
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
response.redirect url
response.end

function check_user(str)
check_user=true
checkstr="abcdefghijklmnopqrstuvwxyz0123456789_"
for i=1 to len(str)
if instr(checkstr,mid(str,i,1))<=0 then
check_user=false
exit for
end if
next
end function
%>