📄 savereply.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="inc/config.asp"-->
<%
'========================================================================================
' 文 件 名: SaveReply.asp
' 版 本: WapForum教程--WAP新闻系统
' 说 明: 新闻回复保存文件 | 请勿删除此说明内容，转载请注明出处。多谢合作！
' 文件日期: 2007-03-01
' 讨论网站: WapForum.cn
'========================================================================================
' Copyright (C) 2007 WapForum.cn. All rights reserved.
' 网 站: http://WapForum.cn
' 电子邮件: Service@WapForum.cn
' 联系ＱＱ: 13431619,44459416,82890065
' QQ交流群: 36508170
'========================================================================================
Response.ContentType="text/vnd.wap.wml;charset=UTF-8" '将文件的格式转换成wml，编码为UTF-8
%>
<?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>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/><!-- 每次都需通过连接服务器调用本页内容 -->
<meta http-equiv="Cache-Control" content="no-cache"/><!-- 禁止浏览器从缓存中访问页面内容 -->
</head>
<card id="SaveReply" title="保存回复">
<%
Dim ID,content
ID=int(Request.Form("ID"))
%>
<onevent type="ontimer"><go href="NewsShow.asp?ID=<%=ID%>" method="get"></go></onevent><timer value="30"/>
<p align="left"><!-- 页面居左对齐 -->
<%
If ID=0 Then
Response.Write ("参数传输出错！<br/>=*=*=*=*=*=<br/>")
Response.Write ("<anchor title=""返回上一页"">返回上一页<prev/></anchor><br/>") '这是WML中的goback代码，相当于Javascript中的history.goback
Response.Write ("<a href=""index.asp"">返回网站首页</a><br/>"&_
"</p></card></wml>")
Response.End '在这里结束代码的执行，避免下面的代码的相关操作会影响程序的执行效果
End IF
content=Replace(Request.Form("content"),Chr(39), "'") '获取content的内容，并讲单引号进行转换
If content="" Then
Response.Write ("内容不能为空！<br/>=*=*=*=*=*=<br/>")
Response.Write ("<anchor title=""返回上一页"">返回上一页<prev/></anchor><br/>")
Response.Write ("<a href=""NewsShow.asp?ID="& ID &""">返回新闻内容</a><br/>"&_
"<a href=""index.asp"">返回网站首页</a><br/>"&_
"</p></card></wml>")
Response.End
End If
Call openConn() '打开数据库
Conn.Execute("Insert Into [NewsComment] (newsID,content) values("& ID &",'"& content &"')")
Call ConnClose()
Response.Write ("回复成功！<br/>=*=*=*=*=*=<br/>")
Response.Write ("<anchor title=""返回上一页"">返回上一页<prev/></anchor><br/>")
Response.Write ("<a href=""NewsShow.asp?ID="& ID &""">返回新闻内容</a><br/>"&_
"<a href=""index.asp"">返回网站首页</a><br/>"&_
"</p></card></wml>")
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -