user_message_send_ok.asp

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

<%@LANGUAGE="VBSCRIPT"  CODEPAGE="65001"%>
<!--#include file="inc/conn.asp"--><%
response.ContentType="text/vnd.wap.wml"
content=request.form("content")
toname=request.form("toname")
name=request.form("name")
sender=request.form("studentid")
session("name")=name
session("studentid")=sender
title=request.form("title")
%>
<%
	title=HtmlEncode(trim(title))
	content=HtmlEncode(content)
         set rs=server.CreateObject("Adodb.Recordset")
	sql="select ec.studentid,ec.sname from ec where sname='"&toname&"'"
         rs.open sql,conn,1,3
if rs.eof then
rs.close
set rs=nothing
conn.close
set conn=nothing
session("error")=5
response.redirect("error.asp")
else
toname=rs("studentid")
rs.close
set rs=nothing
end if

	set rs=server.CreateObject("Adodb.Recordset")
	rs.open "select * from permsg",conn,1,3
	rs.addnew()
		rs("title")=title
		rs("content")=content
		rs("adddate")=now()
                rs("towho")=toname
                rs("username")=sender
	rs.update
	rs.close
	set rs=nothing
  conn.close
 set conn=nothing

 
%>

<%
Function HtmlEncode(str)
    If Trim(Str)="" Or IsNull(str) Then Exit Function
  '  str=Replace(str,">","&gt;")
  '  str=Replace(str,"<","&lt;")
    str=Replace(str,Chr(32),"&nbsp;")
    str=Replace(str,Chr(9),"&nbsp;")
    str=Replace(str,Chr(34),"&quot;")
    str=Replace(str,Chr(39),"&#39;")
    str=Replace(str,Chr(13),"")
    str=Replace(str,Chr(10) & Chr(10), "</p><p>")
    str=Replace(str,Chr(10),"<br> ")
    HtmlEncode=str
End Function
%>

<?xml version="1.0"?> 
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card>
<p>OK
发送成功！</p>


<p><anchor title="Back">&#x8FD4;&#x56DE;&#x4E3B;&#x754C;&#x9762;
<go href="main.asp"/>
</anchor></p>
</card>
</wml>