📄 index.asp
字号:
</tr>
</table>
<br>
<%
do while i < PageSize And not rs.eof
%>
<table width="499" border="0" cellspacing="1" cellpadding="4" align="center" style="table-layout:fixed;word-break:break-all">
<tr>
<td align="right" rowspan="7" height="26" valign="top" width="9"> <font color="#000000"> </font>
<br> </td>
<td width="67" align="right"><font color="#000000">Name:</font> </td>
<td width="238"><%=Rs("name")%></td>
<td width="50" align="right"> </td>
<td valign="top" width="89"> </td>
</tr>
<tr>
<%If Rs("web")<>"" Then%>
<td align="right" width="67"><font color="#000000">Web:</font> </td>
<td colspan="3"><b><font color="#FF3300"><a href="<%=Rs("web")%>" target="_blank"><%=Rs("web")%></a></font></b></td>
<%End If%>
</tr>
<tr>
<td valign="top" width="67" align="right"><font color="#000000">Email:</font></td>
<td width="238"><%=Rs("email")%></td>
<td align="right" width="50"><font color="#000000">Date:</font></td>
<td width="89" align="left"><font color="#000000"> </font><%=Left(Rs("date"),9)%></td>
</tr>
<tr>
<td valign="top" width="67" align="right"> <font color="#000000">Words:</font></td>
<td colspan="3"><%=Ubb(unHtml(Rs("words")))%></td>
</tr>
<tr>
<%If Rs("reply")<>"" Then%>
<td align="right" valign="top" width="67"><span class="style1">Reply:</span></td>
<td colspan="3"><font color="#999999"><%=Ubb(unHtml(Rs("reply")))%></font></td>
<%End If%>
</tr>
<tr>
<td align="right" valign="top"> </td>
<td colspan="3">
<% 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>
<table width="499" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="8" align="right"><img src="/images/tubiao.gif" width="25" height="25"></td>
</tr>
<tr>
<td height="8" background="images/line.gif"></td>
</tr>
</table>
<%
rs.movenext
i=i+1
loop
Rs.Close
Set Rs = Nothing
%>
<table width="499" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td align="right" height="20">共有<%=TotalRecord%>条留言 分页
<%
For m = 1 To PageCount
%>
[<a href="index.asp?page=<%=m%>"><%=m%></a>]
<%
Next
%>
</td>
<td align="right"> </td>
</tr>
</table>
<% 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="120">
用户名：
</td>
<td width="226">
<input type="text" name="username" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="top" width="120">
密 码：
</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="499" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td height="20" colspan="4" align="center">UBB功能帮助</td>
</tr>
<tr>
<td width="17"><div align="right"></div></td>
<td width="74">[img]</td>
<td width="308">这里填写图片绝对地址 <font color="#FF0000">http://dragon.asp8.cn</font></td>
<td width="63">[/img]</td>
</tr>
<tr>
<td width="17" height="20"><div align="right"></div></td>
<td width="74" height="20">[url]</td>
<td width="308" height="20">这里填写连接地址 <font color="#FF0000">http://dragon.asp8.cn</font></td>
<td width="63" height="20">[/url]</td>
</tr>
<tr>
<td width="17"><div align="right"></div></td>
<td width="74">[swf]</td>
<td width="308">这里填写SWF文件的地址 <font color="#FF0000">http://dragon.asp8.cn/logo.swf</font></td>
<td width="63">[/swf]</td>
</tr>
<tr>
<td width="17" height="20"><div align="right"></div></td>
<td width="74" height="20">[email]</td>
<td width="308" height="20">这里填写电子信箱地址 <font color="#FF0000">konggeer@163.com</font></td>
<td width="63" 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="308">这里填写要着色的 <font color="#FF0000">文字</font></td>
<td width="63">[/color]</td>
</tr>
<tr>
<td width="17"><div align="right"></div></td>
<td width="74">[size=<font color="#FF0000">大小</font>]</td>
<td width="308">这里填写要加大的<font color="#FF0000"> 文字</font></td>
<td width="63">[/size]</td>
</tr>
<tr>
<td width="17"><div align="right"></div></td>
<td width="74">[font=<font color="#FF0000">字体</font>]</td>
<td width="308">这里填写要改变字体的<font color="#FF0000"> 文字</font></td>
<td width="63">[/font]</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>错误类型： 姓名不能为空"
Response.Write "<br>"
Response.Write "<a href=""index.asp?action=Add_New""><br>返回</a><br><br><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><img src=images/bottom.gif width=530 height=27 border=0></td> </tr></table>"
Response.End
End If
If Len(Request.Form("name"))>20 Then
Response.Write "<br>错误类型： 姓名不能太长"
Response.Write "<br>"
Response.Write "<a href=""index.asp?action=Add_New""><br>返回</a><br><br><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><img src=images/bottom.gif width=530 height=27 border=0></td> </tr></table>"
Response.End
End If
If Request.Form("email")<>"" Then
If instr(Request.Form("email"),"@")=0 or instr(Request.Form("email"),"@")=1 or instr(Request.Form("email"),"@")=len(email) then
Response.Write "<br>错误类型： 电子信箱格式填写不正确"
Response.Write "<br>"
Response.Write "<a href=""index.asp?action=Add_New""><br>返回</a><br><br><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><img src=images/bottom.gif width=530 height=27 border=0></td> </tr></table>"
Response.End
End If
End If
If Request.Form("words")="" Then
Response.Write "<br>错误类型： 留言不能为空"
Response.Write "<br>"
Response.Write "<a href=""index.asp?action=Add_New""><br>返回</a><br><br><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><img src=images/bottom.gif width=530 height=27 border=0></td> </tr></table>"
Response.End
End If
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -