📄 yuanchuangwenxue.asp
字号:
<!--#include file="abc/As_conn.asp"-->
<!--#include file="abc/function.asp"-->
<!--#include file="abc/x.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>原创文学——〖阿赛〗</title>
<style type="text/css">
<!--
body {
margin:0px; scrollbar-face-color: #C8DFFF;
scrollbar-highlight-color: #C8DFFF;
scrollbar-shadow-color: #0099FF;
scrollbar-3dlight-color: #0099FF;
scrollbar-arrow-color: #0099FF;
scrollbar-darkshadow-color:#C8DFFF
margin-left: 0px;
background-image: url('img/bg.gif');
background-position:
center 50%;
}
body, td, th {
font-size: 12px;
color: #0066FF;
font-family: 宋体;
}
a {
font-family: 宋体;
font-size: 12px;
}
a:link {
text-decoration: none;
color: #0066FF;
}
a:visited {
text-decoration: none;
color: #0066FF;
}
a:hover {
text-decoration: none;
color: #00CCFF;
}
a:active {
text-decoration: none;
color: #00CCFF;
}
h1, h2, h3, h4, h5, h6 {
font-family: 宋体;
}
-->
</style>
</head>
<body>
<table width="495" height="416" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="495" height="90" align="center" valign="top"><table width="98%" height="196" border="0" cellpadding="0" cellspacing="0">
<tr><td>
<table id="bj" width="486" border="0" cellspacing="0" cellpadding="0" height="200">
<tr><td>
<!--#include file="abc/f.asp"-->
</td>
</tr></table>
<!--#include file="abc/t.asp"-->
</td></tr>
</table>
</td></tr>
<tr><td><p align="center"><!--#include file="abc/m.asp"--></td></tr>
<tr><td></td></tr>
<tr><td height="151" valign="top">
<table width="463" border="0" height="98%" align="center" cellpadding="0" cellspacing="0">
<tr><td valign='top' height='50' background='images/S/bgw.gif'>
<%
dim pag,cc,id
id=request("id")
cc=28
pag=request("pag")
if pag="" then pag=0
call ConnectionDatabase
if id <>"" then
set Rs=GrateRs("select * from Asai_YCWX where id="&id,1)
response.write("<a href='YuanchuangWenxue.asp?id="&id-1&"'>上一篇</a> <a href=YuanchuangWenxue.asp>主目录</a> <a href='YuanchuangWenxue.asp?id="&id+1&"'>下一篇</a><br>")
if Rs.eof then
response.Write("没有该篇文章...")
else
response.Write("<div align=center><strong>【 "&Rs("title")&" 】</strong><br>文章作者："&Rs("asai")&" 录入时间："&Rs("date")&" 浏览次数："&Rs("click")&"</div><br>")
if trim(Rs("Encode"))="html" then
conn.execute("update Asai_YCWX Set Click=click+1 where ID=" & ID)
Response.Write HtmlSelfEnCode(Rs("content"))
Response.Write ("<br><br><strong>读者评论</strong><br>")
Response.Write HtmlSelfEnCode(Rs("review"))
else
conn.execute("update Asai_YCWX Set Click=click+1 where ID=" & ID)
Response.Write UBBEnCode(Rs("content"))
Response.Write ("<br><br><strong>读者评论</strong><br>")
Response.Write HtmlSelfEnCode(Rs("review"))
end if
response.write("<br><br>(完)<br><a href='p.asp?id="&Rs("id")&"' target=_blank> 发表、查看评论</a><br><a href='YuanchuangWenxue.asp?id="&id-1&"'>上一篇</a> <a href=YuanchuangWenxue.asp>主目录</a> <a href='YuanchuangWenxue.asp?id="&id+1&"'>下一篇</a><br>")
end if
else
response.Write("<div align=center>目 录</div><br>")
set Rs=GrateRs("select * from Asai_YCWX",1)
if not Rs.eof then Rs.movelast
for i = 1 to pag*cc
Rs.moveprevious
if Rs.eof then exit for
next
do while not Rs.bof
if Rs("hot")=0 then
response.write" 〖诗歌〗 "
response.Write(" <a href=YuanchuangWenxue.asp?id="&Rs("id")&">"&Rs("title")&"</a><br>")
i=i+1
if i=cc then exit do
Rs.moveprevious
else
if Rs("hot")=1 then
response.write" 【小说】 "
response.Write(" <a href=YuanchuangWenxue.asp?id="&Rs("id")&">"&Rs("title")&"</a><br>")
i=i+1
if i=cc then exit do
Rs.moveprevious
else
if Rs("hot")=2 then
response.write" ※日记※ "
response.Write(" <a href=YuanchuangWenxue.asp?id="&Rs("id")&">"&Rs("title")&"</a><br>")
i=i+1
if i=cc then exit do
Rs.moveprevious
else
response.write" ◇其他◇ "
response.Write(" <a href=YuanchuangWenxue.asp?id="&Rs("id")&">"&Rs("title")&"</a><br>")
i=i+1
if i=cc then exit do
Rs.moveprevious
end if
end if
end if
loop
for j = 1 to cc-i
response.Write("<br>")
next
response.write("<div align=right>共"&int(Rs.recordcount/cc)+1&"页,第"&pag+1&"页 ")
response.write("<a href=YuanchuangWenxue.asp?pag=0>第一页</a> ")
if not pag=0 then
response.write("<a href=YuanchuangWenxue.asp?pag="&pag-1&">上一页</a> ")
else
response.write("上一页 ")
end if
if not Rs.bof then
response.write("<a href=YuanchuangWenxue.asp?pag="&pag+1&">下一页</a> ")
else
response.write("下一页 ")
end if
response.write("<a href=YuanchuangWenxue.asp?pag="&int(Rs.recordcount/cc)&">最后一页</a> </div>")
end if
call DBConnEnd
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="8"></td>
</tr>
<tr>
<td height="18" align="center">
<script language=javascript src=abc/As_Count.Asp?AsaiTj=2></script><br><!--#include file="abc/zx.asp"-->
</td>
</tr>
<tr>
<td height="33" align="center"><img src="images/X/dwx.gif" width="495" height="50"></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -