<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
商务链，自助链接，用户登陆
<%
username = getIn(Request.Form("username"))
userpass = Request.Form("userpass")
If Request.ServerVariables("REQUEST_METHOD")="POST" Then %>
<% Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open "Select userpass From link Where username='"&username&"'",conn
if rsUser.Fields("userpass") = MD5(userpass) then
logip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If logip = "" Then logip = Request.ServerVariables("REMOTE_ADDR")
conn.Execute("Insert into log(username,loginTime,loginIp) Values('"&username&"',#"&Now()&"#,'"&logip&"')")
endconn
Session("linkuser") = username
Response.Redirect("loginuser.asp")
end if
endconn
End If
If Request.QueryString("do") = "out" Then
Session.Contents.RemoveAll()
End If
%>
