<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
option explicit
response.buffer=true
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Const PurviewLevel=2
Const CheckChannelID=2
Const PurviewLevel_Article=3
%>
<%
dim Action,FoundErr,ErrMsg
dim ArticleID,sql,rs
Action=trim(request("Action"))
ArticleID=trim(request("ArticleID"))
if Action="Modify" then
if ArticleId="" then
response.write "请指定要修改的文章ID"
else
ArticleID=Clng(ArticleID)
sql="select * from article where Deleted=False and ArticleID=" & ArticleID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "找不到文章"
else
response.write "" & rs("Content") & "
"
end if
rs.close
set rs=nothing
end if
end if
%>
<%
call CloseConn()
%>