admin_guestbook.asp

个人网站比较简短

        Else
            Response.Write "<a href=" & UserHomepage & " target=""_blank"">"
            Response.Write "<img src=" & GImagePath & "url.gif width=45 height=16 alt=" & UserHomepage & " border=0></a>" & vbCrLf
        End If
        If UserOicq = "" Or IsNull(UserOicq) Then
            Response.Write "<img src=" & GImagePath & "nooicq.gif width=45 height=16 alt=" & UserGuestName & "没有留下QQ号码 border=0>" & vbCrLf
        Else
            Response.Write "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=" & UserOicq & " target='_blank'>"
            Response.Write "<img src=" & GImagePath & "oicq.gif width=45 height=16 alt=" & UserOicq & " border=0 ></a>" & vbCrLf
        End If
        If UserEmail = "" Or IsNull(UserEmail) Then
            Response.Write "<img src=" & GImagePath & "noemail.gif width=45 height=16 alt=" & UserGuestName & "没有留下Email地址 border=0>" & vbCrLf
        Else
            Response.Write "<a href=mailto:" & UserEmail & ">"
            Response.Write "<img src=" & GImagePath & "email.gif width=45 height=16 border=0 alt=" & UserEmail & "></a>" & vbCrLf
        End If
        Response.Write "<img src=" & GImagePath & "other.gif width=45 height=16 border=0 onMouseOut=toolTip() onMouseOver=""toolTip('&nbsp;Icq：" & UserIcq & "<br>&nbsp;Msn：" & UserMsn & "<br>&nbsp;I P：" & rsGuest("GuestIP") & "')"">" & vbCrLf
        Response.Write "<a href=" & FileName & "?action=reply&guestid=" & rsGuest("GuestId") & ">"
        Response.Write "                      </td>" & vbCrLf
        Response.Write "                    </tr>" & vbCrLf
        Response.Write "                  </table>" & vbCrLf
        Response.Write "                </td>" & vbCrLf
        Response.Write "              </tr>" & vbCrLf
        Response.Write "            </table>" & vbCrLf
        Response.Write "          </td>" & vbCrLf
        Response.Write "        </tr>" & vbCrLf
        Response.Write "      </table>" & vbCrLf
        Response.Write "      <table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
        Response.Write "        <tr>" & vbCrLf
        Response.Write "          <td class='main_shadow'>" & vbCrLf
        Response.Write "          </td>" & vbCrLf
        Response.Write "        </tr>" & vbCrLf
        Response.Write "      </table>" & vbCrLf
        rsGuest.MoveNext
        GuestNum = GuestNum + 1
        If GuestNum >= MaxPerPage Then Exit Do
    Loop
End Sub

