📄 admin_guestbook.asp
字号:
Next
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td valign='middle' align='right'>留言内容： <br>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " <td colspan='4' valign='top'>" & vbCrLf
'Response.Write " <textarea name='GuestContent' cols='59' rows='6' onkeydown=gbcount(this.form.GuestContent,this.form.total,this.form.used,this.form.remain); onkeyup=gbcount(this.form.GuestContent,this.form.total,this.form.used,this.form.remain);>" & rs("GuestContent") & "</textarea>" & vbCrLf
Response.Write " <textarea name='GuestContent' id='GuestContent' style='display:none' >" & Server.HTMLEncode(rs("GuestContent")) & "</textarea>" & vbCrLf
Response.Write " <iframe ID='editor' src='../editor.asp?ChannelID=1&ShowType=2&tContentid=GuestContent' frameborder='1' scrolling='no' width='480' height='280' ></iframe>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td valign='middle' align='center'></td>" & vbCrLf
Response.Write " <td colspan='4' valign='top'>" & vbCrLf
Response.Write " <FONT color=green>小提示：</FONT>换行请按Shift+Enter,另起一段请按Enter " & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td valign='middle' align='right'>是否隐藏： </td>" & vbCrLf
Response.Write " <td colspan='4' valign='top'>" & vbCrLf
Response.Write " <input type='radio' name='GuestIsPrivate' value='no' "
If rs("GuestIsPrivate") = False Then Response.Write " checked"
Response.Write " style='BORDER:0px;'>" & vbCrLf
Response.Write " 正常" & vbCrLf
Response.Write " <input type='radio' name='GuestIsPrivate' value='yes' "
If rs("GuestIsPrivate") = True Then Response.Write " checked"
Response.Write " style='BORDER:0px;'>" & vbCrLf
Response.Write " 隐藏 <font color=#009900>*</font> 选择隐藏后，此留言只有管理员和留言者才可以看到。</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td colspan='5' align='center' height='40'>" & vbCrLf
Response.Write " <input type='hidden' name='GuestID' value='" & GuestID & "'>"
Response.Write " <input name='Action' type='hidden' id='Action' value='SaveModify'>"
Response.Write " <input name='Save' type='submit' value='保存修改结果' style='cursor:hand;'> "
Response.Write " <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_GuestBook.asp';"" style='cursor:hand;'>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </form>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
rs.Close
Set rs = Nothing
End Sub
Sub SaveModify()
Dim GuestName, GuestSex, GuestOicq, GuestEmail, GuestHomepage, GuestFace, GuestImages, GuestIcq, GuestMsn
Dim GuestTitle, GuestContent, GuestIsPrivate, GuestIsPassed
Dim GuestPassword, GuestPasswordConfirm, GuestQuestion, GuestAnswer
Dim sqlMaxId, rsMaxId, MaxId, Saveinfo, sqlReg, rsReg
KindID = Trim(Request("KindID"))
KindID = PE_CLng(KindID)
If AdminPurview = 2 And AdminPurview_GuestBook = 3 And CheckKindPurview(0, KindID) = False Then
FoundErr = True
ErrMsg = ErrMsg & "<li>你没有操作权限！</li>"
Exit Sub
End If
GuestContent = FilterJS(Request("GuestContent"))
'If UserLogined = False Then
GuestName = PE_HTMLEncode(Trim(Request("GuestName")))
GuestSex = Trim(Request("GuestSex"))
GuestOicq = PE_HTMLEncode(Trim(Request("GuestOicq")))
GuestIcq = PE_HTMLEncode(Trim(Request("GuestIcq")))
GuestMsn = PE_HTMLEncode(Trim(Request("GuestMsn")))
GuestEmail = PE_HTMLEncode(Trim(Request("GuestEmail")))
GuestHomepage = PE_HTMLEncode(Trim(Request("GuestHomepage")))
If GuestHomepage = "http://" Or IsNull(GuestHomepage) Then GuestHomepage = ""
'Else
' GuestName = UserName
'End If
GuestImages = Trim(Request("GuestImages"))
GuestFace = Trim(Request("GuestFace"))
GuestTitle = PE_HTMLEncode(Trim(Request("GuestTitle")))
GuestIsPrivate = Trim(Request("GuestIsPrivate"))
If GuestIsPrivate = "yes" Then
GuestIsPrivate = True
Else
GuestIsPrivate = False
End If
If GuestName = "" Or GuestTitle = "" Or GuestContent = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>留言保存失败！</li><li>请将必要的信息填写完整！</li>"
Exit Sub
End If
GuestID = Request("GuestID")
If GuestID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请指定要编辑的留言ID！</li>"
Exit Sub
Else
GuestID = PE_CLng(GuestID)
sqlMaxId = "select max(GuestMaxId) as MaxId from PE_GuestBook"
Set rsMaxId = Conn.Execute(sqlMaxId)
MaxId = rsMaxId("MaxId")
If MaxId = "" Or IsNull(MaxId) Then MaxId = 0
Set rsMaxId = Nothing
Set rsGuest = Server.CreateObject("adodb.recordset")
sql = "select * from PE_GuestBook where GuestID=" & GuestID
rsGuest.Open sql, Conn, 1, 3
rsGuest("KindID") = KindID
rsGuest("GuestName") = GuestName
rsGuest("GuestSex") = GuestSex
rsGuest("GuestOicq") = GuestOicq
rsGuest("GuestIcq") = GuestIcq
rsGuest("GuestMsn") = GuestMsn
rsGuest("GuestEmail") = GuestEmail
rsGuest("GuestHomepage") = GuestHomepage
rsGuest("GuestTitle") = GuestTitle
rsGuest("GuestFace") = GuestFace
rsGuest("GuestContent") = GuestContent
rsGuest("GuestImages") = GuestImages
rsGuest("GuestMaxId") = MaxId + 1
rsGuest("GuestIsPrivate") = GuestIsPrivate
rsGuest.Update
End If
Call ClearSiteCache(4)
Call CloseConn
Response.Redirect "Admin_GuestBook.asp"
End Sub
Sub Show()
If GuestID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请指定要显示的留言ID！</li>"
Exit Sub
Else
GuestID = PE_CLng(GuestID)
End If
sql = "select * from PE_GuestBook where GuestID=" & GuestID
Set rsGuest = Server.CreateObject("adodb.recordset")
rsGuest.Open sql, Conn, 1, 1
If rsGuest.BOF And rsGuest.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>找不到指定的留言！</li>"
rsGuest.Close
Set rsGuest = Nothing
Exit Sub
End If
Response.Write "<br>"
Call ShowGuestList
End Sub
Sub AdminReply()
Dim GuestReply, ReplyIsPrivate
If GuestID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请指定要修改的留言ID！</li>"
Exit Sub
Else
GuestID = PE_CLng(GuestID)
End If
sql = "select * from PE_GuestBook where GuestID=" & GuestID
Set rsGuest = Server.CreateObject("adodb.recordset")
rsGuest.Open sql, Conn, 1, 1
If rsGuest.BOF And rsGuest.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>找不到指定的留言！</li>"
rsGuest.Close
Set rsGuest = Nothing
Exit Sub
End If
If AdminPurview = 2 And AdminPurview_GuestBook = 3 And CheckKindPurview(6, rsGuest("KindID")) = False Then
FoundErr = True
ErrMsg = ErrMsg & "<li>你没有操作权限！</li>"
Exit Sub
End If
GuestReply = rsGuest("GuestReply")
ReplyIsPrivate = rsGuest("ReplyIsPrivate")
Response.Write "<br>"
Call ShowGuestList
Response.Write "<script language=JavaScript>" & vbCrLf
Response.Write "function check(thisform)" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " var CurrentMode=editor.CurrentMode;" & vbCrLf
Response.Write " if (CurrentMode==0){" & vbCrLf
Response.Write " document.myform.GuestContent.value=editor.HtmlEdit.document.body.innerHTML; " & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " else if(CurrentMode==1){" & vbCrLf
Response.Write " document.myform.GuestContent.value=editor.HtmlEdit.document.body.innerText;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if(document.myform.GuestContent.value==''){" & vbCrLf
Response.Write " alert('留言内容不能为空！');" & vbCrLf
Response.Write " editor.HtmlEdit.focus();" & vbCrLf
Response.Write " return(false);" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if(thisform.GuestContent.value.length>800){" & vbCrLf
Response.Write " alert('留言内容不能超过800字符！');" & vbCrLf
Response.Write " thisform.GuestContent.focus();" & vbCrLf
Response.Write " return(false);" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<br><table width='100%' cellpadding='1' cellspacing='0' class='border'>" & vbCrLf
Response.Write " <form name='myform' method='post' action='Admin_GuestBook.asp?action=SaveAdminReply' onSubmit='return check(myform)'>" & vbCrLf
Response.Write " <tr class='title'>" & vbCrLf
Response.Write " <td height='22' colspan='3'> <font color=green>回复留言</font></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td align='right'> </td>" & vbCrLf
Response.Write " <td colspan='2'>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='20%' valign='middle' align='right'>回复内容： </td>" & vbCrLf
Response.Write " <td colspan='2' valign='top'>" & vbCrLf
'Response.Write " <textarea name='GuestContent' cols='59' rows='6' >" & GuestReply & "</textarea>"
Response.Write " <textarea name='GuestContent' id='GuestContent' style='display:none' >" & Server.HTMLEncode(FilterJS(GuestReply)) & "</textarea>" & vbCrLf
Response.Write " <iframe ID='editor' src='../editor.asp?ChannelID=1&ShowType=2&tContentid=GuestContent' frameborder='1' scrolling='no' width='480' height='280' ></iframe>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='20%' valign='middle' align='right'>是否隐藏：</td>" & vbCrLf
Response.Write " <td vAlign=top colSpan=2>" & vbCrLf
Response.Write " <Input style='BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px' type=radio name='ReplyIsPrivate' value='0' " & IsRadioChecked(ReplyIsPrivate, False) & "> 正常 " & vbCrLf
Response.Write " <Input style='BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px' type=radio name='ReplyIsPrivate' value='1' " & IsRadioChecked(ReplyIsPrivate, True) & "> 隐藏 <FONT color=red>*</FONT> <FONT color=green>选择隐藏后，此留言只有管理员和留言者才可以看到。</FONT></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td colspan='3' align='center' height='40'><input name='GuestID' type='hidden' value='" & GuestID & "'>" & vbCrLf
Response.Write " <input type='submit' name='Sub⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -