comment.asp

一个用jsp 编写的个人主页网站哦。希望对大家有所帮助啊

<%
response.Charset="GB2312"
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>

<!--#include file="inc/NoSQLHack.asp" -->
<!--#include file="inc/Cls_DB.asp" -->
<!--#include file="inc/Const.asp" -->
<%
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="comment_function.asp" -->
<%
showErr=""
IF request("action")="ok" Then
 If Not CodeIsTrue() Then
	showErr = "验证码校验失败，请重写后再提交留言。"
 Else
 Set Rs = Server.CreateObject(E_RS)
    Rs.Open "select top 1 * from pic_comment", Conn, 1, 3
    Rs.addnew
    Rs("pic_commentName") = Request("n")
	Rs("pic_commentTitle") = Request("t")
	Rs("pic_commentContent") = ubbCode(Request("m"))
	Rs("pic_commentOutID") = Request("id")
	Rs("pic_commentTime") = Now()
    Rs("pic_commentIP") = Request.ServerVariables("REMOTE_ADDR")
    Rs.Update
    Rs.Close:Set Rs = Nothing
 End IF
End IF
%>
<%Set nRs=Conn.Execute("select count(pic_commentID) from pic_comment where pic_commentOutID="&Request("id")&"")
m=nRs(0)
nRs.Close:set nRs=Nothing
%>
<div style="width:300px;">网友评论 已有<span style="color:red;font-size:14px;font-weight:bold;FONT-FAMILY: Georgia;"><%=m%></span>位网友发表了看法</div>
<%
Set Rs=Server.CreateObject(E_RS)
	Sql = "Select * From pic_comment where pic_commentOutID="&Request("id")&" order by pic_commentTime desc"
	Rs.Open sql,Conn,3,1
       page=Trim(request("page"))
       Rs.pagesize=PicPageNum
       page=clng(request("page"))
       if page<1 then page=1 end if
       if page>Rs.pagecount then page=Rs.pagecount end if
       if not (Rs.bof or Rs.eof) then
       Rs.absolutepage=page
       end if
	   for i=1 to Rs.pagesize
	   if Rs.eof then exit for
%>
<div style="width:500px;padding-left:20px;padding-bottom:6px;">
<div>标题：<span style="color:red"><%=Rs("pic_commentTitle")%></span></div>
<div>作者：<span style="color:#0000FF"><%=Rs("pic_commentName")%></span>
 发布时间：<span style="color:#CCCCCC;FONT-FAMILY: Georgia;"><%=Rs("pic_commentTime")%></span> IP:<span style="color:#CCCCCC;FONT-FAMILY: Georgia;"><%=iptostart(Rs("pic_commentIP"))%></span></div>
  <div style="padding:10px;"><span style="color:green;font:bold;"><%=Rs("pic_commentContent")%></span></div>
</div>
<%
Rs.MoveNext
Next
%>
    <div style="width:500px;text-align:center;" class="pagination"><ul><li class=jilushu>记录:<span style="color:#154BA0"><%=Rs.pagesize%>/<%=Rs.recordcount%></span></li> <li class=jilushu>页数:<span style="color:#154BA0"><%=page%>/<%=Rs.pagecount%></span></li><%=pageInc(Rs.pagecount)%></ul></div>
<%
Rs.Close:Set Rs=Nothing
%>
<div style="padding-left:20px;width:500px;">
<form method="post" name="pinglun" action="">
  <div>
昵称：<input name="name" type="text" size="8" value="游客"></td>
主题：<input name="title" type="text" size="12"> 
验证码：<input type="text" name="CodeStr" maxlength="4" size="4" />
<img src="E_getcode.asp" alt="验证码,看不清楚?请点击刷新验证码" style="cursor:pointer; vertical-align:middle;height:18px;" onclick="this.src='E_getcode.asp?t='+Math.random()"/><font color="#FF0000"><%=showErr%></font></div>
<div class="ubbtable" id="ubb" style="display:none;"></div>
<div> <textarea name="content" style="WIDTH: 480px; HEIGHT: 80px" id=commentCmtText onmousedown="if(jiazai=='yes'){ showmenu('ubb');ajax('comment_ubbmenu.asp','ubb');jiazai='no';}"></textarea></div>
  <div style="text-align:center;padding-top:2px;"><input type="button" value="提交" onClick="Checklogin()">
  </div>
  </form>
