sendnote.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<!--#include file="tra.asp"-->
<!--#include file="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="<%=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="recnote.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>