📄 savelogin.asp

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

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body bgcolor="#99CCFF">
<div align="center"> 
  <% 
Set objconn = Server.CreateObject("ADODB.Connection")
connstr="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(".\register.Mdb")

objconn.Open connstr
sqlstr="select * from user"
set objrs=server.CreateObject("ADODB.Recordset")
objrs.open sqlstr,objconn,2,3
if trim(request("textfield"))<>"" then
	objrs.addnew
	objrs("name")=request("textfield")
	objrs("gender")=request("radiobutton")
	objrs("password")=request("textfield2")
	objrs("regtime")=now()
	objrs("age")=request("textfield3")
	objrs("email")=request("textfield4")
	objrs("jieshao")=request("textfield5")
	objrs.update

%>
  <p><strong><font color="#CC33FF">恭喜您已成功注册以下信息 :</font></strong></p>
  </div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="42%"><div align="right"><font color="#CC00CC">Name:</font></div></td>
    <td width="58%"><%=objrs("name")%></td>
  </tr>
  <tr> 
    <td><div align="right"><font color="#CC00CC">Gender:</font></div></td>
    <td><%=objrs("gender")%></td>
  </tr>
  <tr> 
    <td><div align="right"><font color="#CC00CC">Password:</font></div></td>
    <td><%=objrs("password")%></td>
  </tr>
  <tr> 
    <td><div align="right"><font color="#CC00CC">age:</font></div></td>
    <td><%=objrs("age")%>&nbsp;</td>
  </tr>
  <tr> 
    <td><div align="right"><font color="#CC00CC">email:</font></div></td>
    <td><%=objrs("email")%>&nbsp;</td>
  </tr>
  <tr> 
    <td><div align="right"><font color="#CC00CC">jieshao:</font></div></td>
    <td><%=objrs("jieshao")%>&nbsp;</td>
  </tr>
</table>
<% else
response.Write("用户名不能为空!")
end if %>
<p><a href="../../default.asp" target="_self">返回</a></p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -