📄 modify.asp.txt
字号:
<%
dim IID, sql, rs
IID=request("id")
if IID="" then Response.Redirect "index.asp"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("classmate.mdb")
Conn.Open
set rs=server.createobject("adodb.recordset")
sql="select * from classmate where 姓名= '" & iid & "'"
rs.Open sql,conn,1,1
%>
<HTML>
<HEAD><title>同学录</title></HEAD>
<BODY>
<P align=center><FONT face=隶书 size=6>修改同学信息</FONT><hr>
<FORM action="modifynew.asp?id=<%=rs("姓名")%>" method=post name=form1>
<table align=center>
<tr><td><FONT face=华文彩云 size=4>姓名：</FONT>
<td><INPUT name=text1 value=<%=rs("姓名")%> ReadOnly=false>
<TR><td><FONT face=华文彩云 size=4>性别：</FONT>
<td><SELECT name=sel1>
<OPTION selected><%=rs("性别")%></OPTION>
<OPTION>男</OPTION>
<OPTION>女</OPTION></SELECT>
<TR><td><FONT face=华文彩云 size=4>生日：</FONT>
<td><INPUT name=text2 value=<%=rs("出生日期")%>>
<TR><td><FONT face=华文彩云 size=4>联系电话：</FONT>
<td><INPUT name=text3 value=<%=rs("电话")%>>
<TR><td><FONT face=华文彩云 size=4>手机：</FONT>
<td><INPUT name=text4 value=<%=rs("手机")%>>
<TR><td><FONT face=华文彩云 size=4>家庭住址：</FONT>
<td><INPUT name=text5 value=<%=rs("住址")%>>
<TR><td><FONT face=华文彩云 size=4>所在单位：</FONT>
<td><INPUT name=text6 value=<%=rs("单位")%>>
<TR><td><FONT face=华文彩云 size=4>电子信箱：</FONT>
<td><INPUT name=text7 value=<%=rs("Email")%>>
<TR><td colspan=2 align=center>
<INPUT type=submit value="确认修改">
<INPUT type=button value="放弃修改" name = b1>
<SCRIPT for=b1 event=onclick language=VbScript>
history.back()
</SCRIPT>
</table>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -