📄 wenzhangxs.asp
字号:
<%@ Language=VBScript %>
<%
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("lovelife.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("adodb.recordset")
rs.LockType=2
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")
dbpath=server.mappath("lovelife.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("ADODB.Recordset")
'rs.LockType=2
sqlstr="select * from loveshenghuo where id="& id
rs.open sqlstr,conn,2,2
rs("cishu")=rs("cishu")+1
bm=rs("bm")
rs.update
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgcolor="#FFFFF8">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
<tr>
<td width="217" height="39" align="center" valign="bottom"> </td>
<td width="523" valign="bottom" height="39" align="right">我爱生活</td>
<td width="523" valign="bottom" height="39" align="right"><a href="fabiaowz0.asp" target="_blank">我要发表文章</a>
</td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="006600"></td>
</tr>
<tr valign="bottom">
<td colspan="3" height="27">
<table width="437" border="1" cellpadding="0" cellspacing="0" align="right" bordercolorlight="#FFFFFF" bordercolordark="#006600">
<tr>
<td width="65" align="center" nowrap><a href=default.asp>人生感悟</a></td>
<td width="76" align="center" nowrap><a href=default.asp>情感天地</a></td>
<td width="66" align="center" nowrap><a href=default.asp>故事天空</a></td>
<td width="65" align="center" nowrap><a href=default.asp>生活体验</a></td>
<td width="65" align="center" nowrap><a href=default.asp>消费心得</a></td>
<td width="80" align="center" nowrap><a href=default.asp>道听途说</a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="580" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" height="1"></td>
</tr>
<tr align="center">
<td colspan="2"> </td>
</tr>
<tr align="center" bgcolor="#CCCCFF">
<td colspan="2" class="title"><%
if rs("biaoti")="" then
response.write "无题"
else
response.write rs("biaoti")
end if
%></td>
</tr>
<%
if not isnull(rs("fbiaoti")) then
%>
<tr>
<td width="56%"> </td>
<td width="44%" nowrap><%=rs("fbiaoti")%></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<%
end if
%>
</table>
<table width="500" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#000000">
<tr valign="top">
<td bgcolor="#FFFFCC" height="127"> <%=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" nowrap>发表日期：<%=formatdatetime(rs("fbriqi"),1)%></td>
<%
zz=""
if rs("bm")<>"" then
zz=zz+" 作者："&rs("bm")
end if
%>
<td width="22%" nowrap><%=zz%></td>
<td width="23%" nowrap>浏览次数：<%=rs("cishu")%></td>
<td width="19%" nowrap> </td>
<td width="9%" nowrap>
<% if rs("mail")<>"" then %><a href=mailto:<%=rs("mail")%>>联系作者</a>
<%end if%></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")
dbpath=server.mappath("lovelife.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("adodb.recordset")
rs.LockType=2
sqlstr="select * from loveshenghuo where id<>"& id &"and bm='"& bm &"'"
rs.open sqlstr,conn,1,1
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>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -