📄 index.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="config.asp" -->
<!-- #include file="function.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<style TYPE="text/css">
body,table {font-size:9pt}
tr,td {font-size:9pt}
#floater { position: absolute; left: 132px;top: 32px; width:100; height="100"visibility:visible;z-index: 10;}
</style>
<script language="javascript" src="javascript/bookchk.js"></script>
<title><%= bodytitle %></title>
</head>
<body topmargin="5" leftmargin="0" bgcolor="<% =bodycolor %>">
<div align="center">
<!-- #include file="include/top.asp" -->
<br>
<table border="0" cellspacing="0" cellpadding="2" width="<%= tablewidth %>" bgcolor="<%= bgcolor %>">
<tr valign="bottom">
<td width="25%" height="370" align="center" valign="top">
<!-- 这里开始是浮动表单代码 -->
<table width="200" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
<tr>
<td align="center" width="180">
<div id="floater" align="center">
<table border="0" cellspacing="1" cellpadding="3" width="100%" bgcolor="<%= tablebg %>">
<tr align="center">
<td width="96%" height="20" valign="bottom" background="background/td1.gif">填写留言</td></tr>
<tr bgcolor="<%= tdbg %>">
<form method="post" action="booksave.asp" name="myform" onsubmit="javascript:return bookchk()">
<td>
<font color=666666>姓 名：</font><input name="user" size="21" class="textline" maxlength="15" > * </td></tr>
<tr bgcolor="<%= tdbg %>">
<td><font color=666666>标 题：</font><input name="title" size="21" class="textline" maxlength="50" > * </td></tr>
<tr bgcolor="<%= tdbg %>">
<td><font color=666666>电 话：</font><input name="phone" size="21" class="textline" maxlength="15" > * </td></tr>
<tr bgcolor="<%= tdbg %>">
<td><font color="666666">来 自：</font><select name="dichi">
<option value="non">-请选择你所在省市-</option>
<option value="北京市" >北京市</option>
<option value="上海市" >上海市</option>
<option value="重庆市" >重庆市</option>
<option value="天津市" >天津市</option>
<option value="广东省" >广东省</option>
<option value="湖北省" >湖北省</option>
<option value="河南省" >河南省</option>
<option value="河北省" >河北省</option>
<option value="江苏省" >江苏省</option>
<option value="湖南省" >湖南省</option>
<option value="江西省" >江西省</option>
<option value="山东省" >山东省</option>
<option value="山西省" >山西省</option>
<option value="浙江省" >浙江省</option>
<option value="海南省" >海南省</option>
<option value="云南省" >云南省</option>
<option value="吉林省" >吉林省</option>
<option value="四川省" >四川省</option>
<option value="安徽省" >安徽省</option>
<option value="甘肃省" >甘肃省</option>
<option value="福建省" >福建省</option>
<option value="贵州省" >贵州省</option>
<option value="辽宁省" >辽宁省</option>
<option value="陕西省" >陕西省</option>
<option value="青海省" >青海省</option>
<option value="黑龙江" >黑龙江</option>
<option value="内蒙古" >内蒙古</option>
<option value="宁夏" >宁夏</option>
<option value="广西" >广西</option>
<option value="新疆" >新疆</option>
<option value="西藏" >西藏</option>
<option value="香港" >香港</option>
<option value="澳门" >澳门</option>
<option value="台湾" >台湾</option>
</select> *
</td></tr> <tr bgcolor="<%= tdbg %>">
<td><font color=666666>邮 箱：</font><input type="text" size="23" name="email" class="textline" maxlength="35"></td></tr>
<tr bgcolor="<%= tdbg %>">
<td>  
<input type="radio" name="face" value="face-1.bmp"><img src="pic/face-1.bmp" border="0" absalign="bottom"></img>  
<input type="radio" name="face" value="face-2.bmp"><img src="pic/face-2.bmp" border="0" absalign="bottom"></img>  
<input type="radio" name="face" value="face-3.bmp"><img src="pic/face-3.bmp" border="0" absalign="bottom"></img>  
<input type="radio" name="face" value="face-4.bmp"><img src="pic/face-4.bmp" border="0" absalign="bottom"></img>  *
</td></tr>
<tr bgcolor="<%= tdbg %>">
<td> <textarea name="content" cols="29" rows="4" class="textline" wrap="soft"></textarea></td></tr> <tr><td bgcolor="#ffffff" background="background/tdbg.gif" align="center" height="20">
<input type="submit" value="提 交" class="input1">         
<input type="reset" value="重 置" class="input1">
</td>
</tr>
</table>
<!-- #include file="javascript/java.js" --> </div></td></tr></table>
</td>
<td width="75%" align="center" valign="top">
<table border="0" cellspacing="1" cellpadding="0" width="100%" bgcolor="<%= tablebg %>">
<tr>
<td width="98%" height="20" valign="bottom" background="background/td1.gif">
<table border="0" width="100%" cellspacing="0" cellspadding="0"><tr><td width="87%">
  <img src="pic/arrow.gif" border="0"></img> 当前位置：
<a href="http://www.21pcnet.com" target="_blank">世纪电脑网</a> → <a href="index.asp">查看留言</a>
</td>
<td width="13%">
[ <a href="loginbook.asp">管理留言</a>]</td></tr></table>
</td></tr></table>
<table border="0" bgcolor="<%=tablebg%>" width="100%" cellspacing="1" cellspadding="0">
<%
set rs=server.createobject("adodb.recordset")
sqlstr="select * from book order by id desc"
rs.open sqlstr,db,1,3
if rs.eof and rs.bof then
response.write "目前还没有数据"
else
dim page_size
dim page_no
dim page_total
page_size=4
if session("page_no")="" then
page_no=1
session("page_no")=page_no
elseif Request.QueryString("page_no")<>"" Then
page_no=cint(request.querystring("page_no"))
Session("page_no")=page_no
else
page_no=session("page_no")
end if
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_no
dim i
i=page_size
do while not rs.eof and i>0
i=i-1
%>
<tr bgcolor="<%=tdbg2%>">
<td width="25%" align="center"><%=rs("user")%></td><td width="75%">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr><td width="72%">
 <img src="pic/now.gif" border="0" align="absmiddle"></img>
 <%=rs("title")%></td>
<td width="28%"><font color="aa4545"><%=rs("addtime")%></font>
</td></tr></table>
</td></tr>
<tr bgcolor="<%=tdbg%>">
<td width="25%" align="center" height="120" valign="bottom">
<img src="face/<%=rs("face")%>" border="0"></img><br><br>
来自：<font color="aa4545"><%=rs("dichi")%></font></td>
<td width="75%" valign="top">
<table border="0" cellspacing="0" cellpadding="0" height="120" width="100%">
<tr><td>
<p style="margin-left: 5; margin-right: 5; margin-top: 5; margin-bottom: 2" align="left">
<%=rs("content")%>
</p>
</td></tr>
<%
if rs("neirong")<>"" then
%>
<tr><td bgcolor="dedede" height="70">
<p style="margin-left: 5; margin-right: 5; margin-top: 2; margin-bottom: 2" align="left">
<b>以下是管理员回复内容：</b><br>
<%=rs("neirong")%>
</p>
</td></tr>
<% else %>
<tr><td height="70"> </td></tr>
<% end if %>
<tr><Td height="20">
<table style="border-top:#a1a1a1 1px solid" width="98%" cellspacing="0" cellpadding="2">
<tr><td width="35%">
电话:<font color="aa4545">
<%
if session("admin")="" then
response.write "只有管理员可见"
else
response.write rs("phone")
end if
%>
</font>
</td><td width="45%">
E—Mail：<font color="aa4545">
<%
if session("admin")="" then
response.write "只有管理员可见"
else
response.write rs("email")
end if
%>
</font>
</td><td width="8%">
<%
if session("admin")="" then
response.write "删除"
else
%>
<a href="delete.asp?id=<%=rs("id")%>&fanhui=book" onclick="javascript:return confirm('该操作将永久删除本条留言')">删除</a>
<%
end if
%>
</td><td width="8%">
<%
if session("admin")="" then
response.write "回复"
else
response.write "<a href='replybook.asp?id="& rs("id") &"'>回复</a>"
end if
%>
</td>
</tr></table>
</td>
</tr></table>
</td></tr>
<%
rs.movenext
loop
end if
%>
</table>
<table style="border:#484848 1px solid;" width="100%" cellspacing="0" cellspadding="0" background="background/tdbg.gif">
<tr>
<td height="23" valign="middle" width="25%" align="center">
<%
response.write "共<font color='ff00ff'> "& page_total &" </font>页 "
response.write "当前第<font color='ff00ff'> "& page_no & " </font>页"
response.write "</td><td width='68%' align='center'>"
response.write "<img src='pic/page.gif' border='0' align='absmiddle'></img>  "
Dim numTemp
numTemp=minPage(page_no,page_total)-1
If numTemp>=1 Then
Response.Write "[ <a href='index.asp?page_no=" & numTemp & "'>前10页</a>]   "
End If
'显示当前10页的链接
For I=minPage(page_no,page_total) To maxPage(page_no,page_total)
If I=page_no Then
Response.Write "<b><font color='#a1a1a1'>" & I & "</font></b> "
Else
Response.Write "<a href='index.asp?page_no=" & I & "'><font color='#cc0066'>" & I & "</font></a>  "
End If
Next
'显示往后10页的链接，为当前最大值加1
numTemp=maxPage(page_no,page_total)+1
If numTemp<page_total Then
Response.Write "   [<a href='index.asp?page_no=" & numTemp & "'>后10页</a>] "
End If
%>
</td><td width="7%">
<select name="page" onChange="var i=this.selectedIndex;document.location='index.asp?page_no=' + this.options[i].value" size=1 style="FONT-SIZE: 12px;FONT-FAMILY: 宋体">
<%
For i=1 To page_total
if i=page_no then
response.write "<option value='" & i & "' selected>"& i &"</option>"
else
Response.Write "<option value='" & i & "'>"& i &"</option>"
end if
Next
%>
</select>
</td></tr>
</table>
</td></tr></table>
<br>
<!-- #include file="include/bottom.asp" -->
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -