📄 gustbook.asp
字号:
<td width="17" height="15" align="left" valign="top"><img src="images/3.jpg" width="17" height="15" /></td>
</tr>
</table><%
'修改留言调用
Case "xiugai"
Id=Request.Querystring("Id")
If Id="" then
Response.Write "<script>alert('非法操作：修改置顶留言的ID参数不能为空！');this.location.href='"&Url&"';</SCRIPT>"
Response.End
End If
Set mRs= Server.CreateObject("adodb.recordSet")
mRs.open "Select * from dqe_gustbook where id="&Id, conn, 1, 1
dim xiugai_name,xiugai_biaoti,xiugai_neirong
xiugai_name=mRs("who")
xiugai_biaoti=mRs("biaoti")
xiugai_neirong=mRs("neirong")
mRs.close %>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="18" height="16" align="right" valign="bottom"><img src="images/1.jpg" width="18" height="16" /></td>
<td height="12" background="images/1r.jpg"> </td>
<td width="17" height="16" align="left" valign="bottom"><img src="images/2.jpg" width="17" height="16" /></td>
</tr>
<tr>
<td width="13" background="images/4s.jpg"> </td>
<td height="170" align="center" valign="middle"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="left" valign="middle"><table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/002.jpg"> <img src="images/jt.jpg" width="13" height="13" /> <span class="STYLE1">谢谢您发表留言 </span></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="middle">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="50" class="shixian1"><form name="form1" id="form1" method="post" action="<%=Url%>&action=upd&Id=<%= Id %>">
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="8%" height="30" class="xixian"><div align="center">昵称：</div></td>
<td width="19%" height="30" class="xixian"><div align="left">
<input name="mingzi" type="text" class="xixian" id="mingzi" value="<%= xiugai_name %>" size="10" />
</div></td>
<td width="7%" height="30"><div align="center">标题：</div></td>
<td width="44%" height="30" class="xixian"><div align="left">
<input name="biaoti" type="text" class="xixian" id="biaoti" value="<%= xiugai_biaoti %>" size="36" />
</div></td>
<td width="22%" rowspan="2" class="xixian"><div align="center"><input name="Submit" type="image" value="提交" src="images/an.jpg" align="middle" width="114" height="111"></div></td>
</tr>
<tr>
<td class="xixian"><div align="center">内容：</div></td>
<td colspan="3" class="xixian"><div align="left">
<textarea name="neirong" cols="60" rows="6" class="xixian" id="neirong"><%= xiugai_neirong %></textarea>
</div></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table></td>
<td background="images/2x.jpg"> </td>
</tr>
<tr>
<td width="18" height="15" align="right" valign="top"><img src="images/4.jpg" width="18" height="15" /></td>
<td height="12" background="images/3z.jpg"> </td>
<td width="17" height="15" align="left" valign="top"><img src="images/3.jpg" width="17" height="15" /></td>
</tr>
</table>
<% Case Else %>
<%
Sql="select * from dqe_gustbook where lanmu="&lanmu&" order by zhiding desc, shijian desc"
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
If mRs.bof and mRs.eof then %>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="18" height="16" align="right" valign="bottom"><img src="images/1.jpg" width="18" height="16" /></td>
<td height="12" background="images/1r.jpg"> </td>
<td width="17" height="16" align="left" valign="bottom"><img src="images/2.jpg" width="17" height="16" /></td>
</tr>
<tr>
<td width="13" background="images/4s.jpg"> </td>
<td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="left" valign="middle"><table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/002.jpg"> </td>
</tr>
</table></td>
</tr>
<tr>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="50" class="shixian1"><div align="center"><%= "没有任何记录!" %></div></td>
</tr>
</table> </td>
</tr>
<tr>
<td height="10"> </td>
</tr>
</table></td>
<td background="images/2x.jpg"> </td>
</tr>
<tr>
<td width="18" height="15" align="right" valign="top"><img src="images/4.jpg" width="18" height="15" /></td>
<td height="12" background="images/3z.jpg"> </td>
<td width="17" height="15" align="left" valign="top"><img src="images/3.jpg" width="17" height="15" /></td>
</tr>
</table>
<%
Else
mRs.PageSize =EveryPageNum '每页记录条数
iCount=mRs.RecordCount '记录总数
iPageSize=mRs.PageSize
maxpage=mRs.PageCount
page=request("page")
If Not IsNumeric(page) or page="" then
page=1
Else
page=cint(page)
End If
If page<1 then
page=1
ElseIf page>maxpage then
page=maxpage
End If
mRs.AbsolutePage=Page
If page=maxpage then
x=iCount-(maxpage-1)*iPageSize
Else
x=iPageSize
End If
for i=1 to mRs.pagesize
%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="18" height="16" align="right" valign="bottom"><img src="images/1.jpg" width="18" height="16" /></td>
<td height="12" background="images/1r.jpg"> </td>
<td width="17" height="16" align="left" valign="bottom"><img src="images/2.jpg" width="17" height="16" /></td>
</tr>
<tr>
<td width="13" background="images/4s.jpg"> </td>
<td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="left" valign="middle"><table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/002.jpg"> <img src="images/jt.jpg" width="13" height="13" /> <span class="STYLE1"><%= i %>.楼 <%= mRs("who") %> 【<%= mRs("biaoti") %>】 <%= mRs("shijian") %> <img src="images/jt2.jpg" width="3" height="13" /><% If mRs("zhiding")<>0 and Session("dqe_Admin")<>adminname Then %> 置顶<% End If %>
<% If Session("dqe_Admin")=adminname then %> <a href="<%= Url %>&action=del&Id=<%= mRs("id") %>"><span class="STYLE1">删除</span></a> <a href="<%= Url %>&action=xiugai&Id=<%= mRs("id") %>"><span class="STYLE1">修改</span></a> <a href="<%= Url %>&action=gai&Id=<%= mRs("id") %>"><span class="STYLE1"><% If mRs("zhiding")<>0 Then %> 取消置顶<% Else %> 置顶<% End If %></span></a><% End If %>
</span></td>
</tr>
</table></td>
</tr>
<tr>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="50" class="shixian1"> <%= mRs("neirong") %></td>
</tr>
</table> </td>
</tr>
<tr>
<td height="10"> </td>
</tr>
</table></td>
<td background="images/2x.jpg"> </td>
</tr>
<tr>
<td width="18" height="15" align="right" valign="top"><img src="images/4.jpg" width="18" height="15" /></td>
<td height="12" background="images/3z.jpg"> </td>
<td width="17" height="15" align="left" valign="top"><img src="images/3.jpg" width="17" height="15" /></td>
</tr>
</table>
<% mRs.movenext
If mRs.eof then exit for
next
mRs.close
Set mRs=nothing
%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20"><%
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table border='0' style='border-collapse: collapse' width='768' align='center'>")
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><tr>")
Response.Write("<td align='center'>")
If page<=1 then
Response.Write ("首页 " )
Response.Write ("上一页 ")
Else
Response.Write("<a href=" & action & "?" & temp & "Page=1>首页</a> ")
Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</a> ")
End If
If page>=pagecount then
Response.Write ("下一页 ")
Response.Write ("尾页 ")
Else
Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</a> ")
Response.Write("<a href=" & action & "?" & temp & "Page=" & pagecount & ">尾页</a> ")
End If
Response.Write(" 页次：" & page & "/" & pageCount & "页")
Response.Write(" 共有" & iCount & "条留言")
Response.Write(" 转到" & "<input tyep=text name=page maxlength=5 value=" & page & " style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>" & "页 <input type=submit style=""font-size: 9pt"" value=GO style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>")
Response.Write("</td></tr></form>")
Response.Write("</table>")
End Sub
%></td>
</tr>
</table> <% End If %> <br />
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="18" height="16" align="right" valign="bottom"><img src="images/1.jpg" width="18" height="16" /></td>
<td height="12" background="images/1r.jpg"> </td>
<td width="17" height="16" align="left" valign="bottom"><img src="images/2.jpg" width="17" height="16" /></td>
</tr>
<tr>
<td width="13" background="images/4s.jpg"> </td>
<td height="170" align="center" valign="middle"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="left" valign="middle"><table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/002.jpg"> <img src="images/jt.jpg" width="13" height="13" /> <span class="STYLE1">谢谢您发表留言 </span></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="middle">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="50" class="shixian1"><form name="form1" id="form1" method="post" action="<%=Url%>&action=add">
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="8%" height="30" class="xixian"><div align="center">昵称：</div></td>
<td width="19%" height="30" class="xixian"><div align="left">
<input name="mingzi" type="text" class="xixian" id="mingzi" size="10" />
</div></td>
<td width="7%" height="30"><div align="center">标题：</div></td>
<td width="44%" height="30" class="xixian"><div align="left">
<input name="biaoti" type="text" class="xixian" id="biaoti" size="36" />
</div></td>
<td width="22%" rowspan="2" class="xixian"><div align="center"><input name="Submit" type="image" value="提交" src="images/an.jpg" align="middle" width="114" height="111"></div></td>
</tr>
<tr>
<td class="xixian"><div align="center">内容：</div></td>
<td colspan="3" class="xixian"><div align="left">
<textarea name="neirong" cols="60" rows="6" class="xixian" id="neirong"></textarea>
</div></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table></td>
<td background="images/2x.jpg"> </td>
</tr>
<tr>
<td width="18" height="15" align="right" valign="top"><img src="images/4.jpg" width="18" height="15" /></td>
<td height="12" background="images/3z.jpg"> </td>
<td width="17" height="15" align="left" valign="top"><img src="images/3.jpg" width="17" height="15" /></td>
</tr>
</table>
<% End Select
conn.close
Set conn=nothing %>
</td>
</tr>
</table></td>
</tr>
</table></td>
<td width="108" align="left" valign="top" background="images/bjr2.jpg"><img src="images/bj_r1.jpg" width="108" height="479" /></td>
</tr>
</table>
<table width="1003" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/xm.jpg" /></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -