📄 loveword.asp
字号:
<!--#include file="syssetup.asp"-->
<!--#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>
<%
else
%>
<html>
<title>个人赠言册</title>
<LINK href="jscs/css.CSS" type=text/css rel=stylesheet>
<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>
<script>
var doPopUpX = (screen.width/2)-220;
var doPopUpY = (screen.height/2)-160;
var pos = "left="+doPopUpX+",top="+doPopUpY;
function writeword(url){
writeword = window.open(url,"填写留言","width=400,height=300,"+pos);
}
var doPopUpX1 = (screen.width/2)-290;
var doPopUpY1 = (screen.height/2)-240;
var pos1 = "left="+doPopUpX1+",top="+doPopUpY1;
function doPopUp(url){
doPopUpWindow = window.open(url,"班级相册","width=590,height=460,scrollbars=yes,resizable=yes"+pos1);
}
</script>
<body bgcolor="#FCFEFC" topmargin="0">
<div id="Layer1" style="position:absolute; left:117px; top:111px; width:623px; height:664px; z-index:1">
<table width="81%" border="0" align="center">
<tr>
<td width="22%" rowspan="3"><img src="IMAGES/a3.gif" width="100" height="120"></td>
<td width="78%"><div align="center"><img src="IMAGES/huibu.gif" width="300" height="50"></div></td>
</tr>
<tr>
<td><hr size="1" noshade color="#B34CD2"></td>
</tr>
<tr>
<td><font color="#B34CD2">聚也不是开始，散也不是结束<br>
同窗将载凝成的无数美好瞬间<br>
永远铭刻在我的记忆中<br>
<br>
我们彼此相向的掌心<br>
是
为了握住共有的时光<br>
让
我们迎接美好的明天</font></td>
</tr>
</table>
<%
set rs=Server.CreateObject ("ADODB.RECORDSET")
sql="select * from loveword where geter='"&userid&"' order by id desc"
rs.open sql,conn,1,1
%>
<br>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td colspan="3" bgcolor="#B34CD2">
<div align="center">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="23" bgcolor="#ECC7F3">
<div align="center"><strong>:::今天谁给你写赠言了？:::</strong></div></td>
</tr>
</table>
</div></td>
</tr>
<%if rs.eof then
response.write "<tr><td>目前没有人给你写赠言</td></tr>"
set rs=nothing
else
Rs.Pagesize =10
Pageno = CLng(Request("page")) '取得用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
%>
<tr>
<td width="25%"><li><font color="red"><%=rs("writer")%></font><font color="#B34CD2">给你的赠言</font></td>
<td width="50%"><li><a href=javascript:doPopUp("viewword.asp?id=<%=rs("id")%>")><font color="#B34CD2"><%=rs("title")%></font></a></td>
<td width="25%"><div align="right"><font color="#B34CD2"><%=formatdatetime(rs("posttime"),2)%> <%=formatdatetime(rs("posttime"),4)%></font></div></td>
</tr>
<%
Rs.Movenext
If Rs.Eof Then Exit For
Next
end sub
%>
<% showpage rs,pageno %>
<tr>
<td height="23"> </td>
<td> </td>
<form method="get" name="select" action="loveword.asp"><td><div align="right">第
<select
name="page">
<%
For I = 1 To Rs.PageCount
Response.Write "<option>" & I & "</option>"
Next
%>
</select>
页
<input type="submit" Value="GO">
</div></td></form>
</tr>
<%end if%>
</table>
<br>
<%
set rsm=Server.CreateObject ("ADODB.RECORDSET")
mysql="select * from loveword where userid='"&userid&"' order by id desc"
rsm.open mysql,conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td colspan="3" bgcolor="#B34CD2">
<div align="center">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="23" bgcolor="#ECC7F3">
<div align="center"><strong>:::我给谁写了赠言啊？:::</strong></div></td>
</tr>
</table>
</div></td>
</tr>
<%if rsm.eof then
response.write "<tr><td>目前你还没有给谁写赠言</td></tr>"
set rsm=nothing
else
Rsm.Pagesize =10
Pageno = CLng(Request("page0")) '取得用page信息，并处理
If Pageno < 1 Then Pageno = 1
If Pageno > Rsm.PageCount Then Pageno = Rsm.PageCount
If pageNo = "" Then Pageno = 1%>
<%
Sub Showpage0(Rsm,pageno) '接受参数，显示记录
Rsm.AbsolutePage = Pageno
for I =1 To Rsm.PageSize
%>
<tr>
<td width="25%"><li><font color="#B34CD2">你给</font><font color="red"><%=rsm("truegeter")%></font><font color="#B34CD2">的赠言</font></td>
<td width="50%"><li><font color="#B34CD2"><%=rsm("title")%> <a href="javascript:writeword('modifyword.asp?id=<%=rsm("id")%>')" title="修改"><img src="IMAGES/pen.gif" width="12" height="14" border="0"></a></font></td>
<td width="25%"><div align="right"><font color="#B34CD2"><%=formatdatetime(rsm("posttime"),2)%> <%=formatdatetime(rsm("posttime"),4)%></font></div></td>
</tr>
<%
Rsm.Movenext
If Rsm.Eof Then Exit For
Next
end sub
%>
<% showpage0 rsm,pageno %>
<tr>
<td height="23"> </td>
<td> </td>
<form method="get" name="select" action="loveword.asp"><td><div align="right">第
<select
name="page0">
<%
For I = 1 To Rsm.PageCount
Response.Write "<option>" & I & "</option>"
Next
%>
</select>
页
<input type="submit" Value="GO">
</div></td></form>
</tr>
<%end if%>
</table>
</div>
<table width="75%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="108"><img src="IMAGES/top.GIF" width="700" height="104" border="0" usemap="#Map"></td>
</tr>
</table>
<table width="700" height="680" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="66" height="580" valign="top"><div align="left"><img src="IMAGES/leftfen.GIF" width="66" height="349" align="top"></div></td>
<td width="372" valign="top"> </td>
<td width="328" valign="bottom"><div align="right"><img src="IMAGES/rightfen.GIF" width="328" height="369" align="absbottom"></div></td>
</tr>
</table>
<br>
<map name="Map">
<area shape="rect" coords="520,46,612,75" href="main.asp" alt="返回班级首页">
<area shape="rect" coords="382,46,472,75" href="javascript:writeword('writeword.asp')" alt="给别人写赠言">
</map>
<!--#include file="inc/footer.inc"-->
</body>
</html>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -