Guoy

遥看成梦,近看成风

泛玉米-泛域名解析-泛解析-自己参考

<%
'获取主机名
   For i=1 To Len(Server_Name) 
If Mid(Server_Name,i,1)="." or Mid(Server_Name,i,1)="@" Then Exit For
 sUser = sUser & Mid(Server_Name,i,1)
   Next
   Response.Redirect "tran.asp?who=" & sUser 
%>