lytj.asp

来自「自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑」· ASP 代码 · 共 56 行

<%@LANGUAGE="VBSCRIPT"  CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<!--#include file="cconst.asp"-->
<%
response.ContentType="text/vnd.wap.wml"
content=request.form("content")
studentid=request.form("studentid")
if studentid="" then
response.redirect("error.asp")
end if
%>
<%

	title=HtmlEncode(trim(title))
	content=HtmlEncode(content)
        	set rs=server.CreateObject("Adodb.Recordset")
	rs.open "select * from forum",conn,1,3
	rs.addnew()
		rs("studentid")=studentid
		rs("content")=content
		rs("pubtime")=now()
	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>