view.asp
来自「酷购网上商城~~ 完整的asp源代码.通过少许的改动就可以让你拥有自己的商城~~」· ASP 代码 · 共 117 行
ASP
117 行
<html>
<head>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<meta name="description" content="fmben（冯文彬）的留言本">
<meta name="keywords" content="fmben官方网站,fmben,踏趣,摄影,交友,asp">
<LINK href="images/css.css" rel=stylesheet type=text/css>
<!--#include file=conn.asp-->
<%
user=request("user")
id=request("id")
if user="" then user="fmben"
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where 用户名='"& user &"'"
rs.open sql,conn,1,1
if rs.eof or rs.bof then%>
<script language=JavaScript>{window.alert('对 不 起 , 此 帐 户 不 存 在!');window.location.href='index.asp'}</script>
<%else%>
<title><%=rs("留言名")%></title>
</head>
<BODY background='images/bookbg.gif'>
<body topmargin=0>
<div align="center"><!--#include file=top.asp--><br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="700">
<tr>
<td width="120" height=40>
<a href="add.asp?user=<%=user%>"><img src=images/post.gif border=0></a></td>
<td width="50" height=40 align="center">
<img border="0" src="images/announce.gif"></td>
<td width="430" height=40 ><%if rs("ggt")<>"" then%><marquee width=95% scrollamount=3><a href="#" onclick="javascript:open('announce.asp?user=<%=rs("用户名")%>','','width=455,height=280')"><font color=0060BF face=arial><font color=red><b>通知:</b></font> <%=rs("ggt")%></font> [<%=rs("sendtime")%>]</a></marquee><%else%><a href=edit.asp?user=<%=rs("用户名")%>>当前没有公告！版主进入发布 >></a><%end if%>
</td><td width="100" align=right><select onchange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
<option selected>选择模式</option>
<option value="index.asp?user=<%=rs("用户名")%>">留言模式</option>
<option value="list.asp?user=<%=rs("用户名")%>">列表模式</option>
</select></td>
</table>
</div>
<center><%
sql2="select * from [book] where ID="& id
set gbook=server.createobject("adodb.recordset")
on error resume next
gbook.open sql2,conn,1,1
if err.number<>0 then
response.Write("对不起，你访问的地址是非法或者参数错误！<a href='http://www.fmben.com'>返回首页</a>")
response.End()
end if
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="700">
<tr>
<td width="2%"><img border="0" src="images/T_left.gif"></td>
<td width="96%" background="images/Tt_bg.gif"></td>
<td width="2%"><img border="0" src="images/T_right.gif"></td>
</tr>
</table>
</center>
</div>
<CENTER>
<table cellspacing="1" cellpadding="4" width="700" border="0" class="a2" align="center" height="134" bgcolor="#FFFFFF">
<tbody>
<tr class="a1">
<td height=25 bgcolor="#FFFFFF" width="670" colspan="2">留言者:<font color=red><%=gbook("昵称")%></font> <font color="#000080">主题:</font><%if not gbook("title")="" then%><%=gbook("title")%><%else%><%=left(gbook("内容"),20)%><%end if%>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align=center height=50> <b>留言内容:</b></td>
<td bgcolor="#FFFFFF" rowspan=2 ><div style="line-height:150%" class=auto>
<%if gbook("image")<>"" then%><br><% if session("book_session")=gbook("用户") then%><font color="red">[密]</font> <%=gbook("内容")%><%else%> 此留言为悄悄话，留言内容只有版主才能查看……<font color=red>[密]</font><%end if%><%else%><%=gbook("内容")%><%end if%>
</td>
</tr>
<tr>
<td width="130" height="25" class="a3"> <img height=20 src="images/homepage.gif" width=20><a href="<%=gbook("home")%>" target=_blank title=访问<%=gbook("昵称")%>的主页> 我的主页</a></td>
</tr>
<tr>
<td width="130" height="25" bgcolor="#FFFFFF" > <img height=20 src="images/email.gif"
width=20><a href="mailto:<%=gbook("email")%>"
title=给<%=gbook("昵称")%>发信> 写信给我</a></td>
<td width="550" class="a3"><p style="line-height: 150%"><a href="replay.asp?user=<%=user%>&id=<%=gbook("ID")%>"><font color="#000080">〖版主回复〗</font></a><% if not gbook("回复")="" then %><font color=#CC3300><%=gbook("回复")%></font><%else%><font color=green>斑竹尚未回复...</font> <%end if%></p></td>
</tr>
<tr>
<td width="130" height="25" class="a3"> <img height=20 src="images/oicq.gif"
width=20> <%=gbook("OICQ")%></td>
<td width="550" bgcolor="#FFFFFF"> [<a href="replay.asp?user=<%=user%>&id=<%=gbook("ID")%>"><font color="#555555">回复</font></a>] [<a href="del.asp?user=<%=user%>&id=<%=gbook("ID")%>"><font color="#555555">删除</font></a>] <img src=images/ip.gif align=absmiddle alt="<%=gbook("ip")%>"> 留言者IP： <font color="#555555"><%if session("book_session")<>user then:response.write(left(gbook("ip"),7)):else:response.write(gbook("ip")):end if%></font> 发表于:<font color="#555555"><%=gbook("时间")%></font></td>
</tr>
</tbody>
</table>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="700" >
<tr>
<td width="1%"><img border="0" src="images/T_bottomleft.gif"></td>
<td width="97%" background="images/T_bottombg.gif"></td>
<td width="2%"><img border="0" src="images/T_bottomright.gif"></td>
</tr>
</table>
</center>
</div>
</CENTER>
<p>
</center>
</BODY><%
gbook.close
set gbook=nothing
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?