⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 modiperson.asp

📁 Java移动通信程序设计(J2ME MIDP)范例
💻 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 "姓名&nbsp;<INPUT NAME=txtName ID=txtName size=10 value='" &_
               records("name") & "'><BR/>"
Response.Write "EMail&nbsp;<INPUT NAME=txtEMail ID=txtEMail size=25 value='" &_
               records("email") & "'><BR/>"
Response.Write "年龄&nbsp;<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 + -