book.asp

全能学校管理网站源码,小草网络提供,下载试用下

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="sqlx.asp"-->
<%
web58818_search="ぁ|あ|ぃ|い|ぅ|う|ぇ|え|ぉ|お|か|が|き|ぎ|く|ぐ|け|げ|こ|ご|さ|ざ|し|じ|す|ず|せ|ぜ|そ|ぞ|た|だ|ぢ|っ|つ|づ|て|で|と|ど|な|ぺ|べ|へ|ぷ|ふ|ぶ|ぴ|び|ひ|ぱ|は|ば|の|ね|に|ぬ|ほ|ぼ|ぽ|ま|み|む|め|も|ゃ|や|ゅ|ゆ|ょ|よ|ら|り|ィ|ア|ァ|ゞ|ゝ|゜|゛|ん|を|ゑ|ゐ|わ|ゎ|ろ|れ|る|ポ|ベ|プ|ゴ|ガ|ギ|グ|ゲ|ザ|ジ|ズ|ヅ|デ|ド|ポ|ベ|プ|ビ|パ|ヴ|ボ|ペ|ブ|ピ|バ|ヂ|ダ|ゾ|ゼ"
web58818_info=split(web58818_search,"|")
If Request.Form<>"" Then
For Each web58818_post In Request.Form
For web58818_get=0 To Ubound(web58818_info)
If Instr(LCase(Request.Form(web58818_post)),web58818_info(web58818_get))<>0 Then
web58818CMS("<Script>alert('对不起，您提交的内容中包含系统禁止字符！');location.href='book.asp';</Script>")
Response.End
End If
Next
Next
End If
if request("keyword")<>"" then
if instr(request("keyword"),"'")>0 then
web58818CMS("<script language=javascript>alert('非法搜索参数');javascript:history.back();</script>")
end if
end if
call pass()
title="游客留言"
call top()%>
<table border="0"  cellspacing="0" cellpadding="0" align=center class=bgcolor>
<tr><td class=left></td>
<td class=width>
<table width=100% border=0  cellspacing="0" cellpadding="0">
<tr>
<td  valign=top>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<td  class=lefttopcenter>&emsp;<img border=0 src='skin/<%=web58818skin%>/mor.gif' align=absmiddle>&nbsp;会员登陆</td><td  class=lefttopright></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td valign=top class=leftcentercenter  height=150>
<%call login()%>
</td><td class=leftcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>
<%call br%>
<table border="0"   cellspacing="0" cellpadding="0">
<td  class=lefttopcenter>&emsp;<img border=0 src='skin/<%=web58818skin%>/mor.gif' align=absmiddle>&nbsp;留言搜索</td><td  class=lefttopright></td>
</tr></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td valign=top class=leftcentercenter  align=center>
<%call br%>
<form name="form2" method="post" action="book.asp"><input type="radio" name="select" value="subject" checked>主&emsp;题&nbsp;<input type="radio" name="select" value="name">作&emsp;者&nbsp;<br><input type="radio" name="select" value="content">内&emsp;容&nbsp;<input type="radio" name="select" value="reply">回&emsp;复&nbsp;<br><input type='text' name='keyword'  size='15' value='搜索关键字' maxlength='50' onFocus='this.select();' class="web58818">&nbsp;<input type='submit' name='search'  value='搜 索' onmouseover="this.className='overput'" onmouseout="this.className='put'" class="put">
</form>
<%call br%>
</td><td class=leftcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>
<%call br%>
<table border="0"   cellspacing="0" cellpadding="0">
<td  class=lefttopcenter>&emsp;<img border=0 src='skin/<%=web58818skin%>/mor.gif' align=absmiddle>&nbsp;留言操作</td><td  class=lefttopright></td>
</tr></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td valign=top class=leftcentercenter  align=center>
<%call br%>
&nbsp;⊙&nbsp;<a href=?action=addbook><font color=red>发表留言</font></a><%call br%>
&nbsp;⊙&nbsp;<a href=book.asp>查看留言</a><%call br%>
<%call br%>
</td><td class=leftcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>
<%call br%></td>
<td width="5"></td>
<td valign=top align=right><%call br%>
<%
Select Case request("action")
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◇功  能：留言列表                ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇		
case ""	%>	
<table border="0" cellspacing="0" cellpadding="0">
<tr><td class=righttopleft></td>
<td class=righttopcenter>&emsp;当前位置：<a href="index.asp"><font color=#007100>本站首页</font></a>→<a href="book.asp"><font color=#007100>访客留言</font></td>
</tr></table>
<table border="0"   cellspacing="0" cellpadding="0"><tr>
<td class=rightcenterleft></td>
<td  class=rightcentercenter valign=top>
<table cellspacing="0" cellpadding="0" border=1 bordercolor=#037000 class='rightcentercenter' width=100% rules=rows frame=void id=web58818table>
<%
if request("keyword")<>"" then
sql="select * from YC_book where "&request("select")&" like '%"&request("keyword")&"%'order by id DESC"
else
Sql="Select * From YC_book Order By id Desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=cint(web58818page(6))
num=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
<tr height=25><td colspan=2>
<table border=0 class='rightcentercenter' width=100%><tr>
<td>·<a href="javascript:void(0);" onclick="document.all.m<%=rs("id")%>.style.display=(document.all.m<%=rs("id")%>.style.display=='none')?'':'none'" title="姓 名：<%=Rs("name")%><br>性 别：<%=Rs("sex")%><br>发 表：<%=Rs("date")%>" ><%=key(Rs("subject"))%></a></td>
<td align=center width=60><%If Rs("reply")<>"" Then response.write"已回复" end if%></td>
<td align=right width=150>
<%If Rs("email")<>"" Then%>
<a href="mailto:<%=Rs("email")%>">
<img align=absBottom border=0 height=16 src="img/email.gif" width=16 title="给<%=Rs("name")%>写信"></a>&nbsp;
<%else%>
<img align=absBottom border=0 height=16 src="img/email.gif" width=16 title="未填写">&nbsp;
<%End If%>
<%If Rs("qq")<>"" Then%>
<img align=absBottom title="<%=Rs("name")%>的QQ号码是<%=Rs("qq")%>" border=0 height=16 src="img/qq.gif" width=16>&nbsp;
<%else%>
<img align=absBottom title="未填写" border=0 height=16 src="img/qq.gif" width=16>&nbsp;
<%End If%>
<%If Rs("web")<>"" Then%>
<a href="<%=Rs("web")%>" target="_blank">
<img align=absBottom border=0 height=16 src="img/web.gif" width=16 title="去<%=Rs("name")%>的主页看看"></a>&nbsp;
<%else%>
<img align=absBottom title="未填写" border=0 height=16 src="img/web.gif" width=16>&nbsp;
<%End If%>
<img align=absBottom title="<%=Rs("name")%>的IP地址为<%=Rs("ip")%>" height=16 src="img/ip.gif" width=16>&nbsp;<%If session("superlogin")=web58818 Then%><a href="book.asp?action=shanchu&id=<%=Rs("id")%>"><img align=absBottom border=0 title="【删除】" height=16 src="img/Delete.gif" width=16></a>&nbsp;<a href="book.asp?action=editbook&id=<%=rs("id")%>"><img align=absBottom border=0 title="【编辑回复】" height=16 src="img/edit.gif" width=16></a>&nbsp;<%End if%>
</TD></tr></table></TD></tr>
<tr style="display:none;" id="m<%=rs("id")%>">
<td  width=135 align="center" class='rightcentercenter' valign="top"><%call br%>
<TABLE cellSpacing=0 cellPadding=0 width=120 border=0>
<TR><TD vAlign=bottom align=middle>
<TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>
<TR><TD bgColor=#ffffff>
<TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>
<TR><TD bgColor=#ffffff>
<TABLE cellSpacing=1 cellPadding=0 bgColor=#000 border=0>
<TR><TD bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=1 width="100%" border=0>
<TR><TD align=middle style="padding:4px">
<img width=110 height=130 src=<%=Rs("title")%> border=1 align=absmiddle title="您的姓名：<%=Rs("name")%><br>您的性别：<%=Rs("sex")%><br>发表时间：<%=Rs("date")%>" 
onclick=window.location='book.asp?select=name&keyword=<%=Rs("name")%>' style="cursor:hand" align=absmiddle>
</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>
<%call br%>
</td>
<td style='table-layout:fixed;word-break:break-all;line-height:150%;padding:3px'  valign=top class='rightcentercenter' width=430>
<%call br()
if rs("admin")=0 then
response.write key(Ubb(unHtml(Rs("content"))))
else
if session("superlogin")=web58818 then
response.write key(Ubb(unHtml(Rs("content"))))
else
response.write"<center><font color=#1E90FF><b>─────≡ 这是给站长的悄悄话 ≡─────</b></font></center>"
End If
End If
If Rs("reply")<>"" Then
call br()%>
<div style='border:1px solid #007100;background:c8e440;padding:5px;height:60'>
<font class=bookreply>&nbsp;<%=rs("user")%>站长回复说：<%=Ubb(unHtml(Rs("reply")))%></font><div align=right>【<%=Rs("replydate")%>】
</div></div>
<%End If%>
</td></tr>
<%
if num=rs.pagesize then exit do end if
num=num+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
response.write"<tr><td colspan=6 height=60 align=center>"
if request("keyword")<>"" then
response.write"没有找到包含[<b><font color=red>"&request("keyword")&"</font></b>]的留言！"
else
response.write"没有任何留言，欢迎您成为本站第一个留言者！"
end if
response.write"</td></tr>"
else
response.write"<tr><td colspan=2 height=25 align=center class='rightcentercenter'>"
response.write "&emsp;&emsp;共有留言<font color=red>"&rs.recordcount&"</font>条，每页<font color=red>"&rs.pagesize&"</font>条，分<font color=red>"&mypage&"</font>/"&rs.pagecount&"页&emsp;&emsp;&emsp;"
%>
<script language="javascript">
function showPageLink(sUrl,iPage,iCount){
var i;
i=Math.max(1,iPage-1);
document.write("<a href=\""+sUrl+"1\"><FONT face=Webdings>9</FONT></a> ");
document.write("<a href=\""+sUrl+i+"\"><FONT face=Webdings>7</FONT></a> <b>");
for(i=Math.max(1,iPage-5);i<iPage;i++){
document.write("<a href=\""+sUrl+i+"\">"+i+"</a> ");}
document.write("<font color='#ff3333'>"+iPage+"</font> ");
for(i=iPage+1;i<=Math.min(iCount,iPage+5);i++){
document.write("<a href=\""+sUrl+i+"\">"+i+"</a> ");}
i=Math.min(iCount,iPage+1);
document.write("</b><a href=\""+sUrl+i+"\"><FONT face=Webdings>8</FONT></a> ");
document.write("<a href=\""+sUrl+iCount+"\"><FONT face=Webdings>:</FONT></a> ");}
showPageLink("?select=<%request("select")%>&keyword=<%request("keyword")%>&page=",<%=mypage%>,<%=pages%>);
</script>
</td></tr>
<%end if%></table></form></TD></TR></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td  class=rightfootleft></td><td class=rightfootcenter></td></tr></table>		
<%
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◇功  能：发表留言                ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
case "addbook"%>
<table border="0" cellspacing="0" cellpadding="0">
<tr><td class=righttopleft></td>
<td class=righttopcenter>&emsp;当前位置：<a href="index.asp"><font color=#007100>本站首页</font></a>→<a href="book.asp"><font color=#007100>访客留言→发表留言</font></td>
</tr></table>
<table border="0"   cellspacing="0" cellpadding="0"><tr>
<td class=rightcenterleft></td>
<td  class=rightcentercenter valign=top><%call br%>
<form name="form" method="post" action="book.asp?action=addok" onsubmit="return book();">
<table width=100% border=1 cellpadding=2 class='rightcentercenter' frame=void rules=rows bordercolor=<%=border%>>
<tr><td>

