📄 bjly.asp
字号:
<!--#include file="config.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="head.asp"-->
<%bid=clng(request("bid"))
if bid="" or bid<1 then ShowError("访问的班级不存在")
rs.open "select * from bj where id="&bid&"",conn,1,1
If Rs.eof Then ShowError("访问的班级不存在")
if rs("isopen")=1 and session("xyluserid")="" then ShowError("你访问的班级禁止游客访问")
if rs("isopen")=2 then
if session("xyluserid")="" then ShowError("你访问的班级禁止非班级成员访问")
if obj.inbj(session("xyluserid"),bid,SiteDatabase)<>1 then ShowError("你访问的班级禁止非班级成员访问")
end if
adminid=rs("adminid")
adminid2=rs("adminid2")
bjname=rs("bjname")
rs.close%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Sitename%>-<%=bjname%>-留言</title>
<LINK href="css.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="photoview.js"></script>
</head>
<body>
<%call bjhead(bid,bjname)%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td height="291" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td width="86%" height="25"> <img src="skins/1/xb3.gif"> 当前位置:<a href="bjindex.asp?bid=<%=bid%>">班级首页</a> >> <a href="bjly.asp?bid=<%=bid%>">班级留言</a></td>
<td width="14%"><%if session("xyluser")<>"" then%><a href="#addhf">添加留言</a><%end if%></td>
</tr>
</table>
<%Select Case request("type2")
Case "edit":
Call edit
Case "edit2":
Call edit2
Case "del":
Call del
Case "del2":
Call del2
Case "add":
Call add
Case Else:
call show
End Select
sub show%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="border">
<tr>
<td height="20" bgcolor="#FFCCCC"><div align="center">留言列表</div></td>
</tr>
</table>
<%rs.open "select * from ly where bjid="&bid&" order by date desc",conn,1,1
If Rs.eof and Rs.bof Then
Response.write("<center>暂无留言</center>")
else
dim strFileName,i,j,totalPut,CurrentPage,TotalPages
totalPut=rs.recordcount
const MaxPerPage=20
strFileName="?bid="&bid&""
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
if currentPage<>1 and (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
else
currentPage=1
end if
i=0
mm=0
if currentPage>1 then mm=(currentPage-1)*10
do while not rs.eof
mm=mm+1%>
<table width="760" border="0" align="center" cellpadding="1" cellspacing="1" class="tableborder">
<tr bgcolor="#F7F7F7">
<td width="160" height="160" valign="top" bgcolor="#F7F7F7"><%if rs("userid")<>"" then
set rc=conn.execute ("select realname,sitemoney,bbscount,bbsjob,face,width,height,joindate,printcm,email,homepage,msn,qq,sitejob from user where id ="&rs("userid")&"")
if rc.eof then
response.write "此人已被删除"
else%> <b><A href="datum.asp?userid=<%=rs("userid")%>"><%=rc("realname")%></a></b><br>
<%if rc("sitejob")=3 then response.write "网站管理员" else response.write rc("bbsjob") end if%><BR> <%=obj.rank(rc("sitemoney"))%><BR> <%=obj.exportface(rc("face"),rc("width"),rc("height"),siteskins)%>
<BR>
积分:<%=rc("sitemoney")%><BR> 注册:<%=rc("joindate")%>
<%printcm=rc("printcm")
end if
else
response.write "发布人帐号丢失"
end if%></td>
<td width="600" valign="top" bgcolor="#F7F7F7">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="100" valign="top">标题：<b><%=rs("title")%></b><br><%=rs("content")%></td>
</tr>
<tr>
<td height="60" valign="top"><img src="skins/1/bbsface/sigline.gif" width="363" height="16"><br>
<%=printcm%> </td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="25"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="76%"> <%=rs("date")%></td>
<td width="24%"><div align="right">#<%=mm%></div></td>
</tr>
</table></td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60%"><%if rs("userid")<>"" and not rc.eof then%>
<A href="datum.asp?userid=<%=rs("userid")%>"><img src="skins/1/bbsface/PROFILE.GIF" width="45" height="18" border="0"></a> <a href="mail.asp?type2=add&toid=<%=rs("userid")%>"><img src="skins/1/bbsface/message.gif" width="48" height="18" border="0"></a> <a href="<%=rc("homepage")%>" target="_blank"><img src="skins/1/bbsface/homepage.gif" width="47" height="18" border="0"></a> <a href="mailto:<%=rc("email")%>"><img src="skins/1/bbsface/EMAIL.GIF" width="45" height="18" border="0"></a> <a href="http://wpa.qq.com/msgrd?V=1&Uin=<%=rc("qq")%>&Site=yvsy.com&Menu=yes" target="_blank"><img src="skins/1/bbsface/oicq.gif" width="45" height="18" border="0"></a> <img src="skins/1/bbsface/msn.gif" alt="<%=rc("msn")%>" width="45" height="18" border="0"></a>
<%else
response.write "发布人帐号丢失"
end if%></td>
<td><%if session("sitejob")=3 or rs("userid")=session("xyluserid") or adminid=session("xyluserid") or adminid2=session("xyluserid") then%><a href="?id=<%=rs("id")%>&type2=edit&bid=<%=bid%>"><img src="skins/1/bbsface/edit.gif" width="48" height="18" border="0"></a>
<a href="?type2=del2&id=<%=rs("id")%>&bid=<%=bid%>" onclick="return confirm('确定要删除这个回复吗?')"><img src="skins/1/bbsface/a_delete.gif" width="52" height="16" border="0"></a>
<%end if%></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="#FFFFFF"></td>
</tr>
</table>
<%i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end if%>
<table width="760" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" class="border">
<tr>
<td height="25" bgcolor="#f9f8f2"><div align="center"><%=obj.showpage(strFileName,totalput,MaxPerPage,true,true,"条",currentPage)%></div></td>
</tr>
</table>
<%rs.close
set rs=nothing
if session("xyluserid")<>"" then
if obj.inbj(session("xyluserid"),bid,SiteDatabase)=1 then%><br>
<table width="100%" border="0" cellpadding="1" cellspacing="1" class="tableborder">
<form name="form1" method="post" action="?type2=add&bid=<%=bid%>">
<tr bgcolor="#FFCFCE">
<td width="14%" height="20">发表留言<a name="addhf"></a></td>
<td width="86%">发布人：<%=session("xyluser")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">标题：</td>
<td><input name="lytitle" type="text" class="formtext2" id="lytitle" maxlength="20">
最多20字符</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">内容：</td>
<td><textarea name="content" cols="60" rows="8" class="border" id="content"></textarea>
最多500字符</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20"> </td>
<td><input name="Submit" type="submit" class="bottom" value="提交"></td>
</tr></form>
</table>
<%end if
end if%><br>
</td>
</tr>
</table>
<%end sub
sub add
lytitle=obj.regstr(request.form("lytitle"))
content=obj.regstr(request.form("content"))
if session("xyluserid")="" then ShowError("请先登录!")
if lytitle="" or content="" then ShowError("缺少参数!")
if len(content)>500 then ShowError("内容不得超过500字符!")
rs.open "select * from ly where 1=2",conn,1,3
rs.addnew
rs("content")=obj.HtmlEncode(content)
rs("bjid")=bid
rs("userid")=session("xyluserid")
rs("title")=lytitle
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs.update
lid=rs("id")
rs.close
rs.open "update user set sitemoney=sitemoney+1 where id="&session("xyluserid")&"",conn,1,3
set rs=nothing
a=obj.gourl(" 页面三秒后将自动返回您所发表的留言，可以继续选择以下操作：<br><br> 返回<A href='bjly.asp?bid="&bid&"'>[班级留言]</a><br><br> 到<A href='bjly.asp?bid="&bid&"#"&lid&"'>[刚发表的留言]</a>","bjly.asp?bid="&bid&"#"&lid&"")
end sub
sub del2
id=clng(obj.regstr(request("id")))
if id="" or id<0 then ShowError("缺少必要的参数")
rs.open "select userid from ly where id="&id&"",conn,1,1
if rs("userid")=session("xyluserid") or session("sitejob")=3 or adminid=session("xyluserid") or adminid2=session("xyluserid") then
userid=rs("userid")
rs.close
rs.open "update user set sitemoney=sitemoney-1 where id="&userid&"",conn,1,3
rs.open "delete from ly where id="&id&"",conn,1,3
a=obj.gourl(" 页面三秒后将自动返回留言栏目，可以继续选择以下操作：<br><br> 返回<A href='bjindex.asp?bid="&bid&"'>[班级首页]</a><br><br> 到<A href='bjly.asp?bid="&bid&"'>[留言栏目]</a>","bjly.asp?bid="&bid&"")
else
rs.close
a=obj.gourl(" 页面三秒后将自动返回留言栏目，可以继续选择以下操作：<br><br> 返回<A href='bjindex.asp?bid="&bid&"'>[班级首页]</a><br><br> 到<A href='bjly.asp?bid="&bid&"'>[留言栏目]</a>","bjly.asp?bid="&bid&"")
end if
end sub
sub edit
id=clng(obj.regstr(request("id")))
if id="" or id<1 then ShowError("缺少必要的参数")
rs.open "select * from ly where id="&id&"",conn,1,1
if rs.eof then ShowError("留言不存在")
if rs("userid")=session("xyluserid") or session("sitejob")=3 or adminid=session("xyluserid") or adminid2=session("xyluserid") then%>
<table width="760" border="0" align="center" cellpadding="1" cellspacing="1" class="tableborder">
<form name="form1" method="post" action="?type2=edit2&id=<%=id%>&bid=<%=bid%>">
<tr bgcolor="#FFCFCE">
<td width="14%" height="20">编辑留言</td>
<td width="86%">留言人：<%=rs("userid")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">标题：</td>
<td><input name="lytitle" type="text" class="formtext2" id="lytitle" value="<%=rs("title")%>" maxlength="20">
最多20字符</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">内容：</td>
<td><textarea name="content" cols="60" rows="8" class="border" id="content"><%=obj.HtmlDecode(rs("content"))%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20"> </td>
<td><input name="Submit" type="submit" class="bottom" value="提交"></td>
</tr></form>
</table>
<%rs.close
end if
end sub
sub edit2
id=clng(obj.regstr(request("id")))
lytitle=obj.regstr(request.form("lytitle"))
content=obj.regstr(request.form("content"))
if session("xyluserid")="" then ShowError("请先登录!")
if lytitle="" or content="" then ShowError("缺少参数!")
if len(content)>500 then ShowError("内容不得超过500字符!")
rs.open "select * from ly where id="&id&"",conn,1,3
if rs("userid")=session("xyluserid") or session("sitejob")=3 or adminid=session("xyluserid") or adminid2=session("xyluserid") then
rs("title")=lytitle
rs("content")=obj.HtmlEncode(content)
rs.update
end if
rs.close
set rs=nothing
a=obj.gourl(" 页面三秒后将自动返回班级留言，可以继续选择以下操作：<br><br> 返回<A href='bjindex.asp?bid="&bid&"'>[班级首页]</a><br><br> 到<A href='bjly.asp?bid="&bid&"'>[班级留言]</a>","bjly.asp?bid="&bid&"")
end sub
sitebottom%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -