admin_guestbook.asp

带OA办公的动态源码网站

<% if len(trim(Rs("come")))>1  then %>
                <img src="../<%=indeximg%>a125_come.gif" alt="来自:<%=Rs("come")%>" width="16" height="16">
<% end if %>
<img src="../<%=indeximg%>a125_ip.gif" alt="IP:<%=Rs("ip")%>" width="16" height="16" align=absMiddle><font color="#666666"><a href="<%=indexfilename%>?action=Edit&id=<%=Rs("id")%>"> 
<img src="../<%=indeximg%>a125_reply.gif" alt="编辑回复" width="16" height="16" border="0"></a> 
<a href="<%=indexfilename%>?action=Delete&id=<%=Rs("id")%>" onClick="return confirm('确定要删除吗？\n\n该操作不可恢复！')"> 
<img src="../<%=indeximg%>a125_del.gif" alt="删除留言" width="15" height="15" border="0"></a></font> 
</div></td>            
      <td width="14%"> 第 <font color="#ff0000"><%=lou %></font> 条留言
      </td></tr>
     </table>
    </TD>
  </TR>
  <tr bgcolor='#f1f1f1' onmouseover=javascript:this.bgColor='#EAEAEA' onmouseout=javascript:this.bgColor='#f1f1f1'>     
   <TD width="111" height="21" align=middle valign="top" bgcolor="#F6F6F6"><table width="100%" border="0" align="center"><tr><td width="118"align="center">
<%if rs("sex")=1 then %>
  <img src="../<%=indeximg%>a125_male.gif">
<% else %>
  <img src="../<%=indeximg%>a125_female.gif">
<% end if %>
<br>
留言：<%=rs("name")%>
    </td></tr></table></TD>       
    <TD width="446" height="21"  style="word-break:break-all"><table width="96%" height="132" border="0" align="center"><tr><td width="100%" height="70" style="word-break:break-all"> 
  <br>
<% if webyn=1 and rs("view")=1 then %>
<%=Ubb(unHtml(a125_gb))%>
<% if len(trim(reply))>1 then%>
  <hr size="1">
  <span class="style1">斑竹回复:</span><br>
  <font color="#990000"> <%=Ubb(unHtml(reply))%> </font>
<%end if %>
<%end if %>
<% if webyn<>1 then %>
<%=Ubb(unHtml(a125_gb))%>
<% if len(trim(reply))>1 then%>
  <hr size="1">
  <span class="style1">斑竹回复:</span><br>
  <font color="#990000"><%=Ubb(unHtml(reply))%> </font>
<%end if %>
<%end if %>
<% if webyn=1 and rs("view")=0 then%>
              <font color="#FF0000">此留言还未经过处理</font> 
<%end if %>
      </td></tr>
      <tr bgcolor='#f1f1f1' onmouseover=javascript:this.bgColor='#EAEAEA' onmouseout=javascript:this.bgColor='#f1f1f1'> 
      <td height="22" align="right" style="word-break:break-all">发表于:<%=year(Rs("date"))%>年<%=month(Rs("date"))%>月<%=day(Rs("date"))%>日</td>
     </tr>
     </table> 
    </TD>
   </TR>
</TBODY>
</TABLE>
<%
    lou=lou-1	 
    rs.movenext
    loop
    Rs.Close
    Set Rs = Nothing
%>
<table width="600" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td width="100%" height="20" align="right" class="unnamed1">有<%=gbcount %>条留言 <%=page %>/<%=y %>页 分页 <a href="?page=1"><<</a>
<% if page2>1 then %>
  <a href="<%=indexfilename%>?page=<%=page2*x-x%>"><</a>
<% end if %>
<% For m =page2*x-(x-1) To k %>
[<a href="<%=indexfilename%>?page=<%=m%>"><%=m%></a>]
<% Next %>
<% if page2*x < y then %>
<a href="<%=indexfilename%>?page=<%=m%>">></a>
<% end if %>
	  <a href="?page=<%=y %>">>></a>
	</td>
  </tr>
</table>
<% End Sub %>
<%
    Sub Edit()
    Sql="Select * From a125_gb Where view<2 and id="&Request.QueryString("id")
    set rs=conn.execute(sql)
    view2=""
    if rs("view")=1 then
    view2="checked"
    end if
%>
 <table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor='#A1BBE0'>
<form name="reply" method="post" action="<%=indexfilename%>">
<tr bgcolor='#A1BBE0' class='td4'>
<td colspan="2" align="center"> 编辑留言内容及回复</td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td align="right">留言者：</td>
<td>网名:<font color="#ff0000"><%=Rs("name")%></font>&nbsp;性别: <font color="#ff0000">
<%if Rs("sex")=1 then Response.Write "男" else Response.Write "女" end if%>
</font> &nbsp;来自:<font color="#ff0000"><%=Rs("come")%></font> </td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td align="right" valign="top">　</td>
<td>时间:<font color="#ff0000"><%=Rs("date")%></font>&nbsp;ip:<font color="#ff0000"><%=Rs("ip")%></font>&nbsp;QQ:<font color="#ff0000"><%=Rs("qq")%></font>&nbsp;电话:<font color="#ff0000"><%=Rs("phone")%></font></td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td align="right" valign="top">邮箱：</td>
<td>&nbsp;<b><%=Rs("email")%></b></td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td width="78" align="right" valign="top"> 留言内容：<br> <br> <input name="replyedit" id="replyedit" type="checkbox" value="1" style="border:0px"> 
<font color="#FF0000">修改</font> </td>
<td width="433"> <textarea name="reply" cols="80" rows="8" class="input1" id="reply"><%=Rs("a125_gb")%></textarea> 
</td>
</tr>
 <tr  bgcolor='#FFFFFF'>
<td height="26" align="right"  width="78">　</td>
<td align="left" > <% call ubb_jd100() %></td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff' align="center"> 
<td align="right">回复：<br><br><% if webyn=1 then%>
  <input name="view" type="checkbox" id="view" value="1" <%=view2%>>
<font color="#FF0000">通过审批</font> 
<% end if %></td>
<td align="left"> <textarea name="a125_gb" cols="80" rows="8" class="input1" id="a125_gb"><%=Rs("reply")%></textarea> 
</td>
</tr>
<tr align="center"> 
<td colspan="2" bgcolor="#EAEAEA"> <input type="hidden" name="action_e" value="Edit"> 
<input type="hidden" name="id" value="<%=Request.QueryString("id")%>"> 
<input type="submit" name="Submit" value="修 改" id="Submit" class="input1">
<input type="reset" name="reset" value="取 消" id="Submit2" class="input1">
<input type="button" name="back" value="返 回" onclick=location.href='<%=indexfilename%>?action=View_a125_gb'></td>
</tr>
</form>
</table>
<%
    rs.close
    set rs=nothing
End Sub 
    
Sub Edit_web()
    if Request.Form("submit")="修改" then
    Set Rs = Server.CreateObject("ADODB.RecordSet")
    Sql="Select * From a125_Set"
    Rs.Open Sql,Conn,2,3
    rs("gl")=WS_s.HX_Replace(Request.Form("webggg"))
    rs("gbyn")=cint(Request.Form("webyn"))

    rs.update
    rs.close
    set rs=nothing
    response.redirect indexfilename &"?action=Edit_web"
    response.end
    end if
    webyn2=""
    if webyn=1 then
    webyn2="checked"
    end if
%>
  <table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>

<form name="reply" method="post" action="<%=indexfilename%>">    
    <tr bgcolor='#A1BBE0' class='td4'>
<td height="23" colspan="2" align="center"> 编辑留言板属性</td>
    </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td align="right">词语过滤：</td>
<td align="left"> 
<input name="webggg" type="text" id="webggg" value="<%=webgl%>" size="45">
      </td>
    </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td align="right">经过审批才显示留言：</td>
<td align="left">
<input name="webyn" type="checkbox" id="webyn" value="1" <%=webyn2%> style="border:0px">
      是</td>
    </tr>
<tr align="center"> 
<td height="23" colspan="2" bgcolor="#EAEAEA"> 
<input type="hidden" name="action_e" value="Edit_web">
        <input type="submit" name="Submit" value="修改" id="Submit" class="input1">
　　<a href="<%=indexfilename%>?action=View_a125_gb">返回</a></td>
    </tr>
  </form>
</table>
<% End Sub 

sub ubb_jd100()%>
<script language="JavaScript">
    //UBB
    function Cbold() {
    fontbegin="[B]";
    fontend="[/B]";
    fontchuli();
    }
    function Citalic() {
    fontbegin="[I]";
    fontend="[/I]";
    fontchuli();
    }
    function Cunder() {
    fontbegin="[U]";
    fontend="[/U]";
    fontchuli();
    }
    function Ccenter() {
    fontbegin="[center]";
    fontend="[/center]";
    fontchuli();
    }
    function showsize(size){
    fontbegin="[size="+size+"]";
    fontend="[/size]";
    fontchuli();
    }
    function showcolor(color){
    fontbegin="[color="+color+"]";
    fontend="[/color]";
    fontchuli();
    }
    function fontchuli(){
    if ((document.selection)&&(document.selection.type == "Text")) {
    var range = document.selection.createRange();
    var ch_text=range.text;
    range.text = fontbegin + ch_text + fontend;
    } 
    else {
    document.form1.a125_gb.value=fontbegin+document.form1.a125_gb.value+fontend;
    document.form1.a125_gb.focus();
    }
    }
</script>

	  <img onclick=Cbold() src="../Images/UBB/BOLD.GIF" width="23" height="22" alt="粗体" border="0"> 
	  <img onclick=Citalic() src="../Images/UBB/italicize.gif" width="23" height="22" alt="斜体" border="0"> 
	  <img onclick=Cunder() src="../Images/UBB/underline.gif" width="23" height="22" alt="下划线" border="0"> 
	  <img onclick=Ccenter() src="../Images/UBB/CENTER.GIF" width="23" height="22" alt="居中" border="0">	
	 
字体大小
<select name="size" onChange="showsize(this.options[this.selectedIndex].value)">
<option value="1">1</option>
<option value="2">2</option>
<option value="3" selected>3</option>
<option value="4">4</option>
</select>                    &nbsp;<font face="宋体" color=#333333>颜色：</font> 
                    <SELECT onchange=showcolor(this.options[this.selectedIndex].value) name=color>
                      <option style="background-color:#000000;color: #000000" value="#000000">#000000</option>
                      <option style="background-color:#FFEBCD;color: #FFEBCD" value="#FFEBCD">#FFEBCD</option>
                      <option style="background-color:#0000FF;color: #0000FF" value="#0000FF">#0000FF</option>
                      <option style="background-color:#8A2BE2;color: #8A2BE2" value="#8A2BE2">#8A2BE2</option>
                      <option style="background-color:#A52A2A;color: #A52A2A" value="#A52A2A">#A52A2A</option>
                      <option style="background-color:#DEB887;color: #DEB887" value="#DEB887">#DEB887</option>
                      <option style="background-color:#5F9EA0;color: #5F9EA0" value="#5F9EA0">#5F9EA0</option>