bbsindex.asp

ASP学生网上评教系统

<table width="500"  border="0" align="center" cellpadding="0" cellspacing="0">

          <td colspan="2"><div align="center"><a href="bbsindex.asp?action=Admin_Login">留言管理</a></div>            
          
          
          <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><span style="font-size: 9pt; color: #FF0000;">                <span style="font-size: 10pt"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt"><a href="bbsindex.asp?action=Add_New"><img src="img/post.gif" alt='签写留言---给领导或教学机制进行反馈' width="99" height="25" border="0"></a></span></span></span></span></span></span></span></span></td>
              <td><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt">给领导或教学机制进行反馈</span></span></span></span></span></span></span></span></span></span></span></span></td>
              <td width="20%"><div align="center"></div>                
              </td>
            </tr>
            <tr>
              <td width="21%" valign="middle"><div align="left"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt"><a href="xsfkteacherone.asp" target="_blank"><img src="img/post1.gif" alt='签写留言---给某个老师授课进行反馈(秘密不公开)' width="99" height="25" border="0"></a></span></span></span> </span> </span></div></td>
              <td width="59%" valign="middle"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt"><span style="font-size: 9pt; color: #FF0000;"><span style="font-size: 10pt">给某个老师授课进行反馈(秘密不公开)</span></span></span></span></span></span></span></span></span></span></span></span></td>
              <td valign="middle"><div align="center"><a href='bbsindex.asp?action=View_Words'><img src="img/back.gif" width="99" height="25" border="0" alt='查看留言'></a></div>
                <div align="center"> </div></td>
            </tr>
          </table>
            <table width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#ADD7FF">
              <tr>
                <td></td>
              </tr>
            </table></td>
        </tr>
    </table>

<%
On Error Resume Next
dim time1,time2
	time1=timer
'''''''#####################################################################
'''''''教师教学评价平台
'''''''#####################################################################
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)
''MD5 密码替代 admin = 21232f297a57a5a743894a0e4a801fc3 当你忘记管理密码时,用这个复制到数据库中去 :)
dim page,indexfilename,indeximg,db,jd100_page_n,jd100_page_x,bookbg,txt,jd100_top
dim jd100_foot,m,jd_sty,jd_repyn,jd_repn,jd_memyn,jd_bg,jd_foot_addr,jd_top_addr
dim jd_foot_h,jd_top_h,conn,rs,jd_sys,jd_mm
dim img_top,img_foot,jd_cmail,main_list,jd_http
dim webtitle,webname,webyn,webgl,webyn2,view2,jd_table_w,jd_fla,cookmsg
indexfilename=Request.ServerVariables("PATH_TRANSLATED")
indexfilename=right(indexfilename,(len(indexfilename)-instrRev(indexfilename,"\"))) 
'''''''###############################################################
           db=Server.MapPath("#jd100.mdb") ' 在此处更改数据库名称及路径
'''''''###############################################################
           set Conn=Server.CreateObject("ADODB.Connection")
		   Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
		     'jd_sys=conn.execute("select jd_sys from a",0,1)(0)
			 conn.execute("update a set hots=hots+1")
		     'if Request.Cookies("JD100_net_gb_sys"&jd_sys)="" then
                call allsystem(0)
		     'else
                'call allsystem(1)
		     'end if
		   m=10 '默认头像个数
		   jd_foot_addr=jd100_foot
           jd_top_addr=jd100_top
           jd_bg=bookbg

if jd100_top="" then jd100_top="<IMG src="&indeximg&"welcome.gif>"  
page = reSZ(Request.QueryString("page")) 
if jd_fla<>"" then jd_cmail="&nbsp;版主信箱:"&jd_fla
if jd100_foot="" then
jd100_foot="中文版权所有(C)：<b>"& webname &"</b>"& jd_cmail &"<br>"& "教师教学评价平台"

jd100_foot=jd100_foot & "<b><font color=#CC0000>教师教学评价平台</font></b></font></a>. "
jd100_foot=jd100_foot & "教师教学评价平台</a> "
end if
action = reStr(Request.QueryString("action"))
action_e = reStr(Request.Form("action_e"))
if action_e <>"" then
  server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) 
  server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) 
   if mid(server_v1,8,len(server_v2))<>server_v2 then 
    call msg_List("非法操作","你提交的路径有误，禁止从站点外部提交数据请不要乱改参数！",3,indexfilename) 
   end if 
end if
dim jd_username,jd_memberid,jd_membercls
if Request.Cookies("JD100_net_gb2.0"&webname)<>"" then
   if jd_memyn=0 then call exitcookies()
    jd_username=Request.Cookies("JD100_net_gb2.0"&webname)
	    if Request.Cookies("JD100_net_cls"&webname)="" then
		call jdcookies(jd_username,"0")
		end if
   jd_memberid=Request.Cookies("JD100_net_id"&webname)
   jd_membercls=Request.Cookies("JD100_net_cls"&webname)
end if
if indeximg<>"" then
img_top="<TABLE width='"&jd_table_w&"'  border=0 align='center' cellPadding=0 cellSpacing=0 borderColor=#111111 style='BORDER-COLLAPSE: collapse'><TBODY><TR><TD width='2%'><IMG src='"&indeximg&"T_left.gif' border=0></TD><TD width='96%' background='"&indeximg&"Tt_bg.gif'></TD><TD width='2%'><IMG src='"&indeximg&"T_right.gif' border=0></TD> </TR> </TBODY></TABLE>"
img_foot=""  
main_list=""
else
main_list="<font size=3><a href='"&indexfilename&"?action=View_Words'>留言首页</a>&nbsp <a href='"&indexfilename&"?action=Add_New'>签写留言</a></font>"
end if
%>
<html>
<head>
<title><%=webname%>留言本</title>
<meta name="description" content="教师教学评价平台">
<meta name=keywords content="教师教学评价平台">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--下面的<style>可以删除,页面已经交由jd100.css处理样式-->
<style type="text/css">
<!--
A.jd100:link {
	COLOR: #003399;
	TEXT-DECORATION: none;
   	font-size: 12px;
	line-height: 18px;	
}
body {
	SCROLLBAR-FACE-COLOR: #ADD7FF; SCROLLBAR-SHADOW-COLOR: #ffffff; SCROLLBAR-3DLIGHT-COLOR: #ffffff; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #ffffff; SCROLLBAR-DARKSHADOW-COLOR: #ADD7FF;  
}
A.jd100:visited {
   color: #003399; TEXT-DECORATION: none;
   	font-size: 12px;
	line-height: 18px;
}
A.jd100:active {
	COLOR: #003399;
	TEXT-DECORATION: none;
	font-size: 12px;
	line-height: 18px;
}
A.jd100:hover {
	COLOR: #ff0000; TEXT-DECORATION: underline;
	font-size: 13px;
	line-height: 18px;}

A:link {
	COLOR: #003399; TEXT-DECORATION: none
}
A:visited {
	COLOR: #003399; TEXT-DECORATION: none
}
A:hover {
	COLOR: #FF0000; TEXT-DECORATION: underline
}
.unnamed1 {
	font-size: 12px;
	line-height: 18px;
	text-decoration: none;
}
form {margin-bottom:0;margin-top:0}
.style1 {
	color: #990000;
	font-weight: bold;
}
.unnamed2 {
	font-size: 14px;
	line-height: 22px;
}

.jd_tab {
border: 1px solid #85ACE0;
  }
.jd_title {
	font-size: 12px;
	line-height: 18px;
	text-decoration: none;
    background-color: #E7F1F8;
  }
-->
</style>
<link href="<%=indeximg%>jd100.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript">
function showimage()
{document.images.showimages.src="<%=indeximg%>"+document.form.sex.options[document.form.sex.selectedIndex].value+""+document.form.img.options[document.form.img.selectedIndex].value+".gif";
document.form.head.value=document.form.img.options[document.form.img.selectedIndex].value;
}
function gbcount(message,total,used,remain)
{
	var max;
	max = total.value;
	if (message.value.length > max) {
	message.value = message.value.substring(0,max);
	used.value = max;
	remain.value = 0;
	alert("留言不能超过 <%=txt%> 个字!");
	}
	else {
	used.value = message.value.length;
	remain.value = max - used.value;
	}
}

function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall')
       e.checked = form.chkall.checked;
    }
  }
</script>
  <% if len(bookbg)<3 then
  bookbg=""
  else
  bookbg="background=" & bookbg
  end if %>

<body <%=bookbg%> leftmargin="0" topmargin="3" marginwidth="0" marginheight="0">
<table width="<%=jd_table_w%>"  border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td height="" valign="top" >
	<div align="center">
	  <% if jd_top_addr="" then
	 Response.Write (jd100_top) 
	  else %>
	  <IFRAME name="i1"
       src="<%=jd_top_addr %>"; frameBorder=0 width=<%=jd_table_w %>
       scrolling=no height=<%=jd_top_h %> align="center"> </IFRAME>
		<% end if %>
    </div></td>
  </tr>
</table>
<table width="<%=jd_table_w%>" border="0" align="center" cellpadding="0" cellspacing="0" >
  <tr>
    <td height="18" align="center" valign="top" > 
      <%
'主程序 
Select Case action_e
	Case ""

	Case "Add_New"
		Call Add_New_Execute()
	Case "reply"
		Call Reply_Execute()
	Case "admin"
		Call Admin_Login_Execute()
	Case "EditPWD"
		Call EditPWD_Execute()
	Case "Edit"
		Call Edit_Execute()
		
    Case "Edit_web"
		Call Edit_web()
		
	Case "Del_all"
		Call delall()
	Case "Add_reply"	
		Call Add_New_reply()
   Case "add_member"	
		Call add_member()
	Case "member"	
		Call member_login()
	Case "member_save"	
		Call member_save()
	Case "member_list"	
		Call member_list()
	Case "edit_my"	
		Call edit_my()

End Select
Call Main_Menu()
Select Case action
    Case "UbbHelp"
        Call UbbHelp()
	Case "Admin_Login"
		Call Admin_Login()
	Case "member_login"
		Call Admin_Login()	
	Case "Exit"
		Call Exit_Admin()		
		Call View_Words()		
	Case ""		
		Call View_Words()	
	Case "Add_New"
	'----------------------------------------------------------------------------------------------
	response.write "<script>alert('学生反馈需要管理员审批才能查看\n谢谢您的参与请留言！')</script>"
	'----------------------------------------------------------------------------------------------
		Call Add_New()
		
	Case "reply"
		Call Reply()
	Case "View_Words"
		Call View_Words()
	Case "Delete"
		Call Delete()
		Call View_Words()
	Case "EditPWD"
		Call EditPWD()
	Case "Edit"
		Call Edit()
	Case "Edit_web"
		Call Edit_web()
	Case "View_topics"
		Call View_topics()