📄 wenzhangxs.asp
字号:
<%@ Language=VBScript %>
<!-- #include file="../ADOVBS.INc" -->
<%
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString")
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
id=request("id")
if id=0 then
sqlstr="select top 1 * from loveshenghuo order by id desc"
rs.open sqlstr,conn
id=rs("id")
'response.write id
'response.end
rs.close
set conn=nothing
end if
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString")
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
sqlstr="select * from loveshenghuo where id='"& id &"'"
rs.open sqlstr,conn
rs("cishu")=rs("cishu")+1
bm=rs("bm")
rs.update
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<style type="text/css">
<!--
.botton { font-size: 12px; color: #000000; background-color: #FFFFF8}
.title { color: #006600; font-size: 14px; font-weight: bold; cursor: hand; line-height: 18px}
.red { color: #990066}
.green { color: #006600}
.white { color: #FFFFFF}
.black { color: #000000}
.block { font-size: 14px; line-height: 17px; text-align: justify}
-->
</style>
<link rel="stylesheet" href="3508.css">
</HEAD>
<BODY bgcolor="#FFFFF8">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
<tr>
<td width="192" height="39" align="center" valign="bottom"><img src="../images/newzhao1zhao.gif" width="140" height="50"></td>
<td colspan="2" align="right" height="39" valign="bottom">
<table width="480" border="1" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF" bgcolor="#CCCCFF" cellpadding="0" cellspacing="0" height="22">
<tr align="center">
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../html/navigator.asp" class="black">本站导航</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="../sh/search.asp" class="black">二手市场</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../chat/default.asp" class="black">供求信息</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../news/index.asp" class="black">精品生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="default.asp" class="black">我爱生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../xhtj/index.asp" class="black">笑话天地</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../diaocha1/diaocha1.asp" class="black">调查生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../club/Default.asp" class="black">生活社区</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="006600"></td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="18" bgcolor="#3399FF">
<tr>
<td width="320" valign="bottom"><span class="black">【本站导航】</span><a href="../default.asp">本站首页</a>
>> <span class="red">我爱生活</span></td>
<td width="70">●<a href=default.asp?fenlei=1 class="white">人生感悟</a> </td>
<td width="70">●<a href=default.asp?fenlei=2 class="white">情感天地</a></td>
<td width="70">●<a href=default.asp?fenlei=3 class="white">故事天空</a></td>
<td width="70">●<a href=default.asp?fenlei=4 class="white">生活体验</a></td>
<td width="70">●<a href=default.asp?fenlei=5 class="white">消费心得</a></td>
<td width="70">●<a href=default.asp?fenlei=6 class="white">道听途说</a></td>
</tr>
<tr>
<td colspan="7" bgcolor="006600"></td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="right">
<td height="37"><a href="fabiaowz.asp" target="_blank">我要发表文章</a> <span class="title"><span class="title"></span></span>
</td>
</tr>
</table>
<table width="580" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3" height="1"></td>
</tr>
<tr align="center">
<td width="18%" class="title"> </td>
<td class="title" width="60%" bgcolor="#99CCCC"><%
if rs("biaoti")="" then
response.write "无题"
else
response.write rs("biaoti")
end if
%></td>
<td width="22%" class="title"> </td>
</tr>
<%
if not isnull(rs("fbiaoti")) then
%>
<tr>
<td height="25" colspan="2"> </td>
<td width="22%" nowrap height="25"><%=rs("fbiaoti")%></td>
</tr>
<%
end if
%>
</table>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#000000">
<tr valign="top">
<td bgcolor="#FFFFCC" height="127" class="block"><br>
<%=rs("text")%></td>
</tr>
</table>
<p> </p><table width="89%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="5" height="1" bgcolor="006600"></td>
</tr>
<tr>
<td width="27%" align="center">发表日期：<%=formatdatetime(rs("fbriqi"),1)%></td>
<%
zz=""
if rs("bm")<>"" then
zz=zz+" 作者："&rs("bm")
end if
%>
<td width="22%"><%=zz%></td>
<td width="23%">浏览次数：<%=rs("cishu")%></td>
<td width="19%" nowrap> <%
if not isnull(rs("zzxm")) then
response.write "转载者："&rs("zzxm")
else
response.write " "
end if
%></td>
<td width="9%" nowrap><a href=mailto:<%=rs("mail")%>>联系作者</a></td>
</tr>
</table>
<table border=0 align="center" width="427" height="33" cellpadding="0" cellspacing="0" >
<%
set conn=nothing
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString")
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
sqlstr="select * from loveshenghuo where id<>'"& id &"'and bm='"& bm &"'"
rs.open sqlstr,conn
if not rs.eof then
%>
<tr>
<td height="33"> </td>
</tr>
<tr>
<td>〖该作者发表的其它文章〗</td>
</tr>
<tr>
<td height="1" bgcolor="FF0000"></td>
</tr>
<%
while not rs.eof
%>
<tr>
<td nowrap> <a href=wenzhangxs.asp?id=<%=rs("id")%>><%= rs("xm")%> </a></td>
</tr>
<%
rs.movenext
wend
set conn=nothing
end if
%>
<tr>
<td align="right">
<input type="button" name="Button" value="关闭窗口" onclick="window.close()" class="botton">
</td>
</tr>
</table>
<!-- #include file="../include/end.htm" -->
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -