|
<%
set rs=server.createobject("adodb.recordset")
id=int(request("id"))
'*********************点击率+1
set rs=dsconn.execute("update [wenzhang] set hits=hits+1 where id="&id)
'**********************取出文章相关内容
set rs=dsconn.execute("select title,langmu,langmu2,writefrom,writer,hits,date,moban,text,key,ren,id from [wenzhang] where id="&id)
title=rs(0)
langmu=rs(1)
langmu2=rs(2)
source=rs(3)
writer=rs(4)
hits=rs(5)
dated=rs(6)
moban=rs(7)
text=rs(8)
key=rs(9)
ren=rs(10)
wzid=rs(11)
rs.close
'***********************取出文章所使用模版
sql="select * from moban where bianhao="&moban
rs.open sql,dsconn,3,1
if rs.eof then
rs.close
call rsclose
call dsconnclose
response.write "模版出错，请后台重新指定本文章使用的模版"
response.end
end if
t=rs("moban")
'********************************替换代码
t=replace(t,"$$title$$",title)
t=replace(t,"$$langmu$$",langmu)
t=replace(t,"$$langmu2$$",langmu2)
t=replace(t,"$$source$$",source)
t=replace(t,"$$writer$$",writer)
t=replace(t,"$$hits$$",hits)
t=replace(t,"$$date$$",dated)
t=replace(t,"$$ren$$",ren)
t=replace(t,"$$text$$","")
t=replace(t,"$$bar$$","")
t=replace(t,"$$xgwz$$","")
rs.close
call rsclose
call dsconnclose
'******************输出文章
response.write t
%> |
