bbsindex.asp

教师教学质量评价系统 教师教学质量评价系统 asp 源代码

</TABLE>
<%
End Sub 
'''''#################显示主题贴

Sub View_topics()
'浏览主题贴
           dim rs1,wid,jd_cls
		   id= checkStr(Request.QueryString("id"))
' "id,jd_userid,jd_name,jd_reid,jd_sex,jd_head,jd_web,jd_email,jd_title,jd_words,jd_rdate,jd_date,jd_editdate,jd_reply,jd_ip,jd_come,jd_view,jd_qq,jd_hit,jd_rep,jd_top"
           set rs1=conn.execute("select id,jd_userid,jd_name,jd_reid,jd_sex,jd_head,jd_web,jd_email,jd_title,jd_words,jd_date,jd_editdate,jd_reply,jd_ip,jd_come,jd_view,jd_qq From topics where id="&id)
		   if rs1.eof then
		    call msg_List("错误","非法的数据操作",3,indexfilename)
		   else
		   wid=rs1("id") 
		   end if
           Conn.Execute("update topics set jd_hit=jd_hit+1 Where id="&id )
          dim jd100_ID,jd100_biao,jd100_zd,jd100_order,jd100_page_count
          jd100_ID="id"  '索引ID
          jd100_biao="reply" '表名
		  jd100_zd="id,jd_id,jd_userid,jd_sex,jd_head,jd_name,jd_user,jd_title,jd_words,jd_date,jd_ip"
		  jd100_order="where jd_id="&wid
		 jd100_page_count=rsCount(jd100_ID,jd100_biao,jd100_order)	
%>
<table width="<%=jd_table_w%>" border="0" cellspacing="1" cellpadding="4" align="center">
  <tr> 
    <td width="" height="20" align="right" class="unnamed1"> <% if  jd100_page_count>=1 then Response.Write(rsPage( jd100_page_count,jd_repn,jd100_page_x,"action=View_topics&id="&id))%> </td>
  </tr>
  <% if len(webtitle)>2 then %>
  <tr> 
    <td height="20" align="right" class="unnamed2"> <marquee onMouseOut=start(); onMouseOver=stop(); scrollamount=3>
      <%=Ubb(unHtml(webtitle)) %> </marquee></td>
  </tr>
  <tr>
    <td height="20"  class="unnamed1">
	<% if jd_http<>"" then%> <a href="<%=jd_http%>" target="_blank">主页</a>&nbsp;→&nbsp;<%end if%>
	<a href="<%=indexfilename %>?action=View_Words">反馈首页</a>&nbsp;→&nbsp;反馈列表</td>
  </tr>
  <%  end if %>
</table>
<%
dim lou,words,reply,email,qq,web,come,title
dim viewadmin 
reply=""
words=""  
words=rs1("jd_words")
words=Ubb(unHtml(words))
  reply=rs1("jd_reply")
  if reply<>"" then
  reply="<hr size='1'> <span class='style1'>管理员回复:</span><br><font color='#990000'> "&Ubb(unHtml(reply))&" </font>" 
  end if
  words=words & reply
  view=rs1("jd_view")
if webyn=1 and Session("Admin"&webname) <> "Login"  and view<>1 and jd_membercls<>1 then
  words=splyb("留言需要审批才能查看")
  reply=""
end if  
if webyn=1 and view=0  and (Session("Admin"&webname) = "Login" or jd_membercls=1) then
  words= "<div align='right'><font color='#009900'><strong>[未审批]</strong></font></div ><br>" & words 
 end if
if view=2 and Session("Admin"&webname) <> "Login" and jd_membercls<>1 then
  words=splyb("这是给管理员的留言")
  reply=""
end if  
if view=2 and (Session("Admin"&webname) = "Login" or jd_membercls=1) then
  words= "<div align='right'><font color='#009900'><strong>[秘密]</strong></font></div ><br>" & words 
end if  

if Session("Admin"&webname) ="Login" or jd_membercls=1 then
viewadmin="<a href=http://www.jd100.net/ip/showip.asp?ip="&rs1("jd_ip")& " target='_blank'><img src="&indeximg&"ip.gif border=0 alt=查询IP来源地></a> " &rs1("jd_ip")      
viewadmin=viewadmin &"<a href=?action=Edit&id="&rs1("id")& "> <img src="&indeximg&"reply.gif alt=编辑回复 width=50 height=16 border=0></a>&nbsp;" 				
end if
if rs1("jd_title")<>"" then		
titlead= "<table width='100%' height='20' border='0' cellpadding='0' cellspacing='0' style='table-layout:fixed;word-break:break-all;word-wrap:break-word;'>"
titlead=  titlead &  "  <tr><td  style='word-break:break-all' class=jd_title>&nbsp; 主题:&nbsp;<b>"&unHtml(rs1("jd_title"))&"</b>  </td></tr></table> "
end if
 user_xx="发表于:"&year(Rs1("jd_date"))&"年"&month(Rs1("jd_date"))&"月"&day(Rs1("jd_date"))&"日 "
 if  int(rs1("jd_userid"))=0 then
         jd_usermsg=rs1("jd_name")& "｜｜｜"
         if jd_membercls=1 or Session("Admin"&webname) = "Login" then
		 jd_usermsg=jd_usermsg &"<a href='"&rs1("jd_web")&"' target='_blank'><img src="&indeximg&"homepage.gif alt='浏览我的主页:"&rs1("jd_web")&"' width=16 height=16 border='0'></a>" 
         jd_usermsg=jd_usermsg &"<a href='mailto:"&rs1("jd_email")&"'><img src="&indeximg&"email.gif alt='发EMAIL给我:"&rs1("jd_email")&"' width='16' height='16' border='0'></a>"
         jd_usermsg=jd_usermsg &"<img src='"&indeximg&"oicq.gif' alt='QQ号:"&rs1("jd_qq")&"' width='16' height='16' border='0'>"
         jd_usermsg=jd_usermsg &"<img src='"&indeximg&"come.gif' alt='我来自:"&rs1("jd_come")&"' width='16' height='16'>"
         end if
		 jd_usermsg=jd_usermsg & "<a href=?action=edit_my&myaction=topics&cid="&rs1("id")&"&id="&rs1("id")&"><img src="&indeximg&"reply.gif alt='编辑' width=16 height=16 border='0'></a>" & "｜｜｜"
		 jd_usermsg=jd_usermsg & rs1("jd_sex")& "｜｜｜"
         jd_usermsg=jd_usermsg & rs1("jd_head")& "｜｜｜"
         jd_usermsg=jd_usermsg & rs1("jd_ip")& "｜｜｜"
         jd_usermsg=jd_usermsg & " ｜｜｜ "
         jd_usermsg=jd_usermsg & "0"
else
'jd_usermsg=member_msg(rs("jd_userid"))
         set usrs=conn.execute("select jd_user,jd_cls,jd_sex,jd_web,jd_email,jd_date,jd_ip,jd_come,jd_qq,jd_head,jd_qm,jd_topic,jd_view From member where id="&rs1("jd_userid")&" ")
         if not usrs.eof then
         jd_usermsg=usrs("jd_user") & "｜｜｜"
         jd_usermsg=jd_usermsg &"<a href='"&usrs("jd_web")&"' target='_blank'><img src="&indeximg&"homepage.gif alt='浏览我的主页:"&unHtml(usrs("jd_web"))&"' width=16 height=16 border='0'></a>" 
         if usrs("jd_view")=1 or jd_membercls=1 or Session("Admin"&webname) = "Login" then
		 jd_usermsg=jd_usermsg &"<a href='mailto:"&usrs("jd_email")&"'><img src="&indeximg&"email.gif alt='发EMAIL给我:"&usrs("jd_email")&"' width='16' height='16' border='0'></a>"
         jd_usermsg=jd_usermsg &"<img src='"&indeximg&"oicq.gif' alt='QQ号:"&usRs("jd_qq")&"' width='16' height='16' border='0'>"
         jd_usermsg=jd_usermsg &"<img src='"&indeximg&"come.gif' alt='我来自:"&usRs("jd_come")&"' width='16' height='16'>" 
         end if
        jd_usermsg=jd_usermsg & "<a href=?action=edit_my&myaction=topics&cid="&rs1("id")&"&id="&rs1("id")&"><img src="&indeximg&"reply.gif alt='编辑' width=50 height=16 border='0'></a>" & "｜｜｜"
        jd_usermsg=jd_usermsg & usrs("jd_sex")& "｜｜｜"
        jd_usermsg=jd_usermsg & usrs("jd_head")& "｜｜｜"
        jd_usermsg=jd_usermsg & usrs("jd_ip") &"｜｜｜"& usrs("jd_topic") &"｜｜｜"& usrs("jd_qm")
		   if usrs("jd_cls")=1 then
		   jd_cls="<br>&nbsp 等级:版主<br>"
		   else
           jd_cls="<br>&nbsp 等级:会员<br>"
		   end if

          if usrs("jd_qm")<>"" or usrs("jd_qm")<>null then
		  words=words & "<br><br><table width='100%' border='0' cellpadding='3' class=unnamed2 style='table-layout:fixed;word-break:break-all;word-wrap:break-word;'><tr><td width='' style='word-break:break-all'><img src='' width='5%' height='1' style='background-color: #999999'>&nbsp<font color='#999999'><span class='unnamed1'>"&webname&" 版权所有</span></font>&nbsp<img src='' width='60%' height='1' style='background-color: #999999'></td></tr><tr><td width='' style='word-break:break-all'><span class='unnamed1'><font color='#666666'>"&unHtml(usrs("jd_qm"))&"</font></span></td></tr></table>"
         end if
            if usrs("jd_cls")=-2 then words= splyb("该会员贴子已经被禁止")
        else
		jd_usermsg="该会员已经被删除｜｜｜&nbsp ｜｜｜&nbsp｜｜｜&nbsp｜｜｜&nbsp｜｜｜&nbsp｜｜｜&nbsp"
		end if
        usrs.Close
        set usrs=nothing
end if
urmsg=""
urmsg=split(jd_usermsg,"｜｜｜")
if page<2 then
response.write(img_top)
%>
<TABLE width="<%=jd_table_w%>" height=51 border=1 align=center cellPadding=0 cellSpacing=0 class="jd_tab" style="border-collapse:collapse" >
  <TBODY>
    <TR > 
      <TD colSpan=2 height=25 class="jd_tab" ><table width="100%"  border="0" class="unnamed1">
          <tr> 
            <td width="28%" height="21" class="unnamed1">&nbsp;<b><%=unHtml(urmsg(0))%></b></td>
            <td width="60%"> <div align="right">                
			</div></td>
            <td width="12%"><div align="right"><font color="#ff0000">反馈人</font> 
                </div></td>
          </tr>
        </table></TD>
    </TR>
    <TR> 
      <TD width="120" height="21" align=middle valign="top" class="jd_tab" ><table width="100%" border="0" align="center"  class="unnamed1">
            <tr> 
              <td width="94" >
				  <% 
				  if indeximg<>"" then call headpic(urmsg(2),urmsg(3))
                  if rs1("jd_userid")<>0 then
                  response.write "<font color=#666666>"&jd_cls
				  response.write "&nbsp 发贴:" & urmsg(5) &"</font><br>"
				  end if
                  response.write viewadmin
				  %></td>
          </tr>
        </table></TD>
      <TD width="" height="21" valign="top" class=unnamed2  style="word-break:break-all"> <%=titlead%>	
        <table width="100%" border="0" cellpadding="3" class=unnamed2 style="table-layout:fixed;word-break:break-all;word-wrap:break-word;">
          <tr> 
            <td width="" style="word-break:break-all">  <%=words%> 
            </td>
          </tr>
        </table>

	  </TD>
    </TR>
  </TBODY>
</TABLE>
<% response.write(img_foot)
end if
'#############################
		 
if jd100_page_count>0 then
    '获取本页需要用到的id============================================
	Sql="select "&jd100_ID&" from "& jd100_biao & " " & jd100_order
	set Rs=server.createobject("adodb.recordset")
	Rs.open Sql,Conn,1,1
	   Rs.PageSize = jd_repn '每页显示记录数
       Rs.AbsolutePage = Page  '当前页数
	For i=1 to Rs.pagesize
	If Rs.eof then exit for  
		if(i=1)then
			SqlId=Rs(jd100_ID)
		else
			SqlId=SqlId &","&Rs(jd100_ID) ' 获取的ID
		end if
	Rs.movenext
	Next
	'获取本页需要用到的id结束============================================
         sql="select  "&jd100_zd&" From "&jd100_biao&"   "&jd100_order&" and "&jd100_ID&" in("& SqlId &")"
         Set Rs=Conn.Execute(sql)	 
dim reid
lou=(page-1)*jd_repn
i=0
do while not rs.eof and i<jd_repn
lou=lou+1	 
i=i+1
words="" 
head=""
user=""
user_xx=""

words=rs("jd_words")
words=Ubb(unHtml(words))
if Session("Admin"&webname) ="Login" then
viewadmin="<a href=http://www.jd100.net/ip/showip.asp?ip="&rs("jd_ip")& " target='_blank'><img src="&indeximg&"ip.gif border=0 alt=查询IP来源地></a> " &rs("jd_ip")      
end if
'留言者信息
user=unHtml(Rs("jd_name"))	
user_xx="发表于:"&year(Rs("jd_date"))&"年"&month(Rs("jd_date"))&"月"&day(Rs("jd_date"))&"日 "
titlead=""
if rs("jd_title")<>"" then		
titlead= "<table width='100%' height='20' border='0' cellpadding='0' cellspacing='0' style='table-layout:fixed;word-break:break-all;word-wrap:break-word;'>"
titlead=  titlead &  "  <tr><td  style='word-break:break-all' class=jd_title>&nbsp; 主题:&nbsp;<b>"&unHtml(rs("jd_title"))&"</b>  </td></tr></table> "
end if

reid=""
reid=rs("id")


if  rs("jd_userid")=0 then
         jd_usermsg=rs("jd_name")& "｜｜｜"
         jd_usermsg=jd_usermsg &"<img src='"&indeximg&"come.gif' alt='游客' width='16' height='16'>"
		 jd_usermsg=jd_usermsg & "<a href=?action=edit_my&myaction=reply&cid="&rs1("id")&"&id="&rs("id")&"><img src="&indeximg&"reply.gif alt='编辑' width=16 height=16 border='0'></a>" & "｜｜｜"
		 jd_usermsg=jd_usermsg & rs("jd_sex")& "｜｜｜"
         jd_usermsg=jd_usermsg & rs("jd_head")& "｜｜｜"
         jd_usermsg=jd_usermsg & rs("jd_ip")& "｜｜｜"
         jd_usermsg=jd_usermsg & " &nbsp;｜｜｜&nbsp; "
         jd_usermsg=jd_usermsg & "0"
else
'jd_usermsg=member_msg(rs("jd_userid"))
         set usrs=conn.execute("select jd_user,jd_cls,jd_sex,jd_web,jd_email,jd_date,jd_ip,jd_come,jd_qq,jd_head,jd_qm,jd_topic,jd_view From member where id="&rs("jd_userid")&" ")
         if not usrs.eof then
         jd_usermsg=usrs("jd_user") & "｜｜｜"
         jd_usermsg=jd_usermsg &"<a href='"&usrs("jd_web")&"' target='_blank'><img src="&indeximg&"homepage.gif alt='浏览我的主页:"&unHtml(usrs("jd_web"))&"' width=16 height=16 border='0'></a>" 
         if usrs("jd_view")=1 or jd_membercls=1 or Session("Admin"&webname) = "Login" then
		 jd_usermsg=jd_usermsg &"<a href='mailto:"&usrs("jd_email")&"'><img src="&indeximg&"email.gif alt='发EMAIL给我:"&usrs("jd_email")&"' width='16' height='16' border='0'></a>"
        jd_usermsg=jd_usermsg &"<img src='"&indeximg&"oicq.gif' alt='QQ号:"&usRs("jd_qq")&"' width='16' height='16' border='0'>"
         jd_usermsg=jd_usermsg &"<img src='"&indeximg&"come.gif' alt='我来自:"&usRs("jd_come")&"' width='16' height='16'>"
		 end if
		 jd_usermsg=jd_usermsg & "<a href=?action=edit_my&myaction=reply&cid="&rs1("id")&"&id="&rs("id")&"><img src="&indeximg&"reply.gif alt='编辑' width=16 height=16 border='0'></a>" & "｜｜｜"
        jd_usermsg=jd_usermsg & usrs("jd_sex")& "｜｜｜"
        jd_usermsg=jd_usermsg & usrs("jd_head")& "｜｜｜"
        jd_usermsg=jd_usermsg & usrs("jd_ip") &"｜｜｜"& usrs("jd_topic") &"｜｜｜"& usrs("jd_qm")
		   if usrs("jd_cls")=1 then
		   jd_cls="<br>&nbsp 等级:版主<br>"
		   else
           jd_cls="<br>&nbsp 等级:会员<br>"
		   end if
          if usrs("jd_qm")<>"" or usrs("jd_qm")<>null then
		  words=words & "<br><br><table width='100%' border='0' cellpadding='3' class=unnamed2 style='table-layout:fixed;word-break:break-all;word-wrap:break-word;'><tr><td width='' style='word-break:break-all'><img src='' width='5%' height='1' style='background-color: #999999'>&nbsp<font color='#999999'><span class='unnamed1'>"&webname&" 版权所有</span></font>&nbsp<img src='' width='60%' height='1' style='background-color: #999999'></td></tr><tr><td width='' style='word-break:break-all'><span class='unnamed1'><font color='#666666'>"&unHtml(usrs("jd_qm"))&"</font></span></td></tr></table>"
         end if
		 if usrs("jd_cls")=-2 then words= splyb("该会员贴子已经被禁止")
		 else
		 jd_usermsg="该会员已经被删除｜｜｜&nbsp ｜｜｜&nbsp｜｜｜&nbsp｜｜｜&nbsp｜｜｜&nbsp｜｜｜&nbsp"
        end if
        usrs.Close
        set usrs=nothing
end if
urmsg=""
urmsg=split(jd_usermsg,"｜｜｜")
response.write(img_top)
%>
<TABLE width="<%=jd_table_w%>" height=51 border=1 align=center cellPadding=0 cellSpacing=0 class="jd_tab" style="border-collapse:collapse" >
  <TBODY>
    <TR > 
      <TD colSpan=2 height=25 class="jd_tab" ><table width="100%"  border="0" class="unnamed1">
          <tr> 
            <td width="28%" height="21" class="unnamed1">&nbsp;<b><%=unHtml(urmsg(0))%></b></td>
            <td width="60%"> <div align="right">                
			   <% If Session("Admin"&webname) = "Login" or jd_membercls=1 Then %>
                <a href="?action=DeleteReply&id=<%=reid%>&wid=<%=wid%>" onClick="return confirm('确定要删除吗？\n\n该操作不可恢复！')"> 
                <img src="<%=indeximg%>del.gif" alt="删除留言" width="15" height="15" border="0"></a></font> 
                <% end if %>
              </div></td>
            <td width="12%"><div align="right"><font color="#ff0000">回复<%=lou %></font> 
                </div></td>
          </tr>
        </table></TD>
    </TR>
    <TR> 
      <TD width="120" height="21" align=middle valign="top" class="jd_tab" ><table width="100%" border="0" align="center"  class="unnamed1">
            <tr> 
              <td width="94" >
                 <% 
				  if indeximg<>"" then call headpic(urmsg(2),urmsg(3))
                  if rs("jd_userid")<>0 then
                  response.write "<font color=#666666>"&jd_cls
				  response.write "&nbsp 发贴:" & urmsg(5) &"</font><br>"
				  end if
                  response.write viewadmin
				  %></td>
          </tr>
        </table></TD>
      <TD width="" height="21" valign="top" class=unnamed2  style="word-break:break-all"> <%=titlead%>	
        <table width="100%" bo