📄 saveeditannounce.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!--#include file="conn.inc"-->
<!-- #include file="inc/char.inc" -->
<%
dim AnnounceID
dim BoardID
dim UserName
dim useremail
dim Topic
dim Url
dim body
dim UrlTitle
dim PicUrl
dim FoundError
dim ErrMsg
dim dateTimeStr
if session("masterlogin")="true" then
response.write "<html>" +chr(13)+chr(10)
response.write "<head>"+chr(13)+chr(10)
response.write "<meta NAME='GENERATOR' Content='Microsoft FrontPage 3.0'>"+chr(13)+chr(10)
response.write "<meta HTTP-EQUIV='Content-Type' content='text/html; charset=gb_2312-80'>"+chr(13)+chr(10)
response.write "<META HTTP-EQUIV='Expires' CONTENT='0'>"+chr(13)+chr(10)
response.write "<link rel='stylesheet' type='text/css' href='forum.css'>"
response.write "<title>精华帖编辑</title>"+chr(13)+chr(10)
response.write "</head>"+chr(13)+chr(10)
response.write "<body>"+chr(13)+chr(10)
boardID=clng(request("BoardID"))
AnnounceID=Cstr(Request("announceID"))
dim rs
dim sql
set rs=server.createobject("adodb.recordset")
sql="select * from Announce where AnnounceID="+AnnounceID
rs.open sql,conn,1,1
if rs.eof and rs.bof or not (boardID>0) then
rs.close
response.write "<center><P>该贴子找不到，可能被删除了</P></center>"
else
rs.close
if iis3onchsys=true then
UserName=HTMLCharacter(trim(request("name")))
UserEmail=HTMLCharacter(request("email"))
Topic=HTMLCharacter(trim(request("subject")))
Body=HTMLCharacter(request("body"))& " "
URl=HTMLCharacter(trim(request("url")))
UrlTitle=HTMLCharacter(trim(request("UrlTitle")))
PicUrl=HTMLCharacter(trim(request("urlPic")))
else
UserName=trim(request("name"))
UserEmail=request("email")
Topic=trim(request("subject"))
Body=request("body")& " "
URl=trim(request("url") )
UrlTitle=trim(request("UrlTitle"))
PicUrl=trim(request("urlPic"))
end if
FoundError=false
if Trim(Topic)="" then
FoundError=True
if Len(ErrMsg)=0 then
ErrMsg="主题不应为空"
else
ErrMsg=ErrMsg+"<Br>"+"主题不应为空"
end if
elseif len(trim(topic))>255 then
FoundError=True
if Len(ErrMsg)=0 then
ErrMsg="主题长度不能超过255"
else
ErrMsg=ErrMsg+"<Br>"+"主题长度不能超过255"
end if
end if
if (url="" or ucase(URL)="HTTP://") and urltitle<>"" then
ErrMsg="既有链接标题,请输入链接地址"
foundError=true
end if
if FoundError=true then
showAnnounce(ErrMsg)
else
dim cmdTemp
dim InsertCursor
dim dataconn
Set DataConn = Server.CreateObject("ADODB.Connection")
dataconn.open connstr
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set InsertCursor = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT *, UserName FROM Announce WHERE (announceid ="&cstr(announceid)&")"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = dataconn
InsertCursor.Open cmdTemp, , 1, 3
InsertCursor("Topic") =Topic
InsertCursor("Body") =Body
InsertCursor("URL") =URL
InsertCursor("URLTitle")=urltitle
InsertCursor("URLpic") =PicURL
DateTimeStr=InsertCursor("DateAndTime")
InsertCursor("length")=len(body)
InsertCursor.Update
if err then
err.clear
ErrMsg="数据库操作失败，请以后再试"
showAnnounce(ErrMsg)
else
response.write "<p align='center'><strong>版 主 帖 子 编 辑 成 功</strong></p>"
response.write "<p align='center'><strong>"
if pwsonchsys then
showBody Topic
else
response.write Server.HTMLEncode(Topic)
end if
response.write "</strong></p> "+chr(13)+chr(10)
response.write "<hr size='1'>"+chr(13)+chr(10)
if Trim(UserEmail)<>"" then
response.write "<p>"
response.write " <a href='mailto:"+Server.HTMLEncode(UserEmail)+"'>"
if pwsonchsys then
showBody +UserName
else
response.write Server.HTMLEncode(UserName)
end if
response.write "</a> 于 "+DateTimeStr+" 加贴：</p>"+chr(13)+chr(10)
else
response.write "<p> "
if pwsonchsys then
showBody UserName
else
response.write Server.HTMLEncode(UserName)
end if
response.write " 于 "+DateTimeStr+" 加贴：</p>"+chr(13)+chr(10)
end if
if pwsonchsys then
ShowBody(body)
else
showbody(Server.HTMLEncode(body))
end if
response.write "<p><CENTER>"
if urlTitle<>"" then
response.write "<a target='_blank' href='"+Server.HTMLEncode(url)+"'>"
if pwsonchsys then
showBody urlTitle
else
response.write server.htmlencode(urltitle)
end if
response.write "</a><br>"+chr(13)+chr(10)
elseif url<>"" and url<>"http://" then
response.write "<a target='_blank' href='"+Server.HTMLEncode(url)+"'>"+server.htmlencode(url)+"</a><br>"+chr(13)+chr(10)
end if
if picurl<>"" and picurl<> "http://" then
response.write "<img border=0 src='"+server.htmlencode(picurl)+"'>"+chr(13)+chr(10)
end if
response.write "</center></p>"
response.write "<hr size='1'>"+chr(13)+chr(10)
response.write "<a href='manage.asp?BoardID="+cstr(BoardID)+"' target='BoardList'><img border=0 src='images/refresh.jpg' alt='刷新浏览'></a>"+chr(13)+chr(10)
'sendMailToBoardMaster UserName,BoardID
end if
InsertCursor.close
dataconn.close
end if
end if
response.write "</body>"+chr(13)+chr(10)
response.write "</html>"+chr(13)+chr(10)
else
response.write "如果你是版主的话，请从版主入口登录。如果你使用Opera的话，请转为使用IE或NN，Opera导致ASP的Session对象不能用。"
end if%>
<%
function showAnnounce(ErrMsg)
response.write "<font color='red'><strong><Big>输入错误:</big></strong></font><BR><font color='#0000FF'>"+ErrMsg+"</font><BR>"+chr(13)+chr(10)
response.write "<form action='saveEditAnnounce.asp' method='POST' name='frmAnnounce'>"+chr(13)+chr(10)
response.write "<input type='hidden' name='boardID' value='"+cstr(BoardID)+"'>"+chr(13)+chr(10)
response.write "<input type='hidden' name='announceID' value='"+cstr(announceID)+"'>"+chr(13)+chr(10)
response.write "<p align='center'><strong><font color=darkblue>版主编辑帖子</font></strong></p>"+chr(13)+chr(10)
response.write "<p>姓名: "
display username
response.write " <input type='hidden' name='name' size='16' value='"
display username
response.write "' maxlength='50'><input type='hidden' name='passwd' size='10'"+chr(13)+chr(10)
response.write "type='password' maxlength='10'><br>"+chr(13)+chr(10)
response.write "E-MAIL："
display useremail
response.write "<input type='hidden' name='email' size='40' maxlength='40' value='"
display useremail
response.write "'><br>"+chr(13)+chr(10)
response.write "主题: <br>"+chr(13)+chr(10)
response.write "<input name='subject' size='40' value='"
display topic
response.write "' maxlength='255'><br>"+chr(13)+chr(10)
response.write "内容（可选）:<br>"+chr(13)+chr(10)
response.write "<textarea cols='36' name='body' rows='10'>"+ body+"</textarea><br>"+chr(13)+chr(10)
response.write "链接地址（可选）： <input name='url' size='40' value='"
display url
response.write "'><br>"+chr(13)+chr(10)
response.write "链接标题（可选）： <input name='urlTitle' size='40' value='"
display urlTitle
response.write "'><br>"+chr(13)+chr(10)
response.write "链接图片（可选）： <input name='urlPic' size='40' value='"
display Picurl
response.write "'><br>"+chr(13)+chr(10)
response.write "<input class='buttonface' type='submit' value=' 发 送 '> <input class='buttonface' type='reset' value=' 清 除 '> </p>"+chr(13)+chr(10)
response.write "</form>"+chr(13)+chr(10)
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -