📄 index.asp
字号:
<!--#include file="inc/dbconn.asp"-->
<!--#include file="inc/char.inc"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>青创工作室 - 显示留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="Microsoft FrontPage 3.0" name="GENERATOR">
<link href="inc/style.css" type="text/css" rel="stylesheet">
<style type="text/css">.unnamed1 {
FONT-SIZE: 9pt; COLOR: #000000; LINE-HEIGHT: 15pt
}
</style>
</head>
<body text="#000000" vLink="#2f2f4f" aLink="#800000" link="#000080" bgColor="#ffffff"
leftMargin="0" topMargin="5" rightMargin="0" marginwidth="0" marginheight="0">
<%
'连接数据库
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From 留言本 Order By 时间 desc"
rs.Open sql,conn,1,3
if rs.bof and rs.eof then
response.write "暂时没有留言"
else
rs.pagesize=8
if request("page")="" then
rs.absolutepage=1
page=1
else
rs.absolutepage=request("page")
page=cint(request("page"))
end if
rowcount=rs.pagesize
%>
<dd align="center"><br>
<table cellSpacing="1" width="760" border="0">
<TBODY>
<tr>
<td vAlign="bottom" align="left" width="16"><img src="image/face.gif"
border="0"></td>
<td><b>留言统计 : <select name="select1" size="1"
onChange="javascript:location.reload(this.options[this.selectedIndex].value)"
style="BACKGROUND-COLOR: #b0cfef;font-size:9pt">
<option>选择页码</option>
<%
for j=1 to rs.pagecount
response.write"<option value='index.asp?page="&j&"'>第["&j&"]页</option>"
next
%>
</select></b></td>
<td></td>
<td align="right"><font color="#000000">分页<%
for i=1 to rs.pagecount
response.write "<a href='index.asp?page="&i&"'>["&i&"]</a>"
next%></font></td>
</tr>
</TBODY>
</table>
</dd>
<div align="right">
<table cellSpacing="0" cellPadding="0" width="760" align="center" border="0">
<TBODY>
<tr>
<td width="103"><a target="_blank" href="http://www.qcsky.net">返回首页</a></td>
<td width="657" align="right"><a href="board.asp"> <img src="IMAGE/icon_folder_new_topic1.gif"
border="0"></a> </td>
</tr>
</TBODY>
</table>
</div><div align="center"><div align="center"><center>
<%
do while not rs.eof and rowcount>0
name=rs("姓名")
email=rs("电子邮件")
homepage=rs("个人主页")
oicq=rs("oicq")
pic=rs("表情")
main=rs("留言内容")
ttime=rs("时间")
sex=rs("sex")
fromto=rs("fromto")
icq=rs("icq")
ip=rs("ip")
%><table cellSpacing="0" cellPadding="0" width="760" border="0">
<TBODY>
<tr>
<td bgColor="#cccccc">
<table cellSpacing="1" cellPadding="4" width="100%" border="0">
<TBODY> <tr bgColor="#4b87c2">
<td vAlign="center" width="18%"><font color="#ffffff"><p align="center">留言者信息</font></td>
<td vAlign="center"><font color="#ffffff">留言主题：<%if len(rs("留言主题"))>20 then%><%=left(rs("留言主题"),20)%>...<%else%><%=rs("留言主题")%><%end if%></font></td>
</tr>
<tr bgColor="#ffffff">
<td vAlign="top" width="18%" rowSpan="5"><font color="black"><b><p align="center"><%=name%></b></font>
</p>
<div align="center"><center><table cellSpacing="0" cellPadding="0" border="0">
<TBODY>
<tr>
<td align="middle"></td>
</tr>
<tr>
<td align="middle"><br>
<img src="image/<%=sex%>.gif" align="absMiddle" border="0" width="57"
height="57"> </td>
</tr>
</TBODY>
</table>
</center></div><div align="center"><center><table>
<TBODY>
<tr>
<td><%=fromto%><br>
</td>
</tr>
</TBODY>
</table>
</center></div></td>
<td vAlign="top" height="90"><table cellSpacing="0" cellPadding="0" width="100%"
border="0">
<TBODY>
<tr>
<td vAlign="top" width="25"><p align="center"><img src="image/<%=pic%>"
align="ABSCENTER" border="0"></td>
<td><p align="left"><font color="#0000ff">留言于： <%=ttime%></font></td>
<td width="25%">
<p align="right"> <a href="http://www.ipsearch.com.cn/index.html?Submit=Search&ipaddress=<%=ip%>" target="_blank"><img height="15"
src="image/ip.gif" width="13" align="absMiddle" border="0" alt="查看<%=ip%>是那里人"></a> <img height="16"
src="image/system.gif" width="16" align="absMiddle" border="0" alt="<%=rs("type")%>">
</td>
</tr>
</TBODY>
</table>
<hr SIZE="1">
<p><%=ubbcode(main)%><br>
</td>
</tr>
<tr bgColor="#ffffff">
<td vAlign="bottom"> <a href=replyfrom.asp?id=<%=rs("id")%>><img alt="回复该留言" src="image/quote.gif"
align="absMiddle" border="0"> </a> <a href=login.asp?id=<%=rs("id")%>><img
alt="删除该留言" src="image/recycle.gif" align="absMiddle"
border="0"> </a> <a href="mailto:<%=email%>" ><img
src="image/email.gif" align="absMiddle"
border="0" alt="<%=email%>"> </a> <a href="<%=homepage%>" target="_blank"><img
src="image/home.gif" align="absMiddle"
border="0" alt="<%=homepage%>"> </a>
<%
if rs("oicq")<>"" then
Dim T,Start,Length,QQURL
T=GetURL("http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no="&rs("oicq")&"")
Start=Instr(1,T,"ShowResult("+chr(34))
Start=Instr(Start,T,"http://")
Length=Instr(Start,T,chr(34)+","+chr(34))-Start
QQURL=Mid(T,Start,Length)
response.write "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln="&rs("oicq")&" target=_blank title=QQ:"&rs("oicq")&"><img src="&QQURL&" width=16 height=16 border=0 align=absMiddle> QQ状态</a>"
end if
%>
<img
height="16" src="image/icq.gif" width="16" align="absMiddle"
border="0" alt="<%=icq%>"> ICQ</a> </td>
</tr>
<%if rs("Reply")<>"" then%>
<tr><td bgcolor="#ffffff"><img src="image/<%=rs("reply_icon")%>" align="absMiddle" border="0"><font color="blue"><%=rs("replyname")%>：回复于：<%=rs("reply_date")%></font><br><hr SIZE="1"><br>
<%=ubbcode(rs("reply"))%><br><br></td></tr>
<%end if%>
</tr>
</table>
</td>
</tr>
</TBODY>
</table>
</TBODY></table><%rowcount=rowcount-1
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%></center>
</div></div><div align="center"><center>
<table cellSpacing="1" cellPadding="0" width="760" align="center" border="0">
<TBODY>
<tr>
<td align="left">本留言板程序设计：<a href="mailto:webmaster@qcsky.net">个性小子</a></td>
</tr>
</TBODY>
</table>
</center></div><div align="center"><center>
<table cellSpacing="0" cellPadding="0" width="760" align="center" border="0">
<TBODY>
<tr>
<td align="right"><a href="board.asp"> <img src="IMAGE/icon_folder_new_topic1.gif"
border="0"></a> </td>
</tr>
</TBODY>
</table>
</center></div>
<p align="center"><br>
</p>
</body>
</html>
<%
Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
GetURL = .ResponseText
End With
Set Retrieval = Nothing
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -