用户名:
密 码:
验证码:   <% For j=1 to 4 I=suijishu() Num= Num + Cstr(I) Response.Write("") Next %>
 
 
<% UserName=ReplaceBadChar(Request.Form("UserName")) UserPwd=ReplaceBadChar(Request.Form("UserPwd")) IF UserName<> "" And UserPwd <> "" Then StrSql="Select * From XcUser Where UserName='" & UserName & "' And UserPwd='" & UserPwd & "'" Set Rs=Conn.Execute(StrSql) IF Not Rs.Eof Then '------------------------------------------ Session("UserName")=Rs("UserName") Session("Useropr")=Rs("Useropr") '------------------------------------------ '登陆成功,写入登陆日志 LogIP=Request.ServerVariables("REMOTE_ADDR") LogSys=system(Request.ServerVariables("ALL_HTTP")) Call UserLog(Rs("UserName"),LogIP,LogSys,Rs("Useropr")) Call ShowMessAge("登陆成功,欢迎" & Session("UserName"),"AdminIndex.asp") Else ShowMess("用户名或密码错误!请重新输入") End IF End IF Conn.close %>