bbsindex.asp

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

	Case "EditPWD"
		Call EditPWD()
	Case "Edit"
		Call Edit()
	Case "Edit_web"
		Call Edit_web()
	Case "View_topics"
		Call View_topics()
	Case "DeleteReply"
	   Call Deletereply()
    Case "list_top" 
	   list_top()
    Case "list_notop" 
	   list_notop()	   
   Case "member_reg" 
	   Call member_reg() 
   Case "exitcookies"
	  Call exitcookies()
   Case "edituser"
	  Call member_edit()
   Case "member_list"
	  Call member_list()
    Case "edit_my"	
		Call edit_my()
    Case "member_topices_list"
	     Call member_topics_list()
End Select
%>
    </td>
  </tr>
</table>
<% call foot()
sub foot()%>
<table width="<%=jd_table_w%>"  border="0" align="center" cellpadding="0" cellspacing="1">
  <tr> 
    <td  valign="top" ><table align=center cellpadding=0 cellspacing=0>
      <tr>
        <td width="<%=jd_table_w%>" ></td>
      </tr>
      <tr>
        <td class="footline"></td>
      </tr>
      <tr align=center height="" style="line-height:130%">
          <td> <span class="unnamed1">
		  <% if jd_foot_addr="" then
	 Response.Write (jd100_foot) 
	 time2=timer
	  Response.Write "执行时间"&(time2-time1)*1000&"毫秒"
	  else %>
	  <IFRAME name="i1"
       src="<%=jd_foot_addr %>"; frameBorder=0 width=<%=jd_table_w %>
       scrolling=no height=<%=jd_foot_h %> align="center"> </IFRAME>
		<% end if %>
            </span>
</td>
      </tr>
    </table>

	</td>
  </tr>
</table>
<%end sub%>

<%
'添加一条新留言
 Sub Add_New() 
Randomize 
num1=rnd() 
num1=int(26*num1)+65 
session("antry")="test"&chr(num1) 
if  Session("Admin"&webname)<>"Login" then
if jd_memyn=1 and jd_username="" then
call msg_List("错误","你还不是会员或者你还没登录",3,indexfilename)
end if
end if
%>
<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 height=25 class="jd_title" ><div align="center"><font size="3"><strong>签 
          写 反 馈</strong></font> </div></TD>
    </TR>
    <TR> 
      <TD height="21" align=middle valign="top" class="jd_tab" >
	  <table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" class="unnamed1">
          <form name="form" method="post" action="<%=indexfilename%>">
		   
            <tr> 
              <td width="279"  > <div align="right">姓名：</div></td>
              <td width="394">                 <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="81%" class="unnamed1"><input name="<%=session("antry")%>" type="text" class="input1" value="反馈人" size="15" maxLength=5>
                <font color="#FF0000">*</font>
</td>
<td width="19%">	
					</td>
                  </tr>
                </table></td>
              <td width="180" colspan="2"></td>
            </tr>
          <% if jd_username="" then%>
            <tr> 
              <td align="right"> <div align="center">性别： </div></td>
              <td> <select name="sex" size="1" onChange="showimage()">
                  <option value="1">男</option>
                  <option value="2">女</option>
                </select> </td>
              <td width="89" rowspan="2"> 选择头像: 
                <select name="img" size="1" onChange="showimage()">
                  <%
		           for i=101 to 101+m
		            %>
                  <option value='<%=i%>'><%=i%></option>
                  <% next %>
                </select>
				<br>
			  </td>
              <td width="90" rowspan="2"><img src="<%=indeximg%>1101.gif" name=showimages id="showimages" width="50" height="50"> </td>
            </tr>
            <tr> 
              <td align="right">&nbsp;</td>
              <td>&nbsp;              </td>
            </tr>
			<% end if %>
            <tr> 
              <td align="right"><div align="center">主题：</div></td>
              <td><input name="title" type="text" class="input1" id="qq3" value="反馈留言" size="30" maxlength=10> 
                <font color="#FF0000">*</font> </td>
              <td width="180" colspan="2">&nbsp;</td>
            </tr>
            <tr> 
              <td align="right" valign="top"> </td>
              <td colspan="3">&nbsp;  </td>
            </tr>
            <tr> 
              <td align="right" valign="top"> 内容： </td>
              <td colspan="3"> <% if txt=0 then	  %> 
                <textarea name="words" cols="60" rows="12" class="input1" ></textarea> 
                <%else%> 
                <textarea name="words" cols="50" rows="8" class="input1" 
	  onkeydown=gbcount(this.form.words,this.form.total,this.form.used,this.form.remain); 
	  onkeyup=gbcount(this.form.words,this.form.total,this.form.used,this.form.remain);></textarea> 
                <font color="#FF0000">*</font><br>
                最多字数： 
                <input disabled maxlength=6 name=total size=6 value=<%=txt%>>
                已用字数： 
                <input disabled maxlength=6 name=used size=6 value=0>
                剩余字数： 
                <input disabled maxlength=6 name=remain size=6 value=<%=txt%>> 
                <% end if %> </td>
            </tr>
            <tr> 
              <td align="right" valign="top">&nbsp;</td>
              <td colspan="3"> <%if jd_mm=1 then%> <input name="view" type="checkbox" id="view" value="2" <%=view2%>> 
                <font color="#666666">给管理员的留言(只有管理员可见)</font> <% end if %> </td>
            </tr>
            <tr align="center"> 
              <td colspan="4"> <input type="hidden" name="action_e" value="Add_New"> 
                <input type="submit" name="Submit" value="提交" class="input1"> 
                <input type="reset" name="Submit2" value="重写" class="input1"> 
                <br> </td>
            </tr>
          </form>
        </table>
	  </TD>
    </TR>
  </TBODY>
</TABLE>
<br>
<% End Sub %>	
<% Sub Main_Menu() %>
<table width="<%=jd_table_w%>" border="0" align="center" class="unnamed1">
  <tr> 
    <td colspan="2" class=jd_title><div align="center"> 
        </div></td>
  </tr>
  <tr> 
    <td ><%=main_list%></td>
    <td > <div align="right"> 
        <% If Session("Admin"&webname)="Login" Then %>
		<a href="<%=indexfilename %>?action=Edit_web" class="jd100">基本设置</a> 
        <a href="<%=indexfilename %>?action=EditPWD" class="jd100">修改密码</a> 
        <a href="<%=indexfilename %>?action=Exit" class="jd100">退出管理</a> 
        <% Else %>
        <% End If %>
      </div></td>
  </tr>
</table>
<% End Sub 
'''''''''''''''''''''''
'查看留言
Sub View_Words() 
          if reStr(Request.QueryString("cls"))="del" and (jd_membercls=1 or Session("Admin"&webname)="Login") then call deltopics()
          dim jd100_ID,jd100_biao,jd100_zd,jd100_order,jd100_page_count
		  dim titlepic,listad,jd_usermsg

          jd100_ID="id"  '索引ID
          jd100_biao="topics" '表名 
		  if jd_sty=0  then
          jd100_zd="id,jd_name,jd_userid,jd_sex,jd_head,jd_web,jd_email,jd_title,jd_words"
		  jd100_zd=jd100_zd &",jd_date,jd_reply,jd_ip,jd_come,jd_view,jd_qq,jd_rep,jd_top" '字段名
		  else
		   jd100_zd="id,jd_userid,jd_reid,jd_title,jd_name,jd_date,jd_hit,jd_rep,jd_top"
		  end if
		  jd100_order=" where jd_view=1 order by jd_top desc,jd_rdate desc"   '倒序
		  '-------------------------------------------------------------
		  if Session("Admin"&webname) = "Login" then
		  jd100_order="order by jd_top desc,jd_rdate desc"   '倒序
		  end if
		  '-------------------------------------------------------------
		  
		  
		  jd100_page_count=rsCount(jd100_ID,jd100_biao,"")
        
if  jd100_page_count>0 then
         '打开记录集
		 set Rs=server.createobject("adodb.recordset")
         sql="select  "&jd100_zd&" From "&jd100_biao&" "&jd100_order&" "
         Rs.Open sql,Conn,1,1,&H0001
        '根据分页参数获取当前页面纪录
         Rs.AbsolutePosition=Rs.AbsolutePosition+((Abs(Page)-1)*jd100_page_n)
%>
<form name="form" method="post" action="<%=indexfilename%>">
  <table width="<%=jd_table_w%>" border="0" cellspacing="1" cellpadding="4" align="center">
    <% if len(webtitle)>2 then %>
    <tr> 
      <td height="20" colspan="2" align="right" class="unnamed2"> <marquee onMouseOut=start(); onMouseOver=stop(); scrollamount=3>
        </marquee></td>
    </tr>
    <% end if %>
    <tr> 
      <td  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>
      <td height="20"  class="unnamed1"><div align="right"><%=rsPage( jd100_page_count,jd100_page_n,jd100_page_x,"action=View_Words")%></div></td>
    </tr>
  </table>
<%
Select Case jd_sty
	Case ""
	Case 0
dim lou,words,reply,email,qq,web,come
dim viewadmin
if page<2 then
lou=jd100_page_count
else
lou=jd100_page_count-((page-1)*jd100_page_n)
end if 
i=0
do while not rs.eof and i<jd100_page_n
i=i+1
reply=""
words=""  
  words=rs("jd_words")
  reply=rs("jd_reply")
  view=rs("jd_view")
  words=Ubb(unHtml(words))

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="&rs("jd_ip")& " target='_blank'><img src="&indeximg&"ip.gif border=0 alt=查询IP来源地></a> " &rs("jd_ip")      
viewadmin=viewadmin &"<a href=?action=Edit&id="&rs("id")&"> <img src="&indeximg&"reply.gif alt=编辑回复 width=16 height=16 border=0></a>&nbsp;" 				
viewadmin=viewadmin &"<input name='id' type=checkbox id=delall value="&rs("id")&"><font color='#ff0000'>选择</font> "
end if	
    if  rs("jd_userid")=0 then
         jd_usermsg=rs("jd_name")& "｜｜｜"
         jd_usermsg=jd_usermsg &"" 
         if jd_membercls=1 or Session("Admin"&webname) = "Login" then
		 jd_usermsg=jd_usermsg &""
         jd_usermsg=jd_usermsg &""
         jd_usermsg=jd_usermsg &""
         end if
         jd_usermsg=jd_usermsg &  "｜｜｜"
		 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 & " ｜｜｜ "
         jd_usermsg=jd_usermsg & "0"
else
'jd_usermsg=member_msg(rs("jd_userid"))
         set usrs=conn.execute("select jd_user,jd_sex,jd_cls,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")&" ")