<table width=100% border=0 cellpadding=0 class='rightcentercenter'>
<tr><td>
&nbsp;您的姓名：<input type="text" name="name" maxlength="10" style="width:160px" class='web58818' autocomplete="off" 
value=<%if session("user")<>"" then response.write session("user")%>>&nbsp;<font color=red>√</font> 最多10个字符<%call br()%>
&nbsp;电子邮箱：<input type="text" name="email" maxlength="30" style="width:160px" class='web58818'>&nbsp;要正确输入！<%call br()%>
&nbsp;腾迅&nbsp;Q&nbsp;Q：<input type="text" name="qq" maxlength="15" style="width:160px" class='web58818'>&nbsp;最多10个字符
<%call br()%>
&nbsp;个人主页：<input type="text" name="web" maxlength="40" style="width:160px" class='web58818' value="">&nbsp;要带<font color=red>http://</font><%call br()%>
&nbsp;选择头像：<select name="title" class=web58818 onChange="document.images['face'].src=options[selectedIndex].value;"  size=1 >
<option value="img/book1.gif">头像一〖女〗</option>
<option value="img/book2.gif">头像二〖女〗</option>
<option value="img/book3.gif">头像三〖女〗</option>
<option value="img/book4.gif">头像四〖男〗</option>
<option value="img/book5.gif">头像五〖男〗</option>
<option value="img/book6.gif">头像六〖男〗</option>
<option value="img/book7.png">头像七〖物〗</option>
<option value="img/book8.png">头像八〖物〗</option>
<option value="img/book9.png">头像九〖物〗</option>
</select> <select name="sex" class=web58818>
<option value="保密">保密</option>
<option value="帅哥" selected>帅哥</option>
<option value="美女">美女</option>
</select><%call br()%>
&nbsp;验&nbsp;证&nbsp;码：<input name="code" type="text" size="7" maxlength="4" class="web58818">&nbsp;<img src="inc/code.asp" style="width:40;height=15" border=0 align=absmiddle>&emsp;
</td>
<td><%call br()%>
<TABLE cellSpacing=0 cellPadding=0 width=120 border=0>
<TR><TD vAlign=bottom align=middle>
<TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>
<TR><TD bgColor=#ffffff>
<TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>
<TR><TD bgColor=#ffffff>
<TABLE cellSpacing=1 cellPadding=0 bgColor=#000 border=0>
<TR><TD bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=1 width="100%" border=0>
<TR><TD align=middle style="padding:4px">
<img width=110 height=130 id=face src="img/book7.png" border=1 align=absmiddle align=absmiddle>
</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>
<%call br()%></td></tr></table>
</td></tr>
<tr height=23>
<td  background=img/booktitle.gif>&nbsp;您的主题：<input type="text" name="subject" maxlength="15" style="width:160px" class='web58818' autocomplete="off">&nbsp;<select  onchange="if(this.options.selectedIndex>0&&this.form.subject.value.length<46)this.form.subject.value=this.options[this.options.selectedIndex].text+this.form.subject.value;this.options.selectedIndex=0;">
<option selected>选择话题</option>
<option>[留言]</option>
<option>[求助]</option>
<option>[连接]</option>
<option>[建议]</option>
<option>[下载]</option>
<option>[报错]</option></select>&nbsp;<font color=red>√</font></td></tr>
<tr>
<td align="center"><textarea name="content" style="width:99%;height:100"  class='web58818'  
onkeydown="bookcount(this.form.content,this.form.total,this.form.used,this.form.remain);" 
onkeyup="bookcount(this.form.content,this.form.total,this.form.used,this.form.remain);"></textarea></td></tr>
<tr class=70c8f8><td align="center"  height="30"> <input type="checkbox" name="admin" value="1">&nbsp;悄悄话
<input type="hidden" name="action_e" value="Add_New"> <input type="submit" name="Submit" value="提 交" onmouseover="this.className='overput'" onmouseout="this.className='put'" class="put"> 
<input type="reset" name="Submit2" value="重 写" onmouseover="this.className='overput'" onmouseout="this.className='put'" class="put">&nbsp;&nbsp;最多字数：<input disabled maxLength="4" size="3" value="250" name="total" class=web58818>&nbsp;&nbsp;已用字数：<input disabled maxLength="4" size="3" value="0" name="used" class=web58818>剩余字数：<input disabled maxLength="4" size="3" value="250" name="remain" class=web58818>&nbsp;
</form></td></tr></table>
</TD></TR></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td  class=rightfootleft></td>
<td class=rightfootcenter></td></tr></table>
<%
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◇功  能：发布处理                ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
case "addok"
if int(request("code"))<>int(Session("code")) then
web58818CMS("<script>alert('请输入正确的认证码！');this.location.href='book.asp?action=addbook';</script>")
end if
Session("code")=""
If Request.Form("subject")="" Then
web58818CMS("<script>alert('您要发表的主题不能为空！');this.location.href='book.asp?action=addbook';</script>")
Response.End
End If
If Len(Request.Form("name"))>15 Then
web58818CMS("<script>alert('您的主题不要超过15个字符！');this.location.href='book.asp?action=addbook';</script>")
Response.End
End If
If Request.Form("name")="" Then
web58818CMS("<script>alert('您的姓名不能为空！');this.location.href='book.asp?action=addbook';</script>")
Response.End
End If