📄 usersave.asp
字号:
<html>
<head>
<title>??????</title>
</head>
<body>
<%
'????
Dim sql, vUserId, vUserName, vUserPwd, vEname, vEmail
'????????????
vUserName = Request("UserName")
vUserPwd = Request("Pwd")
vEname = Request("Ename")
vEmail = Request("Email")
vLogo = Request("Logo") & ".gif"
'Server???CreateObject????Connection??
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQL Server};server=JINWEN;UID=sa;PWD=821026;Database=Discuss"
Conn.Open
'??flag????new,??????,????????
If Request.Form("flag") = "new" Then
'?????????
Set rsUser = conn.Execute("Select * From Users Where UserName='" & vUserName & "'")
If Not rsUser.EOF Then
%>
<script language="javascript">
alert("???????!");
history.go(-1);
</script>
<%
Else
Set rsUser = Nothing
'????Users????????
sql="INSERT INTO Users (UserName, UserPwd, Ename, Email, Logo) VALUES('" & vUserName _
& "','" & vUserPwd & "','" & vEname & "','" & vEmail & "','" & vLogo & "')"
Conn.Execute(sql)
End If
Else '??????
OriPwd = Request.Form("OriPwd")
Pwd = Request.Form("Pwd")
sql = "SELECT * FROM Users WHERE UserId=" & Session("UserId") & " And UserPwd='" & OriPwd & "'"
Set rs = Conn.Execute(sql)
If rs.Eof Then
Response.Write "?????!"
%>
<Script Language="JavaScript">
setTimeout("history.go(-1)",1600);
</Script>
<%
Response.End
Else
'??????
sql = "UPDATE Users SET Ename='" & vEname & "', Email='" & vEmail & "', UserPwd='" _
& vUserPwd & "', Logo='" & vLogo & "' Where UserId=" & Session("UserId")
Conn.Execute(sql)
End If
End If
Response.Write "<h2>?????????!</h2>"
%>
</body>
<Script language="javascript">
//????????????
opener.location.reload();
//??800???????
setTimeout("window.close()",800);
</Script>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -