?? ku_book.asp
字號:
<!--#include file="ku_top.asp" -->
<%
sub navigation()
response.write " >> "
response.write "校內留言"
end sub
%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="800" height="50" bgcolor="#FFFFFF">
<tr>
<td width="218" valign="top">
<div align="center">
<table border="0" width="208" id="table2" bgcolor="#ebebeb" cellpadding="0" cellspacing="0">
<tr>
<td height="30" background="xbqq_img/gonggao.gif">
<p align="center"><b>站 內 公 告</b></td>
</tr>
<tr>
<td><% xbqq_Marquee %></td>
</tr>
<tr>
<td height="0"><hr></td>
</tr>
<tr>
<td height="30" background="xbqq_img/gonggao.gif">
<p align="center"><b>信 息 搜 索</b></td>
</tr>
<tr>
<td height="23"><% xbqq_Search %></td>
</tr>
<tr>
<td height="0"><hr></td>
</tr>
<tr>
<td height="30" background="xbqq_img/gonggao.gif">
<p align="center"><b>站 內 投 票</b></td>
</tr>
<tr>
<td><% xbqq_vote %></td>
</tr>
<tr>
<td height="0"><br></td>
</tr>
</table>
</div>
</td>
<td width="590" valign="top">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="580" height="28" id="table1" background="xbqq_img/kind1.gif">
<tr>
<td width="387"> <img border="0" src="xbqq_img/ico1.gif" width="11" height="9">
<font color="#FFFFFF">咨詢留言</font></td>
<td width="71" valign="bottom">
<a href="<%=indexfilename%>?action=View_Words">查看留言</a></td>
<td width="5"></td>
<td width="72" valign="bottom"><a href="<%=indexfilename%>?action=Add_New">
簽寫留言</a></td>
<td width="15"></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="580" height="5">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="580" height="160" style="border: 1px solid #CECFCE">
<tr>
<td bgcolor="#FFFFFF" width="100%">
<!--留言內容開始-->
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=56>
<%
dim indexfilename,indeximg,n,x,m
indexfilename=right(Request.ServerVariables("PATH_TRANSLATED"),(len(Request.ServerVariables("PATH_TRANSLATED"))-instrRev(Request.ServerVariables("PATH_TRANSLATED"),"\")))
imdeximg="Images/xbqq_skin/" '圖片文件夾
n=5 '每頁顯示留言數
x=5 '每頁顯示的頁數
txt=1000 '留言的最大字數
dim webtitle,webname,webyn,webgl,webyn2,view2
set rs1 = conn.execute("select * From Gaobei_Set")
webtitle=rs1("title")
if rs1("webname")<>"" then webname=rs1("webname")
if rs1("gbyn")<>"" then webyn=rs1("gbyn")
webgl=rs1("gl")
rs1.close
set rs1=nothing
'設置頁腳信息
page =Request.QueryString("page")
if page="" or page=0 then page=1
action = Request.QueryString("action")
action_e = 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
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style='font:9pt Verdana'>"
response.write "你提交的路徑有誤，禁止從站點外部提交數據！"
response.write "</td></tr></table></center>"
response.end
end if
end if
%>
<script language="JavaScript">
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;
}
}
</script>
<table width="500" height="18" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
<tr>
<td width="500" height="10" align="center" valign="top">
<%
'主程序
Select Case action_e
Case "Add_New"
Call Add_New_Execute()
End Select
Call Main_Menu()
Select Case action
Case ""
Call View_Words()
Case "Add_New"
Call Add_New()
Case "View_Words"
Call View_Words()
End Select
%>
</td>
</tr>
</table>
<% Sub Add_New() %>
<table width="500" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<form name="form" method="post" action="<%=indexfilename%>">
<tr bgcolor="#FFFFFF">
<td width="13%" height="20" > <div align="right">姓名：</div></td>
<td width="53%" height="20"> <input type="text" name="name" class="write" size="20" maxLength=8>
*8個字內</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="right"> 性別： </td>
<td height="20"> <select name="sex" size="1">
<option value="1">男</option>
<option value="0">女</option>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="right">QQ：</td>
<td height="20"> <input name="qq" type="text" id="qq" size="35" maxLength=15 class="write"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="right">主頁： </td>
<td height="20"> <input name="web" type="text" value="http://" size="35" maxLength=50 class="write">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="right">來自：</td>
<td height="20"> <input name="come" type="text" id="come" size="35" class="write"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="right">電子郵箱：</td>
<td height="20"><input name="email" type="text" value="" size="35" maxlength=50 class="write"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="right">主題：</td>
<td height="20">
<input name="title" type="text" class="write" id="title" size="35" maxLength=10>
*
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" valign="top"> 留言內容： </td>
<td> <textarea name="words" cols="50" rows="8" class="input1" id="words"
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>
* </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="right">驗證碼：</td>
<td height="20">
<input name="GaobeiSys_CheckCode" type="text" class="login" id="GaobeiSys_CheckCode" size=12 maxlength="20" style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; WIDTH: 70px; BORDER-BOTTOM: 1px solid"> <img src="other/xbqq_GetCode.asp">*
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" valign="top" height="30"> </td>
<td height="30">最多字數： <INPUT disabled maxLength=4 name=total size=3 value=<%=txt%>>
已用字數：
<INPUT disabled maxLength=4 name=used size=3 value=0>
剩余字數：
<INPUT disabled maxLength=4 name=remain size=3 value=<%=txt%>></td>
</tr>
<tr align="center" bgcolor="#EAEAEA">
<td height="20" colspan="2"><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">
</td>
</tr>
</form>
</table>
<br>
<% End Sub %>
<% Sub Main_Menu() %>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="10">
<tr>
<td></td>
</tr>
</table>
</div>
<%
End Sub
'''''''''''''''''''''''
'查看留言
Sub View_Words()
dim gbcount,y,j,k
set rs = conn.execute("select COUNT(*) as gbcount From words")
gbcount=rs("gbcount")
rs.close
if gbcount/n = int(gbcount/n) then '計算出分頁數
y=int(gbcount/n)
else
y=int(gbcount/n)+1
end if
page2= int(page/x)
if page/x>page2 then page2=page2+1
k=page2*x
if k>y then k=y
'打開留言字段'
if page=1 then
sql="select top "&n&" id,sex,name,web,email,title,words,date,reply,ip,come,view,qq From words Order By id Desc"
else
sql="select id,name,web,sex,email,title,words,date,reply,ip,come,view,qq From words Order By id Desc"
end if
if Page >100 then
rs.Open sql,Conn,1
else
Set Rs=Conn.Execute(sql)
end if
if Page>1 then RS.Move n*page-n
%>
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="100%" height="20" >有<%=gbcount %>條留言 <%=page %>/<%=y %>頁 分頁 <a href="?page=1"><<</a>
<% if page2>1 then %>
<a href="<%=indexfilename%>?page=<%=page2*x-x%>"><</a>
<% end if %>
<% For m =page2*x-(x-1) To k %>
[<a href="<%=indexfilename%>?page=<%=m%>"><%=m%></a>]
<% Next %>
<% if page2*x < y then %>
<a href="<%=indexfilename%>?page=<%=m%>">></a>
<% end if %>
<a href="?page=<%=y %>">>></a>
</td>
</tr>
</table>
<% if rs.bof and rs.eof then Response.Write "當前沒有留言記錄" %>
<%
dim lou,words,reply,email,qq,web,come
if Request.QueryString("page")<2 then
lou=gbcount
else
lou=gbcount-((Request.QueryString("page")-1)*n)
end if
i=0
do while not rs.eof and i<n
i=i+1
reply=""
words=""
words=rs("words")
reply=rs("reply")
%>
<TABLE width="100%" height=10 border=0 align=center cellPadding=0 cellSpacing=1 style="border-collapse:collapse" >
<TBODY>
<TR >
<TD colSpan=2 height=30><table width="100%" height="30" border="0" background="images/xbqq_skin/gbdaohang.gif" class="unnamed1">
<tr>
<td height="21"> 主題:<b><%=rs("title")%></b></td>
<td>
<div align="right">
<% if len(trim(rs("web")))>8 then %>
<a href="<%=rs("web")%>" target="_blank"><img src="<%=imdeximg%>homepage.gif" alt="<%=rs("web")%>" width=16 height=16 border="0"></a>
<% end if %>
<% if len(trim(rs("email")))>6 then %>
<a href="mailto:<%=rs("email")%>"><img src="<%=imdeximg%>email.gif" alt="<%=rs("email")%>" width="16" height="16" border="0"></a>
<% end if %>
<% if len(trim(rs("qq")))>3 then %>
<img src="<%=imdeximg%>oicq.gif" alt="<%=Rs("qq")%>" width="16" height="16" border="0">
<% end if %>
<% if len(trim(Rs("come")))>1 then %>
<img src="<%=imdeximg%>come.gif" alt="來自:<%=Rs("come")%>" width="16" height="16">
<% end if %>
</div></td>
<td width="20%"> 第 <font color="#ff0000"><%=lou %></font> 條留言</td>
</tr>
</table> </TD>
</TR>
<TR>
<TD width="111" height="21" align=middle valign="top">
<table width="100%" border="0" align="center">
<tr>
<td width="118"align="center">
<%if rs("sex")=1 then %>
<img src="<%=imdeximg%>male.gif" width="50" height="50">
<% else %>
<img src="<%=imdeximg%>female.gif" width="50" height="50">
<% end if %>
<br>
<%=rs("name")%>
</td>
</tr>
</table></TD>
<TD width="446" height="21" style="word-break:break-all">
<table width="96%" height="132" border="0" align="center">
<tr>
<td width="100%" height="70" style="line-height: <%=Gaobei_line_H%>">
<br>
<% if webyn=1 and rs("view")=1 then %>
<%=Ubb(unHtml(words))%>
<% if len(trim(reply))>1 then%>
<hr size="1">
<span class="style1">斑竹回復:</span><br>
<font color="#990000"> <%=Ubb(unHtml(reply))%> </font>
<%end if %>
<%end if %>
<% if webyn<>1 then %>
<%=Ubb(unHtml(words))%>
<% if len(trim(reply))>1 then%>
<hr size="1">
<span class="style1">斑竹回復:</span><br>
<font color="#990000"><%=Ubb(unHtml(reply))%> </font>
<%end if %>
<%end if %>
<% if webyn=1 and rs("view")=0 then%>
管理員正在對您的留言進行審批...
<%end if %>
</td>
</tr>
<tr>
<td height="22" align="right" style="word-break:break-all">發表于:<%=year(Rs("date"))%>年<%=month(Rs("date"))%>月<%=day(Rs("date"))%>日</td>
</tr>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -