⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 updatauserinfor_second.asp

📁 一个网上的考试系统
💻 ASP
字号:
<!--#include file ="../include.asp"-->
<% 
	StartPage "修改用户信息确认页",2
%>

<!--
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY  leftmargin=150 rightmargin=150 topmargin=30>
<IMG src="../images/title.JPG" border=0>
<hr>
<br>
-->
<%
	UserName = Request.Form ("UserName")
	password = Request.Form("Password")
	Question = Request.Form("Question")
	Answer = Request.Form("Answer")
	Specialty = Request.Form("Specialty")
	TeletePhone = Request.Form("TeletePhone")
	Email = Request.Form("Email")
	
	OldUserName = Request.Form ("OldUserName")
%>
<table  width="90%"          
  align=center border=1 bordercolor=lightskyblue cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse">
	<tr>
		<td  height=20  bgcolor=lightskyblue></td>
	</tr>
	
	<tr>
		<td  height=200  align=middle>
			<table  width="90%">
				<tr>
					<td  align=middle  colspan=2><font size= 6  color=lightskyblue>用户信息修改页</font></td>
				</tr>
				
				<tr>
					<td  colspan=2><b><font size=5 color=lightskyblue>修改流程</font></b></td>
				</tr>
				
				<tr>
					<td  align=center><b><font size=5 color=lightskyblue>填写内容</font></b></td>
					<td  align=center>
					<%
						set conn = Server.CreateObject ("adodb.connection")
						conn.Open "NetExamine","sa",""
						set userconn = Server.CreateObject ("adodb.recordset")	
						sqlstr = "update 用户表 set 用户名 = '"+UserName+"',密码 = '"+password+"',提示问题 = '"+Question+"',"
						sqlstr = sqlstr + "提示答案 = '"+Answer+"',专业 = '"+Specialty+"',联系电话 = '"+TeletePhone+"',联系邮箱 = '"+Email+"' "
						sqlstr = sqlstr +"where 用户名 ='"+OldUserName+"'"
						userconn.Open sqlstr,conn
						'userconn.Close ()
						conn.Close ()
						Response.Write "<font color=lightskyblue>您已经修改成功!</font>"
					%>
					</td>
				</tr>
				
				<tr>
					<td  align=center><b><font size=5 color=lightskyblue>确认修改</font></b></td>
					<td  align=center></td>
				</tr>
				
				<tr>
					<td  align=middle colspan=2  height=15><td></td>
				</tr>
			</table>
		</td>
	</tr>
	
	<tr>
		<td  height=20  bgcolor=lightskyblue></td>
	</tr>
</table>
<!--
<br>
<hr>
<center>
<font  size=2>
欢迎来到本网站,最佳分辨率:800×600
<br>如果有困难请与我联系:FD_FYY@hotmail.com
</font>
</BODY>
</HTML>
-->
<% 
	EndPage
%>

⌨️ 快捷键说明

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