📄 modiperson.asp
字号:
<HTML>
<BODY>
<%
Set cnnDB = Server.CreateObject("ADODB.Connection")
cnnDB.Open "MIDPDB"
querySQL = "SELECT * FROM person where name='" & request("txtName") & "'"
set records = Server.CreateObject("ADODB.Recordset")
records.Open querySQL,cnnDB
if records.EOF then
Response.Write "Not found"
else
Response.Write "<HTML>"
Response.Write "<BODY>"
Response.Write "<FORM NAME=frm1 MEHTOD=post ACTION=updateperson.asp><br/>"
Response.Write "姓名 <INPUT NAME=txtName ID=txtName size=10 value='" &_
records("name") & "'><BR/>"
Response.Write "EMail <INPUT NAME=txtEMail ID=txtEMail size=25 value='" &_
records("email") & "'><BR/>"
Response.Write "年龄 <INPUT NAME=txtAge ID=txtAge size=3 value='" &_
records("age") & "'><BR/>"
Response.Write "<INPUT TYPE=submit VALUE=提交><INPUT TYPE=reset VALUE=重写>"
Response.Write "</FORM>"
Response.Write "<p/>"
Response.Write "<A HREF=person.htm>通讯簿</A>"
Response.Write "<A HREF=lucky.htm>运势</A>"
Response.Write "<A HREF=mainmenu.asp>主目录</A>"
Response.Write "</BODY>"
Response.Write "</HTML>"
' Response.Write records("name")
' Response.Write "\n"
' Response.Write records("email")
' Response.Write "\n"
' Response.Write records("age")
end if
records.close
set records = nothing
cnnDB.Close
set cnnDB = nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -