📄 schoolboard.asp
字号:
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="const.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<!--#INCLUDE FILE="checkuser.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<html><head>
<title><%=SchoolmateName%>——校园杂谈</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="txl.css" type="text/css" rel="stylesheet">
</head>
<body topmargin="0" leftmargin="0" bgcolor=<%=bodycolor%>>
<%
dim founderr,Errmsg
if request("action")="save" then
dim content,title
dim mailfrom,mailto,mailtopic,mailbody
call saveboard()
elseif request("action")="sign" then
call signboard()
else
dim rs,StrSQL,CurrentPage,maxpages
call main()
end if
sub main()
if isInteger(request("page")) then
currentpage=cint(request("page"))
else CurrentPage=1
end if
Set rs = Server.CreateObject("ADODB.Recordset")
StrSQL = "Select schoolboard.title,schoolboard.content,schoolboard.adddate,"&_
"schoolboard.mood,schoolboard.name,student.regdate,student.point,"&_
"student.maxim,student.image,student.enyear,student.bir_month,"&_
"student.bir_day,student.email,student.oicq,schoolboard.ip,"&_
"student.homepage from schoolboard ,student where "&_
"schoolboard.name=student.userid order by id desc"
rs.open StrSQL,conn,1,1
rs.pagesize=PageSize
maxpages=cint(rs.pagecount)
if CurrentPage>maxpages and maxpages<>0 then
errmsg="<br>"+"<li>没有你所想要的页!</li>"
founderr=true
call error(errmsg)
else
%>
<br>
<table border="0" cellspacing="1" width="90%" bgcolor="<%=tablebordercolor%>" cellpadding="4" align=center>
<tr bgcolor=<%=tabletitlecolor%>>
<td bordercolor="#EBEBEB" align=center><img height="35" src="images/icon03.gif" width="35" align="absMiddle"> 校园杂谈</td>
</tr>
</table>
<br><br>
<table width=90% align=center><tr><td>
<a href="schoolboard.asp?action=sign"><img src=images/post.gif border=0></a>
</td></tr>
</table>
<%
if rs.eof or rs.bof then
call showemptypage()
else
call showschoolboard()
call pagelink()
end if
end if
rs.close
set rs=nothing
call endconnection()
end sub
sub showemptypage()
%>
<table border="0" cellspacing="1" width="90%" cellpadding="4" align=center bgcolor="<%=tablebordercolor%>">
<tr bgcolor=<%=tablebodycolor2%>>
<td height="40"> 目前还没有留言!</td>
</tr>
</table>
<br><br>
<%
end sub
sub showschoolboard()
%>
<script language="JavaScript" src="script/jsfun.js"></script>
<table cellpadding=0 cellspacing=1 border=0 width="90%" align=center bgcolor=<%=tablebordercolor%>>
<%
rs.absolutepage=CurrentPage
total=0
do until rs.eof or total=PageSize
title=rs("title")
content=rs("content")
name=rs("name")
maxim=rs("maxim")
mood=rs("mood")
m=rs("bir_month")
d=rs("bir_day")
cons=constellation(m,d)
if rs("enyear")<>"" then
namestyle="filter:glow(color=#798AB7,strength=2)"
else
namestyle="filter:glow(color=green,strength=2)"
end if
total=total+1
if (total mod 2)=0 then
response.write "<tr bgcolor="&TablebodyColor1&">"
abgcolor=Tablebodycolor2
else
response.write "<tr bgcolor="&TablebodyColor2&">"
abgcolor=Tablebodycolor1
end if
%>
<td>
<table border="0" cellspacing="2" width="100%" cellpadding="4">
<tr><td width=27% valign=top><table cellspacing=8 border=0><tr><td><table style="<%=namestyle%>"><tr><td><br> <b><%=htmlencode(name)%></b><br><br></td></tr></table>
<%
if not isnull(rs("image")) and rs("image")<>"" then
response.write " <img src="&rs("image")&">"
else
response.write "<br><br>"
end if
response.write "<br><br>入学："
if rs("enyear")<>"" then response.write rs("enyear") else response.write "不详"
response.write "<br>注册："&rs("regdate")
response.write "<br>积分："&rs("point")
response.write "<br>星座："&cons
response.write "<br>鉴定："
if FromFlag=true then response.write ipsource(rs("ip")) else response.write "保密"
%>
</td></tr></table></td>
<td width=1><table cellpadding=0 cellspacing=0 width=1 border=0 bgcolor=<%=tablebordercolor%> height=100%><tr><td width=1></td></tr></table></td>
<td height=15><table width=100% height=100% border=0 cellspacing=0 cellpadding=0><tr><td valign=top><table cellspacing=0 cellpadding=0 border=0 width=100%><tr><td> </td>
<td align=right valign=top>
<a href=javascript:openScript('messanger.asp?action=new&touser=<%=htmlencode(name)%>',420,320)><img border=0 src=images/message.gif align=absmiddle hspace=2>短信</a>
<a href="javascript:openScript('profile.asp?name=<%=htmlencode(rs("name"))%>',420,320)"><img src=images/profile1.gif border=0 align=absmiddle>信息</a>
<%if not isnull(rs("email")) and rs("email")<>"" then response.write "<a href=mailto:"&htmlencode(rs("email"))&"><img src=images/email.gif border=0 align=absmiddle hspace=2>邮件</a> "
if not isnull(rs("oicq")) and rs("oicq")<>"" then response.write "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln="&htmlencode(rs("oicq"))&"><img src=images/oicq.gif border=0 hspace=2>OICQ</a> "
if not isnull(rs("homepage")) and rs("homepage")<>"" then response.write "<a href="&htmlencode(rs("homepage"))&"><img src=images/homepage.gif border=0 align=absmiddle>主页</a>"
%>
</td></table>
<hr width=100% size=1 color=#777777></td></tr><tr><td height=100%>
<table height=100% border=0 width=100% cellspacing=0 cellpadding=1><tr><td><table height=100% width=100% border=0><tr><td valign=top>
<%if instr(mood,"face")>0 then response.write "<img src="&MoodURL&mood&" border=0 alt=发贴心情> "
response.write "<b>"&htmlencode(title)&"</b><br>"
%>
<%=ubbcode(content)%></td></tr></table></td></tr><tr><td valign=bottom>
<%
if not isnull(rs("maxim")) and rs("maxim")<>"" then
response.write "<table align=right valign=bottom border=0 cellspacing=8 cellpadding=0 width='80%'><tr><td align=right vlign=bottom><p>------------------------<br>"& UBBCode(maxim)&"</td></tr></table>"
end if
%>
</td></tr></table></td></tr><tr><td valign=bottom>
<hr width=100% size=1 color=#777777>
<table cellspacing=0 cellpadding=0><tr><td><img src=images/time.gif> 留言时间：<%=rs("adddate")%> </td><td> <img src=images/ip.gif>
<%if IpFlag=false then response.write rs("ip") else response.write getip(rs("ip"))
%>
</td></tr></table></td></tr>
</table></td></tr></table></td></tr>
<%rs.movenext
loop
end sub
sub PageLink()
'on error resume next
set rs=conn.execute("select count(id) from schoolboard")
totalrec=rs(0)
dim n,pi
if totalrec mod PageSize=0 then
n= totalrec \ PageSize
else
n= totalrec \ PageSize+1
end if
if currentpage-1 mod 10=0 then
p=(currentpage-1) \ 10
else
p=(currentpage-1) \ 10
end if
response.write "<table border=0 cellpadding=0 cellspacing=3 width=90% align=center >"&_
"<form method=post action=schoolboard.asp name=frmList2 >"&_
"<tr><td valign=middle>页次<strong>"& currentPage &"</strong>/<strong>"& n &"</strong> 每页<strong>"& PageSize &"</strong> 留言数<strong>"& totalrec &"</strong></td>"&_
"<td valign=middle align=right><p>分页："
if p*10>0 then response.write "<a href=schoolboard.asp?page="&Cstr(p*10)&">[<<]</a> "
for ii=p*10+1 to P*10+10
if ii=currentPage then
response.write "<font color=gray>["+Cstr(ii)+"]</font> "
else
response.write "<a href=schoolboard.asp?page="&Cstr(ii)&">["&Cstr(ii)&"]</a> "
end if
if ii=n then exit for
'p=p+1
next
if ii<n then response.write "<a href=schoolboard.asp?page="&Cstr(ii)&">[>>]</a> "
response.write "转到:<input type=text name=Page size=2 maxlength=10 value='"& currentpage &"'><input type=submit value=Go></p>"&_
"</td></tr>"&_
"</form></table>"
if err.number<>0 then err.clear
end sub
rem ---------------------------------------------------------------------------------
sub signboard()
%>
<script language="JavaScript" src="script/jsfun.js"></script>
<table border="0" cellspacing="1" width="100%">
<tr>
<td>
<table border="0" cellspacing="1" width="100%">
<tr>
<td align="center"><br>
</p>
<form style="MARGIN: 0px" name="frmgbk" action="schoolboard.asp?action=save" method="post"
onsubmit="return submitonce(this)">
<input type="hidden" name="name" value="<%=membername%>">
<input type="hidden" name="clsid"
value="<%=clsid%>">
<table border="0" cellspacing="1" width="470" cellpadding="4"
bgcolor="<%=tablebordercolor%>">
<tr bgcolor="<%=tabletitlecolor%>">
<td height="20" align="center" colspan=2>
<img height="30" src="images/icon04.gif" width="30" align="absMiddle"> <b>签写班级留言</b></td>
<tr bgcolor="<%=tablebodycolor2%>">
<td height="13"> 留 言 人</td><td>
<%=htmlencode(membername)%></td>
</tr>
<tr bgcolor="<%=tablebodycolor2%>">
<td height="13"> 留言主题</td><td> <input size="38" name="title"></td>
</tr>
<tr bgcolor="<%=tablebodycolor2%>">
<td height="13"> 留言心情</td><td><br><table border=0 width=100%><tr><td align=center>
<%for i=1 to 9%>
<input type="radio" value="face<%=i%>" name="mood" <%if i=1 then response.write "checked"%>><img src="<%=MoodURL%>face<%=i%>.gif" WIDTH="15" HEIGHT="15">
<%next%>
<br>
<%for i=10 to 18%>
<input type="radio" value="face<%=i%>" name="mood"><img src="<%=MoodURL%>face<%=i%>.gif" WIDTH="15" HEIGHT="15">
<%next%></td></tr></table>
</td>
</tr>
<tr bgcolor="<%=tablebodycolor2%>">
<td width=80> 留言内容<br><br>（支持<font color=brown>UBB</font>代码，请不要超过<font color=brown><%=MaxBoardSize%></font>个字符。）
</td>
<td> <textarea name="content" rows="10" cols="50"></textarea></td>
</tr>
<tr bgcolor="<%=tabletitlecolor%>">
<td height="30" align="center" colspan=2><input
style="WIDTH: 90px; HEIGHT: 20px" type="submit" value="提交留言" name="submit">
<input style="WIDTH: 90px; HEIGHT: 20px" type="reset" value="清除重写"
name="reset"> </td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%end sub
rem ---------------------------------------------------------------------
sub saveboard()
if request.servervariables("content_length")=0 then
Errmsg=Errmsg+"<br>"+"<li>没有操作请求！您正试图进行非法操作。"
founderr=true
call error(errmsg)
else
if request.form("title")="" then
Errmsg=Errmsg+"<br>"+"<li>请确认输入了留言主题。"
founderr=true
else
title=trim(request.form("title"))
end if
content=rtrim(request.form("content"))
if content="" then
Errmsg=Errmsg+"<br>"+"<li>留言内容不能为空。"
founderr=true
elseif strLength(content)>MaxBoardSize then
ErrMsg=ErrMsg+"<Br>"+"<li>留言内容不得大于" & CSTR(MaxBoardSize) & "bytes"
FoundErr=true
end if
if founderr=true then
call error(errmsg)
else
call savedata()
call success()
end if
end if
call endconnection()
end sub
sub savedata()
dim rs
name=request.form("name")
min=minute(now())
if len(min)=1 then min="0"&min
adddate=year(date())&"-"&month(date())&"-"&day(date())&" "&hour(now())&":"&min
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "schoolboard",conn,1,3
rs.addnew
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs("name")=request.form("name")
rs("title")=title
rs("mood")=request.form("mood")&".gif"
rs("content")=content
rs("adddate")=adddate
rs.update
rs.close
StrSQL = "update [student] set point=point+"&pSignBoard&" where userid='"&name&"'"
conn.execute(StrSQL)
set rs=nothing
end sub
sub success()
response.write "<meta http-equiv=refresh content=""2;URL=schoolboard.asp"">"
response.write "<br><br><table cellpadding=0 cellspacing=1 border=0 width=85% bgcolor="&tablebordercolor&" align=center>"&_
"<tr><td><table cellpadding=3 cellspacing=1 border=0 width=""100%"">"&_
"<tr align=center><td width=100% bgcolor="&tabletitlecolor&"><b><FONT COLOR="&TableFontcolor&">状态：发表留言成功</font></b></td>"&_
"</tr><tr><td width=100% bgcolor="&tablebodycolor2&">"&_
"<FONT COLOR="&TableContentcolor&">本页面将在2秒后自动返回校园杂谈页面<br><ul>"&_
"<li><a href=schoolboard.asp><font color="&TableContentcolor&">返回校园杂谈</font></a></li>"&_
"</ul></td></tr></table></td></tr></table>"
end sub
%>
<!--#INCLUDE FILE="footer.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -