class_msg.asp

不是我做的一个留言板

<!--#include file="conn.asp" -->
<!--#include file="session.asp" -->
<!--#include file="../templet/top.asp" -->
<!--#include file="../templet/mon.asp" -->
<!--#include file="../function/function.asp" -->
<!--#include file="../function/nextpage.ASP" -->
<!--#include file="../function/ubb.asp" -->
<!--#include file="../js/vbjava.asp" -->
<%
on_web=L_CLASSi_ClassMsg
photono="photono"
  set rs=server.CreateObject("adodb.recordset") 
  sql="select * from class_msg where g_id='"&session_cookie_gid&"' order by msg_time desc"
    rs.open sql,conn,1,1 
  if not rs.eof then 
  rs.PageSize =msg_page '每页记录条数 
  result_num=rs.RecordCount '记录总数 
  maxpage=rs.PageCount  
  page=request("page") 
  if Not IsNumeric(page) or page="" then 
	page=1 
  else 
	page=cint(page) 
  end if 
  if page<1 then 
	page=1 
  elseif  page>maxpage then 
	page=maxpage 
  end if 
  rs.AbsolutePage=Page 
  else 
  result_num=0 
  maxpage=0 
  page=0 
  end if 
 msg_text="msg_text"
                RESPONSE.WRITE "<center><table border=0 cellpadding=0 width=100% cellspacing=0>"
                RESPONSE.WRITE "<tr><td width=1% valign=top align=center></td><td colspan=2 valign=top>"
y=L_CLASSi_ClassMsg
mon(y)
 if not rs.eof then 
 for i=1 to rs.PageSize      
addtime=year(rs("msg_time"))&L_CLASS_year&month(rs("msg_time"))&L_CLASS_month&day(rs("msg_time"))&L_CLASS_day& vbCrLf &hour(rs("msg_time"))&":"&minute(rs("msg_time"))&":"&second(rs("msg_time"))
                RESPONSE.WRITE "<table cellSpacing=0 cellPadding=0 border=0 width=100% >"
                RESPONSE.WRITE "<tr><TD width=14><IMG height=8 src="&web_background&"/top_l.gif width=14></TD>"
                RESPONSE.WRITE "<TD background="&web_background&"/top_c.gif></TD>"
                RESPONSE.WRITE "<TD width=16><IMG height=8 src="&web_background&"/top_r.gif width=16></TD>"
                RESPONSE.WRITE "</TR><TR><TD vAlign=top width=14 background="&web_background&"/center_l.gif>"
                RESPONSE.WRITE "</TD><td bgColor=#fffff1>&nbsp; &nbsp;"
                RESPONSE.WRITE "<IMG src="&web_background&"/sign.gif width=18 height=18 border=0>"
                RESPONSE.WRITE rs("msg_time")
%>
<a href=# onClick="javascript:window.open('member.asp?id=<%=rs("msg_user")%> ','','width=<%=win_w%>,height=<%=win_h%>,left=<%=win_left%>,top=<%=win_top%>')">   
<%
            
  		RESPONSE.WRITE rs("msg_user")&"</a><br>"
                RESPONSE.WRITE ubbcode(rs("msg_text"))
                RESPONSE.WRITE "<p>"
if rs("msg_user")=session_cookie_name or session_cookie_group>2 then   
                RESPONSE.WRITE "<a href=msg_edit.asp?id="& rs("id")& ">"
                RESPONSE.WRITE "<img src="& web_background
                RESPONSE.WRITE "/edit.gif alt='"&L_CLASSi_MsgEDIT&"' border=0></a>&nbsp;"
%>
<a href='javascript:go("msgdel.asp?id=<%=rs("id")%>","<%=L_CLASSi_MsgEDEL1%>")'>   
<img src="<%=web_background%>/del.gif" alt="<%=L_CLASSi_MsgEDEL2%>" border="0">
<%
RESPONSE.WRITE L_CLASSi_MsgEDEL2 &"</a>"
  end if	   
                RESPONSE.WRITE "<img height=12 src="&web_background&"/signature.gif width=100% border=0></p>"
                RESPONSE.WRITE "</td><TD vAlign=top width=16 background="&web_background&"/center_r.gif>"
                RESPONSE.WRITE "<IMG height=8 src="&web_background&"/top_r2.gif width=16></TD>"
                RESPONSE.WRITE "</TR><TR><TD vAlign=top width=14>"
                RESPONSE.WRITE "<IMG height=42 src="&web_background&"/foot_l1.gif width=14></TD>"
                RESPONSE.WRITE "<TD background="&web_background&"/foot_c.gif></TD>"
                RESPONSE.WRITE "<TD align=right width=16>"
                RESPONSE.WRITE "<IMG height=42 src="&web_background&"/foot_r.gif width=16></TD>"
                RESPONSE.WRITE "</TR></TABLE>"		   
              
rs.movenext:if rs.EOF then Exit For        
next        
end if        
rs.close        
set rs=nothing        
                RESPONSE.WRITE "<tr><td >"
call LastNextPage(maxpage,page,result_num) 			   
                RESPONSE.WRITE  mon_foot   
                RESPONSE.WRITE "<td></td><td width=1% valign=top align=center>"
                RESPONSE.WRITE "</td><td width=25% valign=top align=center>"
y=L_CLASSi_AddMsg
 Mon(y)
  %>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan -->
<script Language="JavaScript">
<!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.msg_text.value == "")
  {
    alert("<%=L_MSG_CHECK1%>");
    theForm.msg_text.focus();
    return (false);
  }

  if (theForm.msg_text.value.length > 200)
  {
    alert("<%=L_MSG_CHECK2%>");
    theForm.msg_text.focus();
    return (false);
  }
  return (true);
}
//-->
</script>
<!--webbot BOT="GeneratedScript" endspan -->
<form action="addmsg2.asp" method="post" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">

<%
                RESPONSE.WRITE "<table><tr><td align=center>"&L_CLASSi_Msg1
                RESPONSE.WRITE "<br>"
%>
  <!--webbot bot="Validation" B-Value-Required="TRUE" I-Maximum-Length="200" -->

<TEXTAREA style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'" name=msg_text rows=7 cols=25></TEXTAREA></td>
</tr>
<tr>
  <td align="center">


<!--#include file="../templet/msg_mon.asp" -->
</td>
</tr>
</table>
</td>  
</tr>  
<tr>   
<td colspan="2">
<DIV align=center>  		      
				      <input name="id" type="hidden" value="<%=id%>">  
                                      <input type="hidden" id="method" value="submit">  
                                      <input type="submit" name="Submit" value="<%=L_CLASSi_MsgSubmit%>" style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'">  
                                      <input  type="reset" value="<%=L_CLASSi_MsgRest%>" type="submit" name="Submit" style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'">  
 </form>  
<%
                RESPONSE.WRITE(mon_foot)   
                RESPONSE.WRITE "</table><br></td><td width=1% valign=top align=center></td></tr>"   
%>       
<!--###### foot #### -->   
<!--#include file="../templet/foot.asp" -->