<%
If Request("UserID")<>"" AND Request("PWD")<>"" Then
sql="SELECT * FROM current_user WHERE UserID='" & Request("UserID") & "'"
Set current_userRs=Conn.Execute(sql)
If current_userRs.Bof OR current_userRs.Eof Then
'如果当前用户表中没有此人
LogTime=Now()
SerialNum=Cstr(Hour(LogTime)) & Cstr(Minute(LogTime)) & Cstr(Second(LogTime)) & Cstr(Int(Rnd*10000))
sql="INSERT INTO current_user(UserID,Email,LastLogin,IPAddress,SerialNum) VALUES('" & Request("UserID") & "','" & Request("Email") & "','" & Now() & "','" & Request("REMOTE_ADDR") & "','" & SerialNum & "')"
Conn.Execute(sql)
Else
SerialNum=current_userRs("SerialNum")
End If
current_userRs.Close
Set current_userRs=Nothing
End If
'以上处理当前用户表，无论是登录还是注册新用户，都要执行。
loginStyle=Request("loginStyle")
If loginStyle="登录" Then
sql="SELECT * FROM user_info WHERE UserID='" & Request("UserID") & "'"
Set LogUserRs=Conn.Execute(sql)
If LogUserRs.Bof OR LogUserRs.Eof Then
Response.Write "
没有这个用户，登陆失败！
"
Else
If Request("PWD")<>LogUserRs("PWD") Then
Response.Write "
密码错误，登陆失败！
"
Else
Response.Redirect "jpcl.asp?SerialNum=" & SerialNum
End If
End If
ElseIf loginStyle="新用户注册" OR loginStyle="完成" Then
If Request("UserID")="" Then
Response.Write "
用户名称不能为空!
"
ElseIf Request("PWD")="" Then
Response.Write "
登陆密码不能为空!
"
ElseIf Request("UserRealName")="" Then
Response.Write "
真实姓名不能为空!
"
ElseIf Request("Company")="" Then
Response.Write "
在职单位不能为空!
"
ElseIf Request("Position")="" Then
Response.Write "
现任职务不能为空!
"
ElseIf Request("IDNum")="" Then
Response.Write "
身份证号不能为空!
"
ElseIf Request("Tel")="" Then
Response.Write "
固定电话不能为空!
"
ElseIf Request("MobilePhone")="" Then
Response.Write "
移动电话不能为空!
"
ElseIf Request("Address")="" Then
Response.Write "
通信地址不能为空!
"
ElseIf Request("Email")="" Then
Response.Write "
电子邮件不能为空!
"
Else
sql="SELECT * FROM user_info WHERE UserID='" & Request("UserID") & "'"
Set LogUserRs=Conn.Execute(sql)
If Not (LogUserRs.Eof AND LogUserRs.Bof) Then
Response.Write "
对不起，这个用户名已被他人注册，请换一个名字注册！
"
Else
If loginStyle="完成" Then
sql="INSERT INTO user_info(UserID,PWD,UserRealName,Company,Position,IDNum,Tel,MobilePhone,Address,Email) VALUES('" & Request("UserID") & "','" & Request("PWD") & "','" & Request("UserRealName") & "','" & Request("Company") & "','" & Request("Position") & "','" & Request("IDNum") & "','" & Request("Tel") & "','" & Request("MobilePhone") & "','" & Request("Address") & "','" & Request("Email") & "')"
Conn.Execute(sql)
sql="UPDATE current_user SET LastLogin='" & Request("LastLogin") & "' WHERE UserID='" & Request("UserID") & "'"
Conn.Execute(sql)
Response.Redirect "jpcl.asp?SerialNum=" & SerialNum
End If
End If
End If
End If
'程序处理完成，下面根据情况输出
%>