user_message_send.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file="inc/cconst.asp"-->
<% 
response.ContentType="text/vnd.wap.wml;charset=utf-8"
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
if session("name")="" then
response.redirect("error.asp")
end if 
name=session("name")
studentid=session("studentid")
sname=request.form("sname")
txt1="<postfield name='name' value='"&name&"'/>"
txt2="<postfield name='studentid' value='"&studentid&"'/>"
%>
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="sendnote" title="<%=tra(csendnote)%>">
<p align="center"><%=tra(csendnote)%></p>
<p><%=tra(csender)%><%=session("name")%></p>
<p><%=tra(ctoname)%><input name="toname" title="toname" value="<%=wap_81238_net(sname)%>"/></p>
<p><%=tra(cmsg)%></p>
<p><%=tra(ccontent)%><input name="content" title="content"/></p>
<p align="center"><anchor title="OK"><%=tra(csubmit)%>
<go href="User_Message_Send_ok.asp" method="post">
<%response.write txt1%>
<%response.write txt2%>
<postfield name="toname" value="$(toname)"/>
<postfield name="content" value="$(content)"/>
<postfield name="title" value="<%=tra(chandphone)%>"/>
</go>
</anchor>
</p>
<p><a href="main.asp"><%=tra(cbackmain)%></a></p>
</card>
</wml>