⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 note.asp

📁 希望这个班级源码能够帮那些需要帮助的朋友
💻 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 if
key=request("key")
id=request("id")
if key=""then
title="查看留言"
elseif key="modify"then
title="修改留言"
elseif key="write"then
title="写新留言"
elseif key="del"then
conn.Execute"delete from classnote where id="&id
else
%>
<script language="Javascript">
alert("进入方式错误！");parent.location.href="main.asp";</script><%
end if
%>
<html>
<head>
<title>一路飞扬在线</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- Fireworks MX Dreamweaver MX target.  Created Sat Oct 25 08:11:34 GMT+0800 (?D1ú±ê×?ê±??) 2003-->
<style type="text/css">
<!--
@import url("css.css");
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</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 strTmp
strTmp=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 background="images/beijing.gif" leftmargin="0" topmargin="0">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <!-- fwtable fwsrc="txl2.png" fwbase="index.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
  <tr> 
    <td width="60"><img src="images/spacer.gif" width="60" height="1" border="0" alt=""></td>
    <td width="98"><img src="images/spacer.gif" width="98" height="1" border="0" alt=""></td>
    <td width="28"><img src="images/spacer.gif" width="28" height="1" border="0" alt=""></td>
    <td width="5"><img src="images/spacer.gif" width="5" height="1" border="0" alt=""></td>
    <td width="16"><img src="images/spacer.gif" width="16" height="1" border="0" alt=""></td>
    <td width="38"><img src="images/spacer.gif" width="38" height="1" border="0" alt=""></td>
    <td width="94"><img src="images/spacer.gif" width="94" height="1" border="0" alt=""></td>
    <td width="97"><img src="images/spacer.gif" width="97" height="1" border="0" alt=""></td>
    <td width="105"><img src="images/spacer.gif" width="105" height="1" border="0" alt=""></td>
    <td width="103"><img src="images/spacer.gif" width="103" height="1" border="0" alt=""></td>
    <td width="101"><img src="images/spacer.gif" width="101" height="1" border="0" alt=""></td>
    <td width="15"><img src="images/spacer.gif" width="15" height="1" border="0" alt=""></td>
  </tr>
  <tr> 
    <td colspan="12"><FONT color=#008000>
<SCRIPT language=JavaScript>      
<!--      
today=new Date();      
var week; var date;      
if(today.getDay()==0) week="星期日"      
if(today.getDay()==1) week="星期一"      
if(today.getDay()==2) week="星期二"      
if(today.getDay()==3) week="星期三"      
if(today.getDay()==4) week="星期四"      
if(today.getDay()==5) week="星期五"      
if(today.getDay()==6) week="星期六"      
date=("今天是"+today.getYear())+"年"+(today.getMonth()+1)+"月"+today.getDate()+"日"+" "      
document.write("<span style='font-size: 9pt;'>"+date+week+"</span>");      
// -->      
</SCRIPT>
      </FONT></td>
  </tr>
  <tr> 
    <td height="68" colspan="5"> <table width="99%" height="48" border="0">
        <tr> 
          <td><div align="center"><img src="images/yilufei2.jpg" width="195" height="61"></div></td>
        </tr>
      </table></td>
    <td colspan="7"><table width="100%" height="69" border="0">
        <tr> 
          <td width="82%" height="65"> <div align="center"> 
              <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="444" height="60">
                <param name="movie" value="909.swf">
                <param name="quality" value="high">
                <embed src="909.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="444" height="60"></embed></object>
            </div></td>
          <td width="18%"><table width="104%" border="0">
              <tr> 
                <td><div align="center"><img src="images/hf.gif" width="16" height="16"><A class=date 
      href="mailto:wangyy168@tom.com"></A><A 
      href="mailto:11u@163.com" class=date><font color="#009900">飞鸽传书</font></A></div></td>
              </tr>
              <tr> 
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td><div align="center"><img src="images/bookmark.gif" width="15" height="13"><a href="javascript:window.external.addFavorite('http://gd.ywzc.net','一路飞扬在线')"></a><a href="javascript:window.external.addFavorite('http://wyy.9yz.com','一路飞扬在线')"><font color="#009900">加入收藏</font></a></div></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
  <tr bgcolor="#008040"> 
    <td height="16" colspan="12"><font size="2" face="宋体"><a href="index.asp"><font color="#FFFF00">首 
      页</font></a><font color="#FFFF00">| <a href="fei/default.asp" target="_blank"><font color="#FFFFFF">魅力测试</font></a> 
      |<font color="#CCCCCC"> </font></font><a href="fu.asp" target="_blank"><font color="#FFFFFF">真情互动</font></a><font color="#FFFF00"> 
      | <a href="kai.asp" target="_blank"><font color="#FFFFFF">许愿祝福</font></a> 
      | <a href="showpic.asp"><font color="#FFFFFF">飞扬相册</font></a> | <a href="tu/tuya_show.asp" target="_blank"><font color="#FFFFFF">随意涂画</font></a> 
      | <a href="card.asp"><font color="#FFFFFF">飞扬名片</font></a> | <a href="modify.asp"><font color="#FFFFFF">资料修改</font></a> 
      | <a href="yule/index.asp" target="_blank"><font color="#FFFFFF">娱乐频道</font></a> 
      | </font><a href="note.asp"><font color="#FFFFFF">雁过留声</font></a><font color="#FFFF00"> 
      | <a href="guest.asp"><font color="#FFFFFF">私人短讯</font></a><font size="2" face="宋体">| 
      </font></font><font size="2" face="宋体"><a href="int.asp"><font color="#FFFFFF">简 
      介</font></a></font></font></td>
  </tr>
  <tr> 
    <td colspan="3" valign="top" bgcolor="#FFFFFF" class="unnamed1"><table width="98%" border="0" class="unnamed1">
        <tr> 
          <td><font color="#FF6600">签写留言：</font></td>
        </tr>
        <tr> 
          <td><form name=form1 method=post action=notecon.asp language=javascript onSubmit="return form1_onsubmit()">
              <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" id="AutoNumber2" style="border-collapse: collapse">
                <tr> 
                  <td width="5%"></td>
                  <td width="87%" style="border: 1px solid #008000; "> <textarea style="font-size: 9pt; overflow: auto; width: 153; height: 200; border: 0px solid #008000; background-color: white" name="content" rows="18" cols="12"><%if key="modify"then
set rsm=server.createobject("ADODB.Recordset")
msql="select * from classnote where id="&id
rsm.open msql,conn,1,1
response.write rsm("content")
end if%></textarea> </td>
                  <td width="8%">　</td>
                </tr>
                <tr> 
                  <td width="5%">　</td>
                  <td width="87%" height="25"> <p align="center">（留言不超过500字）</td>
                  <td width="8%">　</td>
                </tr>
                <tr> 
                  <td width="5%">　</td>
                  <td width="87%" height="30"><div align=center> 
                      <input type=submit name=Submit value=留言>
                      &nbsp;&nbsp; 
                      <%if key="modify"then%>
                      <input type=hidden name=flag value=<%=rsm("id")%>>
                      <%rsm.close
set rsm=nothing
else%>
                      <input type=hidden name=flag value=add>
                      <%end if%>
                      <input type=reset name=Reset value=重写>
                    </div></td>
                  <td width="8%">　</td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table></td>
    <td valign="top" background="images/index_r7_c5.gif"><img name="index_r7_c5" src="images/index_r7_c5.gif" width="5" height="553" border="0" alt=""></td>
    <td colspan="8" valign="top" class="unnamed1"> <table width="98%" border="0" class="unnamed1">
        <tr> 
          <td><span lang="zh-cn"><font color="#CC00CC">当前位置：在线留言</font></span></td>
        </tr>
        <tr> 
          <td class="unnamed1"> 
            <%set rs=server.createobject("ADODB.Recordset")
sql="select * from classnote order by posttime desc"
rs.open sql,conn,1,1
if rs.eof then%>
            暂时没有在线留言 
            <%else
Rs.Pagesize=8
Pageno=CLng(Request("page"))
If Pageno<1 Then Pageno=1
If Pageno>Rs.PageCount Then Pageno=Rs.PageCount
If pageNo=""Then Pageno=1
%>
            <%
Sub Showpage(Rs,pageno)
Rs.AbsolutePage=Pageno
for I=1 To Rs.PageSize
%>
            <div align="center"> 
              <center>
                <table width="95%" border="0" cellpadding="4" cellspacing="4" bordercolor="#EFEFEF" class="unnamed1" id="AutoNumber4">
                  <tr> 
                    <td width="100%" bgcolor="#EFEFEF" class="unnamed1"><img src=IMAGES/dot2.gif width=4 height=8><%=rs("posttime")%>&nbsp; 
                      <font color=#FD890D><a title=<%=rs("truename")%>><%=rs("truename")%></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 width="100%" bgcolor="#EFEFEF"> <p style="line-height: 150%">&nbsp; 
                        <%=rs("content")%></td>
                  </tr>
                  <%
Rs.Movenext
If Rs.Eof Then Exit For
Next
end sub
%>
                  <%showpage rs,pageno%>
                </table>
              </center>
            </div>
            <table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" style="border-collapse: collapse">
              <tr> 
                <td width="100%">　</td>
              </tr>
            </table>
            <table width="100%" height="30" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" id="AutoNumber5" style="border-collapse: collapse">
              <tr class="unnamed1"> 
                <td width="46%" align="right"> 
                  <%
If Pageno<>1 Then
Response.Write"&nbsp;<A href=note.asp>首页</A>&nbsp;"
Response.Write"&nbsp;<A href=note.asp?page="&(Pageno-1)&">前页</A>&nbsp;"
Else
Response.Write"&nbsp;首页&nbsp;"
Response.Write"&nbsp;前页&nbsp;"
End If
If Pageno<>rs.PageCount Then
Response.Write"&nbsp;<A href=note.asp?page="&(Pageno+1)&">后页</A>&nbsp;"
Response.Write"&nbsp;<A href=note.asp?page="&(Rs.PageCount)&">末页</A>&nbsp;"
Else
Response.Write"&nbsp;后页&nbsp;"
Response.Write"&nbsp;末页&nbsp;"
End If
%>
                </td>
                <td width="13%" align="right" valign="top"> <form method=get name=select action=note.asp>
                    <select name=page>
                      <%
For I=1 To Rs.PageCount
Response.Write"<option>"&I&"</option>"
Next
%>
                    </select>
                    页&nbsp; 
                    <input name="submit" type=submit value=GO>
                  </form></td>
                <td width="9%" align="right">位置<%=pageno%>/<%=rs.pagecount%> </td>
            </table>
            <%end if%>
          </td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="10" colspan="12"><div align="center"><font color="#CC00CC" size="2">一路飞扬在线</font><font color="#009900" size="2">版权所有　<font color="#0033FF">http://wyy.9yz.com</font></font></div></td>
  </tr>
  <tr>
    <td height="10" colspan="12"><div align="center"><font color="#009900" size="2">制作;一路飞扬在线</font></div></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -