save.asp

来自「该资料包含大量网络开发的案例和源代码」· ASP 代码 · 共 56 行

ASP

56 行

<HTML><HEAD><TITLE>同学会信息管理系统</TITLE><meta name="Microsoft Border" content="t, default">
</HEAD>
<BODY topmargin=10><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>

<p align="center"><font size="6"><strong></strong></font><br>
</p>
<p align="center">&nbsp;</p>

</td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">

<%
name=Request.form("name")
if name="" then
   response.write"<center>对不起，不输入姓名不能登记！<br><br>"
   response.write"请返回登记表页面。</center>"
else
   gender=Request.form("gender")
   age=Request.form("age")
   address=Request.form("address")
   email=Request.form("email")
     
   set Conn=Server.CreateObject("ADODB.connection")
   constr="Provider=microsoft.jet.oledb.4.0;Data source=" & Server.mappath("my97.mdb")
   conn.Open constr

   set rs1=Server.CreateObject("ADODB.RecordSet")
   
   sql="select * from members where name='" &name &"'"
    rs1.Open sql,conn,2,3

   if rs1.eof then
   
   rs1.addnew
   rs1("name")=name
   rs1("gender")=gender 
  rs1("age")=age
  rs1("address")=address
  rs1("email")=email

  rs1.update
   response.write "<center><font face=隶书 size=5 color=#aa0000>"
   response.write "欢迎加入上海同济大学同学会！</font><br>"
   response.write "<A href=members.asp>显示数据</a></center>"
   else
   response.write"<center>对不起，你已经登记过了！<br><br>"
   response.write"<a href=register.htm>请返回登记表页面。</a></center>"
   end if
   rs1.close
   conn.close
end if

%>

<!--msnavigation--></td></tr><!--msnavigation--></table></BODY></HTML>

save.asp - 源码说明

本页面展示了「该资料包含大量网络开发的案例和源代码」中的 save.asp 源码文件，采用 ASP 编程语言编写，共 56 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与网络开发相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?