admin_news_view.asp

强大的后台文章编辑器的功能

<!--#include file = admin_conn.asp -->

<%
newsid=trim(request("newsid"))
sql = "select * from news where id="&newsid
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
title=rs("title")
dat=rs("time")
hit=rs("hit")+1
content=rs("content")
%>
<title><%=title%></title>
<%

conn.Execute = "update news set hit='"&hit&"' where ID="&(newsid)


lmid=cint(rs("lm"))
sql2 = "select * from lm where id="&lmid
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
lm=rs2("lm")

mbid=cint(rs2("mb"))
sql3 = "select * from newsmb where id="&mbid
Set rs3 = Server.CreateObject("ADODB.RecordSet")
rs3.Open sql3,conn,1,1

nr=replace(rs3("mid"),"$$标题$$",title)
nr=replace(nr,"$$栏目名$$",lm)
nr=replace(nr,"$$时间$$",dat)
nr=replace(nr,"$$访问量$$",hit)
nr=replace(nr,"$$内容$$",content)

response.write rs3("top")
response.write nr
response.write rs3("down")


rs.close
set rs=nothing
rs2.close
set rs2=nothing
rs3.close
set rs3=nothing
conn.close
set conn=nothing
%>