📄 save.asp

📁 自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求
💻 ASP
字号:
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->
<%
varname= request.form("name")
varsex= request.form("sex")
varemail= request.form("email")
varhoempage= request.form("hoempage")
varwishtype= request.form("wishtype")
varaddress= request.form("address")
varinfo= request.form("info")

if varname="" then
    response.redirect "error.asp?msg=你的姓名不能为空"
end if

if varemail="" then
    response.redirect "error.asp?msg=你的电子邮件地址不对!!"
end if

if varaddress="" then
    response.redirect "error.asp?msg=你的居住地方不能不选!"
end if

if varinfo="" then
    response.redirect "error.asp?msg=你的愿望好像忘了写!"
end if

function HTMLEncode(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode = fString
end function

Set rs = Server.CreateObject("ADODB.Recordset")
sql ="Select * From wish"
rs.Open sql, conn,1,3
rs.addnew
rs("name")=varname
rs("sex")=varsex
rs("email")=varemail
rs("homepage")=varhomepage
rs("wishtype")=varwishtype
rs("address")=varaddress
rs("info")=htmlencode(varinfo)
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs("date")=date()
rs.update
rs.close
%>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<head>
<style type="text/css">
<!--
a {  text-decoration: none}  
a:hover {  text-decoration: underline} 
table {  font-size: 9pt}
body,table,p,td,input {  font-size: 9pt} 
-->
</style>
<title><%=title%></title>
</head>
<body bgcolor="<%=bgcolor%>" text="<%=textcolor%>" link="<%=linkcolor%>"><form method="post" action="wish.asp"> <div align="center"><center> 
<table border="1" cellspacing="1" width="550" bordercolor="<%=titlelightcolor%>" align="center">
  <tr> 
    <td width="100%" height="18" bgcolor=<%=titledarkcolor%>>
      <p align="center"><font color=<%=titlelightcolor%>>[<%=title%>] 祈求愿望</font>
    </td>
  </tr>
  <tr> 
    <td colspan="2" height="23"> 
      <p align="center">&nbsp;这是你的登录结果</p>
    </td>
  </tr>
  <tr align="center">
    <td>
      <table align=center width=90% border=0>
        <tr> 
          <td>姓　　名: </td>
          <td><%=varname%></td>
        </tr>
          <tr>
          <td> 姓　　别: </td>
          <td><%=varsex%></td>
        </tr>
        <tr>
          <td> 信　　箱: </td>
          <td><%=varemail%></td>
        </tr>
        <tr>
          <td> 主　　页: </td>
          <td><%=varhomepage%></td>
        </tr>
        <tr>
          <td> 愿望类别: </td>
          <td><%=varwishtype%></td>
        </tr>
        <tr>
          <td> 居住地方: </td>
          <td><%=varaddress%></td>
        </tr>
        <tr>
          <td> 祈求愿望: </td>
          <td><%=varinfo%></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
  <tr> 
    <td align="center" height="25">
      <input type="submit" style="border:1 solid <%=titlelightcolor%>;color:<%=titlelightcolor%>;background-color:white" value="返回祈愿板">
    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -