📄 index.asp
字号:
<tr>
<td width="66" height="100%" align="center" valign="top">
<table width="66" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="66" height="1"></td>
</tr>
</table>
<font color="#000000">留 言：</font></td>
<td colspan="4" background="images/line_bg.gif"><font color="#666666"><%=Ubb(unHtml(Rs("words")))%></td>
</tr>
<tr>
<td height="22" align="right" valign="top"></td>
<td height="22" colspan="4" align="right" valign="top" background="images/line_bg.gif"><font color="#5B994C" face="Verdana, Arial, Helvetica, sans-serif"> <%=Left(Rs("date"),14)%></font></td>
</tr>
<%If Rs("reply")<>"" Then%>
<tr>
<td width="66" align="center" valign="top">
<table width="66" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="66" height="1"></td>
</tr>
</table>
<font color="#000000">回 复：</font> </td>
<td colspan="4" background="images/line_bg.gif"><font color="#5B994C"><%=Ubb(unHtml(Rs("reply")))%></font>
</td>
</tr>
<tr>
<td align="right" valign="top"></td>
<td height="22" colspan="4" align="right" background="images/line_bg.gif"><font color="#666666" face="Verdana, Arial, Helvetica, sans-serif"> <%=Left(Rs("replydate"),14)%></font></td>
</tr>
<%End If%>
<tr>
<td height="16" align="right" valign="top"></td>
<td height="16" colspan="4" align="right"><% If Session("Admin") = "Login" Then %>
<a href="index.asp?action=Delete&id=<%=Rs("id")%>">【删除】</a> <a href="index.asp?action=reply&id=<%=Rs("id")%>">【回复】</a> <a href="index.asp?action=Edit&id=<%=Rs("id")%>">【编辑】</a>
<% End If %>
</td>
</tr>
</table></td>
<td background="images/table/left_right.gif"></td>
</tr>
<tr>
<td><img src="images/table/bottom_left.gif" width="11" height="11" border="0"></td>
<td background="images/table/top_bottom.gif"></td>
<td><img src="images/table/bottom_right.gif" width="11" height="11" border="0"></td>
</tr>
</tbody>
</table>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="16"> </td>
</tr>
</table>
<%
rs.movenext
If rs.EOF Then
Exit For
End If
Next
end if
%>
<!--修改分页开始------------------------------------------->
<table width="499" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td align="right" height="20">共有<%=TotalRecord%>条留言 分页
<%
num1=int((absPageNum-1)/10)
abcd1=num1*10+11
abcd2=num1*10
if num1>0 then
if tpe="" then%>
<a title='上一页' href='index.asp?page=<%=abcd2%>'>[<<]</a>
<%else%>
<a title='上一页' href='index.asp?type=<%=tpe%>&page=<%=abcd2%>'>[<<]</a>
<%end if%>
<%end if%>
<%
if rs.pagecount<=10 then
fish=rs.pagecount
else
if rs.pagecount-num1*10>10 then
fish=10
else
fish=rs.pagecount-num1*10
end if
end if
for ppages=1 to fish
ppages1=num1*10+ppages
if ppages1=int(absPageNum) then
%>
<b><font color=red>[<%=ppages1%>]</font></b>
<%
else
if tpe="" then
%>
<a href='index.asp?page=<%=ppages1%>'>[<%=ppages1%>]</a>
<% elseif tpe<>"" then%>
<a href='index.asp?type=<%=tpe%>&page=<%=ppages1%>'>[<%=ppages1%>]</a>
<%
end if
end if
next
if num1<int(rs.pagecount/10) and int(rs.pagecount/10)>0 then
%>
<%if tpe="" then%>
<a title='下一页' href='index.asp?page=<%=abcd1%>'>[>>]</a>
<%else%>
<a title='下一页' href='index.asp?type=<%=tpe%>&page=<%=abcd1%>'>[>>]</a>
<%end if
end if
%>
</td>
<td align="right"> </td>
</tr>
</table>
<%Rs.Close
Set Rs = Nothing%>
<% End Sub %>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'管理员登陆接口
%>
<% Sub Admin_Login() %>
<br>
<table width="499" border="0" cellspacing="1" cellpadding="4" align="center">
<form name="reply" method="post" action="index.asp">
<tr>
<td colspan="2" align="center">管理登录</td>
</tr>
<tr>
<td align="right" valign="top" width="105">
用户名：
</td>
<td width="226">
<input type="text" name="username" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="top" width="105">
密 码：
</td>
<td width="226">
<input type="password" name="password" class="input1"> <input type="hidden" name="action_e" value="admin">
</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="submit" name="Submit32" value=" " class="b">
</td>
</tr>
</form>
</table>
<br>
<% End Sub%>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<%
Sub Copyrights()
%>
<%
End Sub
%>
<%Sub UbbHelp()%>
<div align="left">
<table width="546" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td height="48" colspan="4" align="center">UBB功能帮助</td>
</tr>
<tr>
<td width="17"><div align="right"></div></td>
<td width="74">[img]</td>
<td width="349">这里填写图片绝对地址 <font color="#FF0000">http://www.51buyflower/logo.gif</font></td>
<td width="69">[/img]</td>
</tr>
<tr>
<td width="17" height="20"><div align="right"></div></td>
<td width="74" height="20">[url]</td>
<td width="349" height="20">这里填写连接地址 <font color="#FF0000">http://www.51buyflower.com/</font></td>
<td width="69" height="20">[/url]</td>
</tr>
<tr>
<td width="17"><div align="right"></div></td>
<td width="74">[swf]</td>
<td width="349">这里填写SWF文件的地址 <font color="#FF0000">http://www.51buyflower.com/logo.swf</font></td>
<td width="69">[/swf]</td>
</tr>
<tr>
<td width="17" height="20"><div align="right"></div></td>
<td width="74" height="20">[email]</td>
<td width="349" height="20">这里填写电子信箱地址 <font color="#FF0000">xiaojie@51buyflower.com</font></td>
<td width="69" height="20">[/email]</td>
</tr>
<tr>
<td width="17"><div align="right"></div></td>
<td width="74">[color=<font color="#FF0000">颜色</font>]</td>
<td width="349">这里填写要着色的 <font color="#FF0000">文字</font></td>
<td width="69">[/color]</td>
</tr>
<tr>
<td width="17"><div align="right"></div></td>
<td width="74">[size=<font color="#FF0000">大小</font>]</td>
<td width="349">这里填写要加大的<font color="#FF0000"> 文字</font></td>
<td width="69">[/size]</td>
</tr>
<tr>
<td> </td>
<td>[font=<font color="#FF0000">字体</font>]</td>
<td>这里填写要改变字体的<font color="#FF0000"> 文字</font></td>
<td>[/font]</td>
</tr>
<tr>
<td width="17"><div align="right"></div></td>
<td colspan="3"> <span class="style3">注：</span>UBB代码中间不要有空格。</td>
</tr>
</table>
<%End Sub%>
</div>
<%Sub EditPWD()%>
<table width="499" border="0" cellspacing="1" cellpadding="4" align="center">
<form name="editpwd" method="post" action="index.asp">
<tr>
<td colspan="2" align="center"> <b>修改密码</b></td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">旧用户名：</td>
<td width="226" height="38" align="left">
<input type="text" name="oldusername" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">新用户名：</td>
<td width="226" height="38" align="left">
<input type="text" name="username" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">确认新用户名：</td>
<td width="226" height="38" align="left">
<input type="text" name="username_c" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38"> 旧 密 码： </td>
<td width="226" height="38" align="left">
<input type="password" name="oldpwd" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105">新 密 码： </td>
<td width="226" align="left">
<input type="password" name="newpwd" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">确认新密码：</td>
<td width="226" align="left" height="38">
<input type="password" name="newpwd_c" class="input1">
<input type="hidden" name="action_e" value="EditPWD">
</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="submit" name="EditPWD" value="修改密码" class="input1">
</td>
</tr>
</form>
</table>
<%End Sub%>
<% Sub Edit() %>
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words Where id="&Request.QueryString("id")
Rs.Open Sql,Conn,1,1
%>
<table width="499" border="0" cellspacing="1" cellpadding="4" align="center">
<form name="reply" method="post" action="index.asp">
<tr>
<td colspan="2" align="center"> 编辑留言者留言</td>
</tr>
<tr>
<td align="right" valign="top"> 来客留言内容： </td>
<td>
<textarea name="words" cols="50" rows="5" class="input1"><%=Rs("words")%></textarea>
</td>
</tr>
<tr align="center">
<td align="right">回复：</td>
<td align="left">
<textarea name="reply" cols="50" rows="5" class="input1"><%=Rs("reply")%></textarea>
</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="hidden" name="action_e" value="Edit">
<input type="hidden" name="id" value="<%=Request.QueryString("id")%>">
<input type="submit" name="Submit" value="修改留言" id="Submit" class="input1">
<a href="index.asp?action=View_Words">返回</a></td>
</tr>
</form>
</table>
<% End Sub %>
</body>
</html>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'添加新留言到数据库
Sub Add_New_Execute()
If Request.Form("name")="" Then
Response.Write "<br>错误类型： 姓名不能为空"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -