📄 updateuser.asp

📁 在线教育系统包括答疑问题提问课程介绍可见下载等模块设计
💻 ASP
字号:
<%
 id=request.querystring("userid")
  Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CSTUDY.mdb")
	set rootrs= server.createobject("adodb.recordset") 
 mySQL = "SELECT * FROM user where IDname='"&session("login")&"'"
rootrs.Open mySQL,conn,1,1%>
<HTML>
<HEAD>
<TITLE><%=title%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" type="text/css" href="css/index1.css">
<link rel="stylesheet" type="text/css" href="css/toolbar2.css">
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<base target="_self">
</HEAD>
<BODY background="image/A-bg.gif" leftMargin=0 topMargin=0>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=c width=95% height="109">
<tr>
<td height="20" width="169" valign="top" align="left">
</td>
<td height="23" width="440" valign="middle" align="center" rowspan="3">
<table width=371 border=0 cellspacing=0 cellpadding=0 height="30">
<tr bgcolor=#808080><td width=12 height=30 valign=top>
<img src=image/home01.gif width=7 height=7></td>
<td width=359 height="30">
<p align="center"><font color="#FFFF00">请填写注册项目(所有项目必须填写)</font></td>
</tr>
</table>
<table width=371 border=0 cellspacing=0 cellpadding=0 height="248">
<tr>
<td width=1 bgcolor=#ffcf5b height="260"></td>
<td height=260 valign="top" width="365">
<br>
<FORM action="mod_user.asp" method="post" name="adduser" onsubmit="return checkuser()">
<table border="1" width="344" bgcolor=#E0E5F5 borderColorDark=#ffffff borderColorLight=#660066
cellPadding=5 cellSpacing=0 align="center">
<tr>
<td align="left" bgcolor="#E0E5F5" width="69">
<font color="#0000FF">密码：</font> </td>
<td align="left" width="249">
<INPUT maxLength=15 name="passwdold" size=20 type=password class="td1" value="<%=rootRs("passwd")%>">
</td> </tr>
<tr>
<td align="left" bgcolor="#E0E5F5" width="69">
<font color="#0000FF">重复密码：</font> </td>
<td align="left" width="249">
<INPUT name="pass2" size=20 type=password class="td1"> (再次输入密码)
</td>
</tr>
<tr>
<td align="left" bgcolor="#E0E5F5" width="69">
<font color="#0000FF">真实姓名：</font> </td>
<td align="left" width="249">
<INPUT maxLength=20 name="name" size=20 class="td1" value="<%=rootRs("name")%>"> (你的真实姓名)<FONTcolor=#ff0000></td>
</tr>
<tr>
<td align="left" bgcolor="#E0E5F5" width="69">
<font color="#0000FF">学号：</font> </td>
<td align="left" width="249">
<INPUT maxLength=20 name="num" size=20 class="td1" value="<%=rootRs("num")%>">
</td>
</tr>
<tr>
<td align="left" bgcolor="#E0E5F5" width="69">
<font color="#0000FF">电子邮件：</font> </td>
<td align="left" width="249">
<INPUT maxLength=20 name="email" size=20 class="td1" value="<%=rootRs("email")%>">
</td>
</tr>
<tr>
<%sql="select * from class"
set rs=conn.execute(sql)
%>
<td align="left" bgcolor="#E0E5F5" width="69">
<font color="#0000FF">所属系别：</font> </td>
<td align="left" width="249">
<select name="department" class="td1">
<option value="<%=rootRs("dept")%>"><%=rootRs("dept")%></option>
<%Do While Not rs.Eof
response.write "<option value='"&rs("dept")&"'>"& rs("dept")
response.write "</option>"
rs.movenext
loop

%>
</select>
</td>
</tr>
<tr>
<td align="left" bgcolor="#E0E5F5" width="69">
<font color="#0000FF">所属班级：</font> </td>
<td align="left" width="249">
<INPUT maxLength=20 name="yourclass" size=20 class="td1" value="<%=rootRs("class")%>">
<INPUT type=hidden name="yourid" size=20 value="<%=rootRs("ID")%>">
</td>
</tr>
<tr>
<td width="330" align="center" colspan="4" bgcolor="#E0E5F5">　
<INPUT name=Write type=submit value=" 更 新 ">
<INPUT name=Reset type=reset value=" 重 写 ">
</td>
</tr>
</table>
</form>
</td>
<td width=1 bgcolor=#ffcf5b height="260"></td></tr>
<tr><td height=1 colspan=3 bgcolor=#ffcf5b width="367">
</td></tr>
</table>
</td>
<td height="50" width="242" valign="top" align="right" rowspan="3">
</td>
</tr>
</table>
</BODY>
</html>
⌨️ 快捷键说明

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