Sub ShowJS_Guest()
    Response.Write "<script language = 'JavaScript'>" & vbCrLf
    Response.Write "function changeimage()" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "  document.myform.GuestImages.value=document.myform.Image.value;" & vbCrLf
    Response.Write "  document.myform.showimages.src='" & GFacePath & "'+document.myform.Image.value+'.gif';" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function guestpreview()" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "  document.preview.content.value=document.myform.GuestContent.value;" & vbCrLf
    Response.Write "  var popupWin = window.open('GuestPreview.asp', 'GuestPreview', 'scrollbars=yes,width=620,height=230');" & vbCrLf
    Response.Write "  document.preview.submit();" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function CheckForm()" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "  if(document.myform.GuestName.value==''){" & vbCrLf
    Response.Write "    alert('姓名不能为空！');" & vbCrLf
    Response.Write "    document.myform.GuestName.focus();" & vbCrLf
    Response.Write "    return(false) ;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if(document.myform.GuestTitle.value==''){" & vbCrLf
    Response.Write "    alert('留言主题不能为空！');" & vbCrLf
    Response.Write "    document.myform.GuestTitle.focus();" & vbCrLf
    Response.Write "    return(false);" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if(document.myform.GuestTitle.value.length>30){" & vbCrLf
    Response.Write "    alert('留言主题不能超过30字符！');" & vbCrLf
    Response.Write "    document.myform.GuestTitle.focus();" & vbCrLf
    Response.Write "    return(false);" & 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(document.myform.GuestContent.value.length>65536){" & vbCrLf
    Response.Write "    alert('留言内容不能超过64K！');" & vbCrLf
    Response.Write "    editor.HtmlEdit.focus();" & vbCrLf
    Response.Write "    return(false);" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf

    Response.Write "</script>" & vbCrLf
End Sub

Sub Modify()
    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 rs = Server.CreateObject("adodb.recordset")
    rs.Open sql, Conn, 1, 1
    If rs.BOF And rs.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的留言！</li>"
        rs.Close
        Set rs = Nothing
        Exit Sub
    End If
    If AdminPurview = 2 And AdminPurview_GuestBook = 3 And CheckKindPurview(0, rs("KindID")) = False Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>对 " & rs("GuestTitle") & " 没有操作权限！</li>"
        Exit Sub
    End If
    
    Call ShowJS_Guest
    Response.Write "<br><table width='100%' border='0' align='center' cellpadding='0' cellspacing='0' class='border'>"
    Response.Write "  <tr class='title'>"
    Response.Write "    <td height='22' align='center'><b>修改留言</b></td>"
    Response.Write "  </tr>"
    Response.Write "  <tr align='center'>"
    Response.Write "    <td><table width='100%' border='0' cellpadding='2' cellspacing='0'>"
    Response.Write "        <form name='myform' method='post' action='Admin_GuestBook.asp' onSubmit='return CheckForm()'>" & vbCrLf
    If rs("GuestType") = 0 Then
        Response.Write "          <tr class='tdbg'>" & vbCrLf
        Response.Write "            <td width='30%' align='right'>姓 &nbsp;名： </td>" & vbCrLf
        Response.Write "            <td width='30%'>" & vbCrLf
        Response.Write "              <input type='text' name='GuestName' maxlength='14' size='20' value='" & rs("GuestName") & "'>"
        Response.Write "              <font color=red>*</font>" & vbCrLf
        Response.Write "            </td>" & vbCrLf
        Response.Write "            <td width='22%'>&nbsp; </td>" & vbCrLf
        Response.Write "            <td colspan='2'>&nbsp; </td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr class='tdbg'>" & vbCrLf
        Response.Write "            <td align='right'>性&nbsp;&nbsp;别： </td>" & vbCrLf
        Response.Write "            <td>" & vbCrLf
        Response.Write "              <input type='radio' name='GuestSex' value='1' "
        If rs("GuestSex") = "1" Then Response.Write " checked"
        Response.Write " style='BORDER:0px;'>" & vbCrLf
        Response.Write "              男&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & vbCrLf
        Response.Write "              <input type='radio' name='GuestSex' value='0' "
        If rs("GuestSex") = "0" Then Response.Write " checked"
        Response.Write " style='BORDER:0px;'>" & vbCrLf
        Response.Write "              女 </td>" & vbCrLf
        Response.Write "            <td>&nbsp;&nbsp;" & vbCrLf
        Response.Write "              <select name='Image' size='1' onChange='changeimage();' >" & vbCrLf
        For i = 1 To 9
            Response.Write "                <option value='0" & i & "'>0" & i & "</option>" & vbCrLf
        Next
        For i = 10 To 23
            Response.Write "                  <option value='" & i & "'>" & i & "</option>" & vbCrLf
        Next
        Response.Write "              </select>" & vbCrLf
        Response.Write "            </td>" & vbCrLf
        Response.Write "            <td colspan='2'>&nbsp;</td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr class='tdbg'>" & vbCrLf
        Response.Write "            <td align='right'>E-mail： </td>" & vbCrLf
        Response.Write "            <td>" & vbCrLf
        Response.Write "              <input type='text' name='GuestEmail' maxlength='30' size='20' value='" & rs("GuestEmail") & "'>"
        Response.Write "            </td>" & vbCrLf
        Response.Write "            <td rowspan='4'>" & vbCrLf
        Response.Write "              <input type='hidden' name='GuestImages' value='01'>" & vbCrLf
        Response.Write "              <img name=showimages src='" & GFacePath & rs("GuestImages") & ".gif' width='80' height='90' border='0' onClick=window.open('../guestbook/guestselect.asp?action=face','face','width=480,height=400,resizable=1,scrollbars=1') title=点击选择头像 style='cursor:hand'>" & vbCrLf
        Response.Write "              </td>" & vbCrLf
        Response.Write "            <td colspan='2' rowspan='4'>" & vbCrLf
        Response.Write "            </td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr class='tdbg'>" & vbCrLf
        Response.Write "            <td align='right'>Oicq： </td>" & vbCrLf
        Response.Write "            <td>" & vbCrLf
        Response.Write "              <input type='text' name='GuestOicq' maxlength='15' size='20' value='" & rs("GuestOicq") & "'>"
        Response.Write "            </td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr class='tdbg'>" & vbCrLf
        Response.Write "            <td align='right'>Icq： </td>" & vbCrLf
        Response.Write "            <td>" & vbCrLf
        Response.Write "              <input type='text' name='GuestIcq' maxlength='15' size='20' value='" & rs("GuestIcq") & "'>" & vbCrLf
        Response.Write "            </td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr class='tdbg'>" & vbCrLf
        Response.Write "            <td align='right'>Msn： </td>" & vbCrLf
        Response.Write "            <td>" & vbCrLf
        Response.Write "              <input type='text' name='GuestMsn' maxlength='40' size='20' value='" & rs("GuestMsn") & "'>" & vbCrLf
        Response.Write "            </td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr class='tdbg'>" & vbCrLf
        Response.Write "            <td align='right'>个人主页： </td>" & vbCrLf
        Response.Write "            <td colspan='4'>" & vbCrLf
        Response.Write "              <input type='text' name='GuestHomepage' maxlength='80' size='37' value='" & rs("GuestHomepage") & "'>" & vbCrLf
        Response.Write "              &nbsp;&nbsp;&nbsp;&nbsp;" & vbCrLf
        Response.Write "            </td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        'Response.Write "          <tr class='tdbg'>" & vbCrLf
        'Response.Write "            <td align='center'></td>" & vbCrLf
        'Response.Write "            <td colspan='4'>&nbsp; </td>" & vbCrLf
        'Response.Write "          </tr>" & vbCrLf
    Else
        Response.Write "          <tr class='tdbg'>" & vbCrLf
        Response.Write "            <td align='center'>选择头像： </td>" & vbCrLf
        Response.Write "            <td>" & vbCrLf
        Response.Write "              <input type='hidden' name='GuestName'  value='" & rs("GuestName") & "'>" & vbCrLf
        Response.Write "              <input type='hidden' name='reg' value='1'>" & vbCrLf
        Response.Write "              <input type='hidden' name='GuestImages' value='" & rs("GuestImages") & "'>" & vbCrLf
        Response.Write "              <img name=showimages src='" & GFacePath & rs("GuestImages") & ".gif' width='80' height='90' border='0' onClick=window.open('guestselect.asp?action=face','face','width=480,height=400,resizable=1,scrollbars=1') title=点击选择头像 style='cursor:hand'>" & vbCrLf
        Response.Write "              <select name='Image' size='1' onChange='changeimage();'>" & vbCrLf
        For i = 1 To 9
          Response.Write "                <option value='0" & i & "'>0" & i & "</option>" & vbCrLf
        Next
        For i = 10 To 23
        Response.Write "                  <option value='" & i & "'>" & i & "</option>" & vbCrLf
        Next
        Response.Write "              </select>" & vbCrLf
        Response.Write "            </td>" & vbCrLf
        Response.Write "            <td>&nbsp;</td>" & vbCrLf
        Response.Write "            <td>&nbsp;</td>" & vbCrLf
        Response.Write "            <td>&nbsp;</td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
    End If
    Response.Write "          <tr class='tdbg'>" & vbCrLf
    Response.Write "            <td align='right'>留言主题： </td>" & vbCrLf
    Response.Write "            <td colspan='4'>" & vbCrLf
    Response.Write "              <input type='text' name='GuestTitle' size='37' maxlength='21' value='" & rs("GuestTitle") & "'>" & vbCrLf
    Response.Write "              <font color=red>*</font>" & vbCrLf
    Response.Write "            </td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr class='tdbg'>" & vbCrLf
    Response.Write "            <td align='right'>留言类别：</td>" & vbCrLf
    Response.Write "            <td colspan='4'><select name='KindID' id='KindID'>" & GetGKind_Option(1, rs("KindID")) & "</select>" & vbCrLf
    Response.Write "            </td></tr>" & vbCrLf
    Response.Write "          <tr class='tdbg'>" & vbCrLf
    Response.Write "            <td align='right'>现在心情： </td>" & vbCrLf
    Response.Write "            <td colspan='4'>" & vbCrLf
    For i = 1 To 30
        Response.Write "<input type='radio' name='GuestFace' value='" & i & "'"
        If i = PE_CLng(rs("GuestFace")) Then Response.Write " checked"
        Response.Write " style='BORDER:0px;width:19;'>"
        Response.Write "<img src='" & GImagePath & "face" & i & ".gif' width='19' height='19'>" & vbCrLf
        If i Mod 10 = 0 Then Response.Write "<br>"