📄 clist.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15 HTTP://www.wapfs.net
'=================================================
%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
dim sql
dim rs
dim rstype
dim typesql
dim typeid,typename,classname,classid,Nclassname,Nclassid
dim title
set rs=server.createobject("adodb.recordset")
sql="select Aclass.class,ANclass.Nclass,article.title,article.classid,article.Nclassid from article,Aclass,ANclass where article.classid=Aclass.id and article.Nclassid=ANclass.Nclassid and article.articleID="&request("id")
rs.open sql,conn,1,1
if not rs.eof then
title=rs("title")
classid=rs("classid")
Nclassid=rs("Nclassid")
classname=rs("class")
Nclassname=rs("Nclass")
end if
rs.close
%>
<wml>
<head>
<meta http-equiv='Cache-Control' content='no-Cache'/>
<meta http-equiv='Cache-Control' content='max-age=0'/>
</head>
<card id='main' title='<%=untow(Nclassname)%>'>
<p><%=untow(title)%>
<br/>-------------<br/>
<%
dim id
id=request("id")
set rs = server.createobject("adodb.recordset")
sql="select * from article where articleid="&request("id")
rs.open sql,conn,1,1
Content=rs("content")
pageWordNum=298
StartWord = 1
Length=len(Content)
PageAll=(Length+PageWordNum-1)\PageWordNum
i=request("i")
if isnull(i) or i="" then
i=0
end if
Content = mid(Content,StartWord+i*PageWordNum,PageWordNum)
Response.Write ubbcode(content)
if 0<=i<PageAll then
if cint(i)<cint(PageAll)-1 then
response.write "<br/>---------------<br/>"
Response.Write "<a href='clist.asp?i=" & i+1 & "&id=" & id &"'>下页</a>"
End if
if cint(i)>0 then
Response.Write " " & "<a href='clist.asp?i=" & i-1 & "&id=" & id & "'>上页</a>"
End if
End if
if cint(i)<cint(PageAll)-1 then
response.write " " & "(" & i+1 & "/" & PageAll & ")"
response.write "<br/>" & "<a href='#card2'>指定页面</a>"
End if
%>
<br/>(<%=untow(rs("writer"))%>) <%=rs("dateandtime")%>
<br/>-------------
<% if session("flag")<>"" then
if session("flag")<3 then
response.write "<br/><a href='admin/f_article.asp?id="&rs("articleid")&"'>编辑</a>"
response.write " <a href='admin/f_del.asp?id="&rs("articleid")&"'>删除</a>"
response.write " <a href='admin/f_xuxe.asp?id="&rs("articleid")&"'>续写</a>"
end if
else
end if%>
<br/><a href='ping/ping.asp?classid=<%=rs("classid")%>&nclassid=<%=rs("nclassid")%>&articleid=<%=request("id")%>'>评论<% if rs("Nkey")<>"" then %>(<%=rs("Nkey")%>)<%else%>(0)<%end if%></a>
<br/><a href='lang.asp?classid=<%=rs("classid")%>&nclassid=<%=rs("nclassid")%>'><%=untow(Nclassname)%></a>
<br/><a href='step.asp?id=<%=rs("classid")%>'><%=untow(classname)%></a>
<br/><a href='index.asp'>返回首页</a>
<%
rs.close
set rs=nothing
%></p>
</card>
<card id='card2' title='指定页面'>
<p>
<%
response.write "跳到第：<input name='i' value='0' format='*N'/><anchor>页，跳吧<go method='post' href='clist.asp'><postfield name='i' value='$(i)'/><postfield name='id' value='" & id & "'/></go></anchor>"
%>
</p>
</card>
</wml> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -