📄 09_04a.asp

📁 ASPTest 网络基础网页设计

💻 ASP

字号:

<html>
<head>
<title>修改记录的输入表单</title>
</head>
<body>
<%
Dim cn,rs
Dim mySql
Session("ID") = Request("txtID")
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
cn.Open "Driver={SQL Server};Server=yangwu;Database=ASPTest;" & _
          "UID=sa;PWD=admin"
rs.Open "SELECT * FROM Chapter1 WHERE ID='"&request("txtID")&"'",cn
%>
<form method="POST" action="09_04b.asp">
   注册ID：&nbsp;&nbsp; 
  <input type="text" name="txtID" size="20" value=<%=rs(0)%>>
  <p>注册密码：
  <input type="password" name="txtPWD" size="20" value=<%=rs(1)%>>
  <p>电子邮件：
  <input type="text" name="txtEmail" size="20" value=<%=rs(2)%>></p>
  <p><input type="submit" value="提交" name="btnSubmit">
  <input type="reset" value="重置" name="btnReset"></p>
</form>
<%
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -