📄 save.asp

📁 该资料包含大量网络开发的案例和源代码

💻 ASP

字号:

<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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -