write_messge.asp

skybird写的ASP的WAP网站源程序

<%Response.ContentType = "text/vnd.wap.wml"
person_name=request("person_name")
person_content=request("person_content")
person_email=request("person_email")
person_phone=request("person_phone")
'-------------------------------
'写入session
session("person_name")=person_name
session("person_content")=person_content
session("person_email")=person_email
session("person_phone")=person_phone
'错误产生的预防
if  person_name="" then
person_name=uni("请输入姓名！")
elseif person_name<>"" then
              if session("person_content")="" then
              error_message=uni("请输入留言内容。")
              elseif len(session("person_content"))>250 then
              error_message=uni("留言内容太长！")
              end if
              if session("person_email")="" then
              session("person_email")="norecord"
              end if
              if session("person_phone")="" then
              session("person_phone")="norecord"
              end if
%>
<!--#include file="../myinc/dataconnect.inc"-->
<%'打开数据库
  
   if session("person_name")<>"" and error_message="" then'用户名不为空,错误不为零
                   set rs=server.createobject("adodb.recordset")             
sql="insert into guestbook (person_name,person_content,person_email,person_phone)  values ('"&session("person_name")&"','"&session("person_content")&"','"&session("person_email")&"','"&session("person_phone")&"')"
   set rs=con.execute(sql)
error_message=uni("留言成功！")
'###########################################################
'需要修改地址，变为绝对地址。
'Response.Redirect  "http://61.240.131.134/skybird/regmember/overreg.asp"
'####################################

end if
%>
<%
end if'与reg_name=""配对
%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
 	<card id="index" title="<%=uni("天堂鸟论坛")%>" >
<p align="center">
<img src="life.png" alt=""/><%=uni("请您留言")%>
</p>
<p>

<%=error_message%><br/>
<%=uni("姓名:")%><br/>
<input type="text" name="person_name" value="<%=session("online_name")%>" /><br/>
<%=uni("留言内容:")%><br/>
<input type="text" name="person_content" value="" /><br/>
<%=uni("E-mail:")%><br/>
<input type="text" name="person_email" value="@163.com" /><br/>
<%=uni("联系电话:")%><br/>
<input type="text" name="person_phone" value="" /><br/>
<do type="Options" name="521" label="<%=uni("提交")%>">
<go href="write_messge.asp" method="post" accept-charset="gb2312">
<postfield name="person_name" value="$(person_name)" />
<postfield name="person_content" value="$(person_content)" />
<postfield name="person_email" value="$(person_email)" />
<postfield name="person_phone" value="$(person_phone)" />
</go>
</do>

<a title="<%=uni("确定")%>"  href="../index.asp"><%=uni("返回")%></a><br/>
<a title="<%=uni("确定")%>"  href="view_message.asp"><%=uni("查看留言")%></a><br/>
</p>
	</card>

</wml>
<% Function uni(Chinese)
  For i = 1 to Len (Chinese)
a=Mid(Chinese, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
next
End Function
%>