%
ArticleID = request("id")
if ArticleID = "" then
Response.Write("參數(shù)錯誤!")
Response.end
end if
if IsNumeric(ArticleID) = false then
Response.Write("參數(shù)錯誤!")
Response.end
end if
ArticleID = clng(ArticleID)
set rs = server.createobject("adodb.recordset")
sql = "select Title,ClassID,UpdateTime from JK_Article where ArticleID = "&ArticleID&""
rs.open sql,conn,1,1
if rs.bof and rs.eof then
Response.Write("參數(shù)錯誤!")
Response.end
else
Title = rs("Title")
ClassID = rs("ClassID")
UpdateTime = rs("UpdateTime")
end if
rs.close
set rs = nothing
filename=replace(replace(replace(CStr(UpdateTime)," ",""),":",""),"-","")
set rs = server.createobject("adodb.recordset")
sql = "select ClassPath from JK_ArticleClass where ClassID = "&ClassID&""
rs.open sql,conn,1,1
if rs.bof and rs.eof then
Response.Write("參數(shù)錯誤!")
Response.end
else
ClassPath = rs("ClassPath")
end if
rs.close
set rs = nothing
Function PingLun()
set rs = server.createobject("adodb.recordset")
sql = "select * from JK_Article_Comment where ArticleID = "&ArticleID&" and Locked = 'false' order by CommentDateTime desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
PingLun = ""
else
CommentNum=rs.recordcount
onepage=10
rs.pagesize=onepage
pages=rs.pagecount
page=request("page")
if page<=0 then page=1
if page>pages then page=pages
pump=onepage*(page-1)
rs.move pump
PingLun = "
"
for i=1 to onepage
if rs.eof then exit for
CommentUser = rs("CommentUser")
CommentContent = rs("CommentContent")
CommentDateTime = rs("CommentDateTime")
PingLun = PingLun & "