user_modifyinfo.asp

来自「利用C++编写的网络跟踪代码」· ASP 代码 · 共 138 行

ASP
138 行
字号 
<!--#include file="inc/Conn_User.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/function.asp"-->
<%
if CheckUserLogined()=False then
	response.Redirect "User_Login.asp"
end if

dim Action,FoundErr,ErrMsg
dim rsUser,sqlUser
Action=trim(request("Action"))
if  UserName="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
end if
if FoundErr=true then
	call WriteErrMsg()
else
	Set rsUser=Server.CreateObject("Adodb.RecordSet")
	sqlUser="select * from " & db_User_Table & " where " & db_User_Name & "='" & UserName & "'"
	rsUser.Open sqlUser,Conn_User,1,3
	if rsUser.bof and rsUser.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的用户！</li>"
		call writeErrMsg()
	else
		if Action="Modify" then
			dim Sex,Email,Homepage,Company,Department,jszc
			Sex=trim(Request("Sex"))
			Email=trim(request("Email"))
			Homepage=trim(request("Homepage"))
			OICQ=trim(request("OICQ"))
			MSN=trim(request("MSN"))
			if Sex="" then
				founderr=true
				errmsg=errmsg & "<br><li>性别不能为空</li>"
			else
				sex=cint(sex)
				if Sex<>0 and Sex<>1 then
					Sex=1
				end if
			end if
			if Email="" then
				founderr=true
				errmsg=errmsg & "<br><li>Email不能为空</li>"
			else
				if IsValidEmail(Email)=false then
					errmsg=errmsg & "<br><li>您的Email有错误</li>"
			   		founderr=true
				end if
			end if
			if FoundErr<>true then
				rsUser(db_User_Sex)=Sex
				rsUser(db_User_Email)=Email
				rsUser(db_User_Homepage)=HomePage
				rsUser(db_User_QQ)=OICQ
				rsUser(db_User_Msn)=MSN
				rsUser.update
				call WriteSuccessMsg("成功修改用户信息！")
			else
				call WriteErrMsg()
			end if
		else

%>
<html>
<head>
<title>修改注册用户信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css">
</head>
<body>
<br>
<FORM name="Form1" action="User_ModifyInfo.asp" method="post">
  <table width="400" border="0" align="center"  cellpadding="0" cellspacing="0">
    <tr> 
      <td height="20" background="imge/topbgm.gif"> 
        <div align="center"><font class=en><b>修改注册用户信息</b></font></div></td>
    </tr>
  </table>
  <table width="400" border="0" align="center"  cellpadding="0" cellspacing="0">
    <tr> 
      <td height="11"></td>
    </tr>
  </table>
  <table width=400 border=0 align="center" cellpadding=2 cellspacing=1 class='border'>
    <TR class="tdbg" > 
      <TD width="120" align="right"><b>用 户 名：</b></TD>
      <TD> <%=Trim(Request.Cookies("asp163")("UserName"))%> <input name="UserName" type="hidden" value="<%=Trim(Request.Cookies("asp163")("UserName"))%>"></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="120" align="right"><strong>性别：</strong></TD>
      <TD> <INPUT type=radio value="1" name=sex <%if rsUser(db_User_Sex)=1 then response.write "CHECKED"%>>
        男 &nbsp;&nbsp; <INPUT type=radio value="0" name=sex <%if rsUser(db_User_Sex)=0 then response.write "CHECKED"%>>
        女</TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="120" align="right"><strong>Email地址：</strong></TD>
      <TD> <INPUT name=Email value="<%=rsUser(db_User_Email)%>" size=30   maxLength=50> 
      </TD>
    </TR>
    <TR class="tdbg" > 
      <TD align="right"><strong>主页：</strong></TD>
      <TD> <INPUT   maxLength=100 size=30 name=homepage value="<%=rsUser(db_User_Homepage)%>"> 
      </TD>
    </TR>
    <TR class="tdbg" > 
      <TD align="right"><strong>OICQ号码：</strong></TD>
      <TD> <INPUT name=OICQ id="OICQ" value="<%=rsUser(db_User_QQ)%>" size=30 maxLength=20> 
      </TD>
    </TR>
    <TR class="tdbg" > 
      <TD align="right"><strong>MSN：</strong></TD>
      <TD> <INPUT name=msn value="<%=rsUser(db_User_Msn)%>" size=30 maxLength=50> 
      </TD>
    </TR>
    <TR align="center" class="tdbg" > 
      <TD height="20"><div align="right"><strong><a href="User_ModifyPwd.asp" target="_self">修改密码 
          </a></strong></div></TD>
      <TD height="20">&nbsp;</TD>
    </TR>
    <TR align="center" class="tdbg" > 
      <TD height="40" colspan="2"><input name="Action" type="hidden" id="Action" value="Modify"> 
        <input name=Submit   type=submit id="Submit" value="保存修改结果"></TD>
    </TR>
  </TABLE>
</form>
</body>
</html>
<%
		end if
	end if
	rsUser.close
	set rsUser=nothing
end if
call CloseConn_User()
%>

user_modifyinfo.asp - 源码说明

本页面展示了「利用C++编写的网络跟踪代码」中的 user_modifyinfo.asp 源码文件，采用 ASP 编程语言编写，共 138 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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