usersave.asp

来自「简易bbs论坛代码.简易,不过功能齐全,挺好用的.」· ASP 代码 · 共 71 行

ASP
71 行
字号 
<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>

usersave.asp - 源码说明

本页面展示了「简易bbs论坛代码.简易,不过功能齐全,挺好用的.」中的 usersave.asp 源码文件，采用 ASP 编程语言编写，共 71 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与BBS论坛相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?