📄 body.asp
字号:
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<%
page = Request.QueryString("page")
action = Request.QueryString("action")
action_e = Request.Form("action_e")
call head
call menu%><TABLE bgcolor="#ffffff" align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<TBODY>
<TR>
<td height="24" align="right" bgcolor="#000000">
<%call Main_Menu()%>
</TD>
</TR>
<TR>
<TD width="765" height="4" bgcolor="#000000"></TD>
</TR>
</TBODY>
</TABLE>
<div align="center">
<TABLE border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none bgcolor="#000000">
<TBODY>
<TR>
<td width=204 align=left vAlign=top background=img/left_bg.gif>
<TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR><td width=204><img src=img/left_top.gif usemap="#Map" border="0"><map name="Map"><area shape="rect" coords="41, 11, 67, 24" href="book.asp" title="留言本"><area shape="rect" coords="114, 11, 169, 30" href="../ryxs/default.asp" title="如影相随纯文学网站"></map></td></tr>
</table>
<TABLE width=196 border=0 align=left cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<td align=center height="24" background="img/title.jpg"><b>
<font color="#FFFFFF">如影相随祁愿本</font></b></td>
</tr>
<TR>
<td height="250" Valign=top>
<p align="center"><BR>
<img src=img/wish/wishlogo.gif width="106" height="99"><p align="center">
<font color="#1E90FF">
</font>
<font color="#FF9966">
人的一生，有很多很多的心愿，也许已经实现，又或许在慢慢祈祷……最渴望能站在天空，对着迎面的风儿，默默的诚心的倾诉。人因为有理想，所以快乐的生活着，因为有愿望，我成长了！亲爱的朋友，你呢？</font><font color="#1E90FF"><br>
</font>
</table>
</TD>
<td width=1 height="190" background="img/xu.gif"></TD>
<td width=553 align=left vAlign=top bgcolor="#000000"><%call br%><%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'主程序
Select Case action_e
Case ""
Case "Add_New"
Call Add_New_Execute()
Case "reply"
if session("adminlogin")<>sessionvar then
Response.write "<script language = 'javascript'>alert('您还未登陆管理,无法进行回复祈愿!');window.document.location.href='wish.asp';</script>"
else
Call Reply_Execute()
end if
Case "Edit"
if session("adminlogin")<>sessionvar then
Response.write "<script language = 'javascript'>alert('您还未登陆管理,无法进行编辑祈愿!');window.document.location.href='wish.asp';</script>"
else
Call Edit_Execute()
end if
End Select
Select Case action
Case ""
Call View_Words()
Case "Add_New"
Call Add_New()
Case "reply"
Call Reply()
Case "Edit"
Call Edit()
Case "View_Words"
Call View_Words()
Case "Delete"
if session("adminlogin")<>sessionvar then
Response.write "<script language = 'javascript'>alert('您还未登陆管理,无法删除祈愿!');window.document.location.href='wish.asp';</script>"
else
Call Delete()
Call View_Words()
end if
End Select
Call footer()%>
<% ' 祈愿本菜单
Sub Main_Menu() %>
<img src=img/none.gif border=0><img src=img/link2.gif border='0'> <a href="wish.asp?action=Add_New">我要许个愿</a> <img src=img/none.gif border=0><img src=img/link2.gif border='0'> <a href="wish.asp?action=View_Words">查看许愿本</a>
<% End Sub
'查看祈愿
Sub View_Words()
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From wish Order By date Desc"
Rs.Open Sql,Conn,1,1
TotalRecord=Rs.RecordCount
Rs.PageSize = 5
PageSize = Rs.PageSize
PageCount=Rs.PageCount
If page="" Then
Rs.AbsolutePage = 1
page=1
Else
Rs.AbsolutePage = page
End If
%>
<%
do while i < PageSize And not rs.eof
%>
<table width="520" align=center cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#ffffff" height=80>
<table border=0 cellpadding=0 width="100%" bgcolor="#808080">
<tbody>
<tr>
<td colspan="3" bgcolor="#999999"></td>
</tr>
<tr>
<td style="word-break:break-all;line-height:150%" width="17%" align="center" rowspan="2" bgcolor="#000000"><img border=0 src="<%=Rs("title")%>">
<td style="word-break:break-all;line-height:150%" colspan="2" bgcolor="#000000">
<%If Rs("admin")="0" Then%>
<font color="#FFFFFF">来自<%=Rs("city")%>的<%if Rs("sex")="1" then%>男孩<%elseif Rs("sex")="2" then%>女孩<%else%><%end if%> <%=Rs("name")%> 许下了一个</font><font color=#008000><%IF RS("title")="img/wish/bfamily.gif" Then%>家庭<%ElseIF RS("title")="img/wish/bfuture.gif" Then%>未来<%ElseIF RS("title")="img/wish/bhealth.gif" Then%>健康<%ElseIF RS("title")="img/wish/blife.gif" Then%>生活<%ElseIF RS("title")="img/wish/blove.gif" Then%>爱情<%ElseIF RS("title")="img/wish/bstudy.gif" Then%>学业<%ElseIF RS("title")="img/wish/bwealth.gif" Then%>财富<%ElseIF RS("title")="img/wish/bwork.gif" Then%>事业<%End IF%></font><font color="#FFFFFF">方面的愿望，愿<%if Rs("sex")="1" then%>他<%elseif Rs("sex")="2" then%>她<%else%><%end if%>心愿成真！</font><br>
<span style="behavior:url(img/wish/font.htc); font-family:宋体; font-size:9pt">
<%=Ubb(unHtml(Rs("words")))%></span>
<%elseif session("adminlogin")=sessionvar Then %>
<font color=#1E90FF>****以下为管理员可见内容！****</font><br>
<font color="#FFFFFF">来自<%=Rs("city")%>的<%if Rs("sex")="1" then%>男孩<%elseif Rs("sex")="2" then%>女孩<%else%><%end if%> <%=Rs("name")%> 许下了一个<%IF RS("title")="img/wish/bfamily.gif" Then%></font><font color=#008000>家庭<%ElseIF RS("title")="img/wish/bfuture.gif" Then%>未来<%ElseIF RS("title")="img/wish/bhealth.gif" Then%>健康<%ElseIF RS("title")="img/wish/blife.gif" Then%>生活<%ElseIF RS("title")="img/wish/blove.gif" Then%>爱情<%ElseIF RS("title")="img/wish/bstudy.gif" Then%>学业<%ElseIF RS("title")="img/wish/bwealth.gif" Then%>财富<%ElseIF RS("title")="img/wish/bwork.gif" Then%>事业</font><font color=#999999><%End IF%></font><font color="#FFFFFF">方面的愿望，愿<%if Rs("sex")="1" then%>他<%elseif Rs("sex")="2" then%>她<%else%><%end if%>心愿成真！</font><br>
<span style="behavior:url(img/wish/font.htc); font-family:宋体; font-size:9pt">
<%=Ubb(unHtml(Rs("words")))%></span>
<%else%>
<font color=#1E90FF>****秘密祈愿！管理员可见！****</font>
<%End If%>
<tr>
<td style="word-break:break-all;line-height:150%" width="26%" bgcolor="#000000">
<% If session("adminlogin")=sessionvar Then %>
<a href="wish.asp?action=Delete&id=<%=Rs("id")%>"><font color=red>删除</font></a> <a href="wish.asp?action=Edit&id=<%=Rs("id")%>"><font color=red>编辑</font></a>
<%End IF%>
<td style="word-break:break-all;line-height:150%" width="57%" align="right" bgcolor="#000000"> <font color="#FFFFFF">许愿时间:</font> <font color=#999999><%=Rs("date")%></font>
</table>
</td>
</tr>
<tr>
<td colspan="3" bgcolor="#999999"></td>
</tr>
</table>
<%call br%>
<%
rs.movenext
i=i+1
loop
Rs.Close
Set Rs = Nothing
dim n
n= TotalRecord \ PageSize
%>
<TABLE cellSpacing=1 cellPadding=0 width="520" align=center border=0>
<TBODY>
<form action="" method=post onChange="submit()">
<TR>
<TD align=middle width="35%" height=25><font color="#FFFFFF"><IMG height=14 src="img/cha.gif" width=14 align=absMiddle> 共[<%=TotalRecord%>]个祈愿 分[<%=n+1%>]页</font></TD>
<TD width="40%" align=middle><font color="#FFFFFF"><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if Page<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=wish.asp?page=1>首页</a> "
response.write "<a href=wish.asp?page="&Page-1&">上一页</a> "
end if
if n-page<0 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=wish.asp?page="&(Page+1)
response.write ">下一页</a> <a href=wish.asp?page="&n+1&">尾页</a>"
end if%>
<IMG height=11 src="img/gt.gif" width=11 align=absMiddle></font></TD>
<TD align=middle width="25%">
<font color="#FFFFFF">
<select name="select" onChange='javascript:window.open(this.options[this.selectedIndex].value,"_top")' class="lanyu">
<%For m = 1 To PageCount%>
<option value="wish.asp?page=<%=m%>">第<%=m%>頁</option>
<%
Next
%>
</select><input type="submit" name="Submit2" value="轉向" class="button"> </font> </TD>
</TR>
</FORM>
</TABLE><br></td></tr></table>
</div>
<% End Sub
'添加一条新祈愿
Sub Add_New()%>
<table width="520" border="0" cellspacing="1" cellpadding="0" align="center"><tr><td>
<table width="450" cellpadding="1" cellspacing="0" align="center" >
<form name="new" method="post" action="wish.asp?Add_New_Execute">
<tr>
<td width="80" bgcolor="#000000"><font color="#FFFFFF">您的姓名:</font></td>
<td width="300" bgcolor="#000000"><font color="#FFFFFF"><input type="text" name="name" maxlength="255" size="20" class='lanyu'>
</font><font color="#FF0000">*</font></td>
</tr>
<tr>
<td bgcolor="#000000"><font color="#FFFFFF">您的性别:</font></td>
<td bgcolor="#000000"><font color="#FFFFFF"><input type="radio" name="SEX" value="1" checked>男生 <input type="radio" name="SEX" value="2">女生</font></td>
</tr>
<tr>
<td bgcolor="#000000"><font color="#FFFFFF">来自哪里:</font></td>
<td colspan="2" bgcolor="#000000"><font color="#FFFFFF">
<select class=editbox1 name=city size=1>
<option
selected value=>请选择..
<option value=北京>北京
<option value=广东>广东
<option value=上海>上海
<option value=新疆>新疆
<option value=辽宁>辽宁
<option value=广西>广西
<option value=海南>海南
<option value=湖南>湖南
<option value=甘肃>甘肃
<option value=河北>河北
<option value=湖北>湖北
<option value=江西>江西
<option value=江苏>江苏
<option value=西藏>西藏
<option value=山东>山东
<option value=浙江>浙江
<option value=安徽>安徽
<option value=福建>福建
<option value=吉林>吉林
<option value=黑龙江>黑龙江
<option value=山西>山西
<option value=云南>云南
<option value=贵州>贵州
<option value=四川>四川
<option value=陕西>陕西
<option value=重庆>重庆
<option value=天津>天津
<option value=河南>河南
<option value=青海>青海
<option value=宁夏>宁夏
<option value=台湾>台湾
<option value=香港>香港
<option value=澳门>澳门
<option value=其它地区>其它地区</option>
</select>
</font></td>
</tr>
<tr>
<td bgcolor="#000000"><font color="#FFFFFF">祈愿类型:</font></td>
<td colspan="2" bgcolor="#000000"><font color="#FFFFFF">
<select class=editbox1 name=title size=1>
<option selected value=>请选择..
<option value=img/wish/bfamily.gif>家庭
<option value=img/wish/bfuture.gif>未来
<option value=img/wish/bhealth.gif>健康
<option value=img/wish/blife.gif>生活
<option value=img/wish/blove.gif>爱情
<option value=img/wish/bstudy.gif>学业
<option value=img/wish/bwealth.gif>财富
<option value=img/wish/bwork.gif>事业
</option>
</select>
</font></td>
</tr>
<tr>
<td valign="middle" bgcolor="#000000"><font color="#FFFFFF">祈愿内容: <br></font></td>
<td valign="top" bgcolor="#000000"><font color="#FFFFFF"><textarea name="words" cols="55" rows="10" class='lanyu'></textarea></font></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -