📄 note.asp
字号:
<!--#include file="inc/DB.INC"--><!--#include file="inc/func.INC"--><!--#include file="inc/chkonline.asp"--><%call online()%><%userid=session("myuserid")password=session("mypwd")if isuser(userid,password)=0 then%><script>alert("你还没有登录，无权进入！");parent.location.href="index.asp";</script><%end ifkey=request("key")id=request("id")if key=""thentitle="查看留言"elseif key="modify"thentitle="修改留言"elseif key="write"thentitle="写新留言"elseif key="del"thenconn.Execute"delete from classnote where id="&idelse%><script language="Javascript">alert("进入方式错误！");parent.location.href="main.asp";</script><%end if%><html><head><title><%=title%></title><LINK href=jscs/css.CSS type=text/css rel=stylesheet></head><script language="javascript">function JHshLTrim(sString){var sStr,i,iStart,sResult="";sStr=sString.split("");iStart=-1;for(i=0;i<sStr.length;i++){if(sStr[i]!=" "){iStart=i;break;}}if(iStart==-1){return"";}else{return sString.substring(iStart);}}function JHshRTrim(sString){var sStr,i,sResult="",sTemp="";sStr=sString.split("");for(i=sStr.length-1;i>=0;i--){sResult=sResult+sStr[i];}sTemp=JHshLTrim(sResult);if(sTemp==""){return"";}sStr=sTemp.split("");sResult="";for(i=sStr.length-1;i>=0;i--){sResult=sResult+sStr[i];}return sResult;}function JHshTrim(sString){var strTmpstrTmp=JHshRTrim(JHshLTrim(sString))return strTmp}function form1_onsubmit(){if(JHshRTrim(document.form1.content.value)==""){alert("留言内容不能为空！")document.form1.content.focus()return false}}</script><script language="VBScript"src="jscs/LOAD.JS"></script><body topmargin=0><table width=98% border=0 cellpadding=0 cellspacing=0><tr><td width=23% valign=top><table width=100% border=0 cellpadding=0 cellspacing=0><tr><td><img src=IMAGES/hua.gif width=189 height=181></td></tr><tr><td><a href=main.asp><img src=IMAGES/ImgBar1.gif width=128 height=34 border=0></a></td></tr><tr><td><a href=showpic.asp><img src=IMAGES/ImgBar2.gif width=128 height=34 border=0></a></td></tr><tr><td><a href=ecard.asp><img src=IMAGES/ImgBar6.GIF width=128 height=34 border=0></a></td></tr><tr><td><a href=loveword.asp><img src=IMAGES/ImgBar3.gif width=128 height=34 border=0></a></td></tr><tr><td><a href=resume.asp><img src=IMAGES/ImgBar4.gif width=128 height=34 border=0></a></td></tr><tr><td><a href=bbs><img src=IMAGES/ImgBar5.gif width=128 height=34 border=0></a></td></tr><tr><td> </td></tr><tr><td><table width=86% border=0 cellpadding=1 cellspacing=0 bgcolor=#8C8C8B><tr><td><table width=100% border=0 align=center cellpadding=0 cellspacing=0><form name=form1 method=post action=notecon.asp language=javascript onSubmit="return form1_onsubmit()"><tr><td background=images/minibo_17.gif><img src=IMAGES/pic110.gif width=22 height=22 align=absmiddle><B>留言处<img src=IMAGES/pic107.gif width=22 height=22 align=absmiddle></B></td></tr><tr><td><div align=center><textarea style="BORDER-RIGHT:#008000 0px solid;BORDER-TOP:#008000 0px solid;FONT-SIZE:9pt;OVERFLOW:auto;BORDER-LEFT:#008000 0px solid;WIDTH:181px;BORDER-BOTTOM:#008000 0px solid;BACKGROUND-COLOR:white" name=content rows=12 cols=18><%if key="modify"thenset rsm=server.createobject("ADODB.Recordset")msql="select * from classnote where id="&idrsm.open msql,conn,1,1response.write rsm("content")end if%></textarea></div></td></tr><tr><td height=20 bgcolor=#DCE9D6><div align=center>（留言不超过500字）</div></td></tr><tr><td bgcolor=#DCE9D6><div align=center><input type=submit name=Submit value=发表留言> <%if key="modify"then%><input type=hidden name=flag value=<%=rsm("id")%>><%rsm.closeset rsm=nothingelse%><input type=hidden name=flag value=add><%end if%><input type=reset name=Reset value=重新填写></div></td></tr><tr><td bgcolor=#DCE9D6> </td></tr></form></table></td></tr></table></td></tr><tr><td> </td></tr></table></td><td width=77% valign=top><img src=IMAGES/taitou01.gif width=511 height=85><table width=480 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#ffffff><tbody><tr><td valign=top width=11><img height=14 src=images/board_04.gif width=11 border=0></td><td width=474 valign=top background=images/board_05.gif></td><td valign=top width=14><p align=left><img height=14 src=images/board_06.gif width=14 border=0></p></td></tr><tr><td valign=top width=11 background=images/board_07.gif><p align=left><img height=7 src=images/board_07.gif width=11 border=0></p></td><td valign=top width=474><div align=center><center><table height=89 cellspacing=0 cellpadding=0 width=100% border=0><tbody><tr><td width=100% background=images/line1.gif height=1></td></tr><tr><td width=100% background=images/minibo_17.gif bgcolor=#ffffff height=19><p class=font><img height=20 src=images/news1.gif width=20 align=absMiddle border=0> <B>班级留言册</B>---请你来留言！</p></td></tr><tr><td width=100% background=images/line1.gif height=1></td></tr><tr><td width=100% height=1 valign=top class=font><table width=98% border=0 align=center><%set rs=server.createobject("ADODB.Recordset")sql="select * from classnote order by posttime desc"rs.open sql,conn,1,1Rs.Pagesize=9Pageno=CLng(Request("page"))If Pageno<1 Then Pageno=1If Pageno>Rs.PageCount Then Pageno=Rs.PageCountIf pageNo=""Then Pageno=1%><%Sub Showpage(Rs,pageno)Rs.AbsolutePage=Pagenofor I=1 To Rs.PageSize%><td bgcolor=#FFFFFF><img src=IMAGES/dot2.gif width=4 height=8><%=rs("posttime")%> <font color=#FD890D><a title=<%=rs("truename")%>><%=rs("userid")%></a></font><%if rs("userid")=userid then%><a href=note.asp?key=modify&id=<%=rs("id")%> title=修改><img src=IMAGES/pen.gif width=12 height=14 border=0></a> <a href=note.asp?key=del&id=<%=rs("id")%> title=删除><img src=IMAGES/char2.gif width=9 height=9 border=0></a><%end if%></td></tr><tr><td bgcolor=#FFFFFF><%=rs("content")%></td></tr><%Rs.MovenextIf Rs.Eof Then Exit ForNextend sub%><%showpage rs,pageno%></table></td></tr><tr><td width=100% background=images/line1.gif height=1></td></tr><tr><td width=100% height=20 class=font><table width=80% border=0 align=right cellpadding=0 cellspacing=0><tr><td width=60%><div align=right><%If Pageno<>1 ThenResponse.Write" <A href=note.asp>首页</A> "Response.Write" <A href=note.asp?page="&(Pageno-1)&">前页</A> "ElseResponse.Write" 首页 "Response.Write" 前页 "End IfIf Pageno<>rs.PageCount ThenResponse.Write" <A href=note.asp?page="&(Pageno+1)&">后页</A> "Response.Write" <A href=note.asp?page="&(Rs.PageCount)&">末页</A> "ElseResponse.Write" 后页 "Response.Write" 末页 "End If%></div></td><form method=get name=select action=note.asp><td width=26%><div align=right><select name=page><%For I=1 To Rs.PageCountResponse.Write"<option>"&I&"</option>"Next%></select>页 <input type=submit Value=GO></div></td></form><td width=14%><div align=right>位置<%=pageno%>/<%=rs.pagecount%></div></td></tr></table></td></tr></tbody></table></center></div></td><td width=14 valign=top background=images/board_09.gif></td></tr><tr><td width=11 height=11><img height=11 src=images/board_10.gif width=11></td><td width=474 height=11 background=IMAGES/board_11.gif></td><td width=14><img src=IMAGES/board_12.gif width=14 height=11></td></tr></tbody></table></td></tr></table><!--#include file="inc/footer.inc"--></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -