📄 gbook.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/inc.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=Sitename%>-留言系统</title>
<link href="index.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="top.asp"-->
<%
if request("denglu")<>"" then
name=HTMLEncode(request.Form("name"))
gbook=HTMLEncode(request.Form("gbook"))
qq=HTMLEncode(request.Form("qq"))
sex=HTMLEncode(request.Form("sex"))
if Name ="" or gbook="" then
Response.Write "<script language=javascript> {window.alert('名称或留言内容不能为空!');window.location.href='gbook.asp';}</script>"
else
set rs1=server.createobject("adodb.recordset")
sql1="select * from gbook"
rs1.open sql1,cn,3,3
rs1.addnew
rs1("name")=name
rs1("gbook")=gbook
rs1("qq")=qq
rs1("sex")=sex
rs1("ip")=request.ServerVariables("remote_host")
rs1.update
Response.Write "<script language=javascript> {window.alert('谢谢支持!留言成功!');window.location.href='gbook.asp';}</script>"
rs1.close
set rs1=nothing
end if
end if
%>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="200" valign="top">
<form id="form1" name="form1" method="post" action="?action=add">
<table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30"><img src="images/Lv2/lv2gbook.gif" width="200" height="30" /></td>
</tr>
<tr>
<td> 用户名:
<label>
<input name="name" type="text" class="wubian" id="name" value="游客" size="20" maxlength="26" />
</label>
<br />
性别:
<label>
<input name="sex" type="radio" value="男" checked="checked" />
男
<input type="radio" name="sex" value="女" />
女
<br />
QQ 号:
<input name="qq" type="text" class="wubian" id="qq" size="20" maxlength="26" />
<br />
留言内容:<br />
<textarea name="gbook" cols="32" rows="10" class="wubian" id="gbook"></textarea>
<br />
<input name="denglu" type="submit" class="wubian" value="提 交" />
<input name="Submit2" type="reset" class="wubian" value="重 写" />
</label></td>
</tr>
</table>
</form>
</td>
<td width="580" align="left" valign="top">
<% dim rs,sql
set rs=server.CreateObject("Adodb.recordSet")
sql="select * from gbook order by id desc"
rs.open sql,cn,1,1
rs.PageSize=20
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
for i=1 to rs.pagesize
if rs.EOF then exit for%>
<table width="580" cellpadding="0" cellspacing="0" class="wubian">
<tr>
<td colspan="4" align="center" valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="145" height="20" align="center" bgcolor="#3A82C4" class="baibian"><%=rs("name")%></td>
<td width="145" align="center" bgcolor="#3A82C4" class="baibian"><%=rs("date")%></td>
<td width="145" align="center"" bgcolor="#3A82C4" class="baibian"><%=rs("ip")%></td>
<td width="145" align="center" bgcolor="#3A82C4" class="baibian"><%=rs("qq")%></td>
</tr>
</table></td>
</tr>
<tr>
<td width="100" height="50" align="center" valign="top" bgcolor="#FFFFFF"><%if rs("sex")="女" then%><img src="images/4.gif"/>
<%else%><img src="images/6.gif" /><%end if%></td>
<td width="500" colspan="3" align="left" valign="top" bgcolor="#EEFFFF"> <%=rs("gbook")%></td>
</tr>
<tr>
<td height="20" colspan="4" bgcolor="#EEFFFF" class="baibian"> 管理员回复: <%=rs("return")%></td>
</tr>
</table>
<%rs.movenext
next%>
<%if page=1 and not page=pagecount then%>
<div align="center">第<%=page%>页 <%for i=1 to pagecount%>
<a href="gbook.asp?page=<%=i%>"><%=i%></a> <%next%><a href="gbook.asp?page=<%=page+1%>">下一页</a> </div>
<%elseif page=pagecount and not page=1 then%>
<div align="center">第<%=page%>页 <%for i=1 to pagecount%>
<a href="gbook.asp?page=<%=i%>"><%=i%></a> <%next%><a href="gbook.asp?page=<%=page-1%>">上一页</a> </div>
<%elseif page<1 then%><div class="font" align="center"><font color=red>没有任何记录！</font></div>
<%elseif page>pagecount then%><div class="font" align="center"><font color=red>没有任何记录！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="center">第<%=page%>页 <%for i=1 to pagecount%>
<a href="gbook.asp?page=<%=i%>"><%=i%></a> <%next%><a href="gbook.asp?page=<%=page-1%>">上一页</a>
<a href="gbook.asp?page=<%=page+1%>">下一页</a> </div>
<%end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -