<%
dim name,rs,ps
name=request("uname")
ps=request("pass")
set rs=server.CreateObject("adodb.recordset")
if name<>"" or ps<>"" then
rs.Open "select pass,name from user where uname="&name&"",conn,2
if not rs.EOF then
if not rs("pass")=ps then%>
alert("密码错误");window.location.href("index.asp");
<%else
Response.Redirect "index.asp"
end if
else
response.write "<script language=JavaScript>" & chr(13) & "alert(你不是本站用户，请先注册！);" & "window.location.href(reg.asp);" & ""
end if
else%>
alert("你什么也没有填写，请返回重写");window.location.href("index.asp");
<%end if%>