</div>
<div class="popupmenu_popup" id="posteditor_popup_fontname_menu" style="position:absolute;z-index:1;display: none">
<table cellpadding="4" cellspacing="0" border="0" unselectable="on">
<tr><td class="popupmenu_option" onmouseover="this.className='popupmenu_highlight';" onmouseout="this.className='popupmenu_option';" onClick="set_font('face', '仿宋_GB2312');" unselectable="on"><font face="仿宋_GB2312" unselectable="on">仿宋_GB2312</font></td></tr>
<tr><td class="popupmenu_option" onmouseover="this.className='popupmenu_highlight';" onmouseout="this.className='popupmenu_option';" onClick="set_font('face', '黑体');" unselectable="on"><font face="黑体" unselectable="on">黑体</font></td></tr>
<tr><td class="popupmenu_option" onmouseover="this.className='popupmenu_highlight';" onmouseout="this.className='popupmenu_option';" onClick="set_font('face', '楷体_GB2312');" unselectable="on"><font face="楷体_GB2312" unselectable="on">楷体_GB2312</font></td></tr>
<tr><td class="popupmenu_option" onmouseover="this.className='popupmenu_highlight';" onmouseout="this.className='popupmenu_option';" onClick="set_font('face', '宋体');" unselectable="on"><font face="宋体" unselectable="on">宋体</font></td></tr>
<tr><td class="popupmenu_option" onmouseover="this.className='popupmenu_highlight';" onmouseout="this.className='popupmenu_option';" onClick="set_font('face', '新宋体');" unselectable="on"><font face="新宋体" unselectable="on">新宋体</font></td></tr>
<tr><td class="popupmenu_option" onmouseover="this.className='popupmenu_highlight';" onmouseout="this.className='popupmenu_option';" onClick="set_font('face', 'Tahoma');" unselectable="on"><font face="Tahoma" unselectable="on">Tahoma</font></td></tr>
<tr><td class="popupmenu_option" onmouseover="this.className='popupmenu_highlight';" onmouseout="this.className='popupmenu_option';" onClick="set_font('face', 'Arial');" unselectable="on"><font face="Arial" unselectable="on">Arial</font></td></tr>
<tr><td class="popupmenu_option" onmouseover="this.className='popupmenu_highlight';" onmouseout="this.className='popupmenu_option';" onClick="set_font('face', 'Impact');" unselectable="on"><font face="Impact" unselectable="on">Impact</font></td></tr>
<tr><td class="popupmenu_option" onmouseover="this.className='popupmenu_highlight';" onmouseout="this.className='popupmenu_option';" onClick="set_font('face', 'Verdana');" unselectable="on"><font face="Verdana" unselectable="on">Verdana</font></td></tr>
<tr><td class="popupmenu_option" onmouseover="this.className='popupmenu_highlight';" onmouseout="this.className='popupmenu_option';" onClick="set_font('face', 'Times New Roman');" unselectable="on"><font face="Times New Roman" unselectable="on">Times New Roman</font></td></tr>
</table></div>
<DIV class=popupmenu_popup id=posteditor_popup_fontsize_menu style="position:absolute;z-index:2;display: none">
     <TABLE cellSpacing=0 cellPadding=4 border=0 unselectable="on">
          <TR align=middle>
             <TD class=popupmenu_option onmouseover="this.className='popupmenu_highlight';" onmouseout="this.className='popupmenu_option';" onclick="set_font('size', 1)" unselectable="on"><FONT size=1 unselectable="on">1</FONT></TD></TR>
          <TR align=middle>
             <TD class=popupmenu_option onmouseover="this.className='popupmenu_highlight';" onmouseout="this.className='popupmenu_option';" onclick="set_font('size', 2)" unselectable="on"><FONT size=2 unselectable="on">2</FONT></TD></TR>