?? bbsindex1.asp
字號(hào):
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/leftbiao3.gif" width="274" height="59"></td>
</tr>
<tr>
<td height="40"> </td>
</tr>
<tr>
<td><div align="center"></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='簽寫留言---給領(lǐng)導(dǎo)或教學(xué)機(jī)制進(jìn)行反饋' 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">給領(lǐng)導(dǎo)或教學(xué)機(jī)制進(jìn)行反饋</span></span></span></span></span></span></span></span></span></span></span></span></td>
<td width="20%"><div align="center"></div>
<div align="right" style="color: #FF0000">
<div align="right"><span style="font-size: 9pt"><a href="bbsindex.asp?action=Admin_Login">管理反饋</a></span></div>
</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="xsfkteacher.asp" target="_blank"><img src="img/post1.gif" alt='簽寫留言---給某個(gè)老師授課進(jìn)行反饋(秘密不公開)' 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">給某個(gè)老師授課進(jìn)行反饋(秘密不公開)</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="#336699">
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table>
<%
On Error Resume Next
dim time1,time2
time1=timer
'''''''#####################################################################
'''''''教師教學(xué)評(píng)價(jià)平臺(tái)
'''''''#####################################################################
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 當(dāng)你忘記管理密碼時(shí),用這個(gè)復(fù)制到數(shù)據(jù)庫中去 :)
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") ' 在此處更改數(shù)據(jù)庫名稱及路徑
'''''''###############################################################
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 '默認(rèn)頭像個(gè)數(shù)
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=" 版主信箱:"&jd_fla
if jd100_foot="" then
jd100_foot="中文版權(quán)所有(C)：<b>"& webname &"</b>"& jd_cmail &"<br>"& "教師教學(xué)評(píng)價(jià)平臺(tái)"
jd100_foot=jd100_foot & "<b><font color=#CC0000>教師教學(xué)評(píng)價(jià)平臺(tái)</font></b></font></a>. "
jd100_foot=jd100_foot & "教師教學(xué)評(píng)價(jià)平臺(tái)</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("非法操作","你提交的路徑有誤，禁止從站點(diǎn)外部提交數(shù)據(jù)請(qǐng)不要亂改參數(shù)！",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>  <a href='"&indexfilename&"?action=Add_New'>簽寫留言</a></font>"
end if
%>
<html>
<head>
<title><%=webname%>留言本</title>
<meta name="description" content="教師教學(xué)評(píng)價(jià)平臺(tái)">
<meta name=keywords content="教師教學(xué)評(píng)價(jià)平臺(tái)">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--下面的<style>可以刪除,頁面已經(jīng)交由jd100.css處理樣式-->
<style type="text/css">
<!--
A.jd100:link {
COLOR: #003399;
TEXT-DECORATION: none;
font-size: 12px;
line-height: 18px;
}
body {
SCROLLBAR-FACE-COLOR: #336699; SCROLLBAR-SHADOW-COLOR: #ffffff; SCROLLBAR-3DLIGHT-COLOR: #ffffff; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #ffffff; SCROLLBAR-DARKSHADOW-COLOR: #336699;
}
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%> 個(gè)字!");
}
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"
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()
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -