modify.asp
来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 36 行
ASP
36 行
<!--#Include File=conn.asp -->
<%
ID=request.Querystring("ID") '
set rs = server.createobject("adodb.recordset")
SqlStr="select * from userlist where id="&id
Set Rs=Conn.Execute(SqlStr)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改通讯录</title>
</head>
<body>
<p><font face="幼圆" size="3"><b>修改通讯录</b></font></p>
<form method="post" action="PostModify.asp">
<input type=hidden name="ID" Value=<%=ID%>>
姓名:<input type="text" name="Name" size="20" value="<%=rs("姓名")%>">
<p>性别:
<Select Name="Sex">
<Option <%If rs("性别")="男" Then Response.Write "Selected" End If%> Value="男">男</Option>
<Option <%If rs("性别")="女" Then Response.Write "Selected" End If%> Value="女">女</Option
</select></p>
出生日期:<input type="text" name="Birthday" value="<%=rs("出生日期")%>">
<font size="2">日期格式:1980-3-9</font>
<p>电话:<input type="text" name="Tel" value="<%=rs("电话")%>"></p>
地址:<input type="text" name="Address" value="<%=rs("地址")%>">
<p>Email:<input type="text" name="EMAIL" value="<%=rs("EMAIL")%>"></p>
<p><input name="B1" type="submit" value="保存修改">
<input name="B2" type="reset" value="全部重写">
<input name="bt3" onclick="document.location.href='show.asp';" style="CURSOR: hand; WIDTH: 80px" type="button" value="返 回"></p>
</form>
<%RS.CLOSE
SET RS=NOTHING%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?