📄 saveedit.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="func.asp"-->
<%
logchk session("userid"),session("password")
if session("userid")="" or session("password")="" or session("manbid")="" then
errmsg="您 无 权 管 理 论 坛 ！"
errshow(errmsg)
else
id=request.form("id")
bid=request.form("bid")
if session("manbid")<>0 and cint(bid)<>cint(session("manbid")) then
errmsg="您 无 权 此 论 坛 帖 子 ！"
errshow(errmsg)
end if
title=trim(request.form("title"))
username=trim(request.form("username"))
usermail=trim(request.form("usermail"))
content=request.form("content")
reply=request.form("reply")
title=server.htmlencode(title)
username=server.HTMLEncode(username)
usermail=server.HTMLEncode(usermail)
errmsg=""
err=0
if title="" then
errmsg=errmsg+"<br><br>您 忘 为 您 的 大 作 标 上 一 个 题 目 ！"
err=1
end if
if username="" then
errmsg=errmsg+"<br><br>别 忘 了 写 上 您 的 大 名 ！"
err=1
end if
if usermail<>"" then
if not IsValidEmail(usermail) then
errmsg=errmsg+"<br><br>请 检 查 您 的 妹 儿 ！ 是 不 是 有 点 错 误 ！"
err=1
end if
end if
if isempty(content) or content="" then
errmsg=errmsg+"<br><br>您 的 大 作 还 没 有 写 上 呢 ？"
err=1
end if
if err=1 then
errshow (errmsg)
end if
ldate=now()
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set insert = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText="SELECT * FROM book WHERE id=" &id
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
insert.Open cmdTemp, , 1, 3
insert("title")=title
insert("username")=username
insert("usermail")=usermail
insert("ldate")=ldate
insert("content")=content
insert("reply")=reply
insert.update
if err.number<>0 then
response.write "数据库操作失败："&err.description
end if
set insert=nothing
set cmdTemp=nothing
set conn=nothing
%>
<html>
<head>
<title>my bbs</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#FFFFFF" background="images/bg.gif">
<p align='center'>已 经 成 功 修 改 帖 子 ！</p>
<p align='center'>刷 新 便 可 以 了 ！</p>
<p align='center'>[ <a href='#' onclick="javascript:self.close()" title="关闭此窗口">关闭窗口</a> ]</p>
</body>
</html>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -