<%@ LANGUAGE=VBScript codepage ="936" %><!--#include file="CONFIG.ASP"-->
<!--#include file="CONN.ASP"-->
<%
varname= request.form("name")
varsex= request.form("sex")
varemail= request.form("email")
varhomepage= request.form("homepage")
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 width="550" border="1" align="center" cellspacing="1" bordercolor="<%=titlelightcolor%>">
  <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;<font
            color="#c0c0c0">这是你的登录结果</font></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>
<!--#include file="copyright.asp"-->
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
