% response.Buffer=ture %>
<%
newsid=trim(request("newsid"))
if newsid="" then response.redirect "error.asp?t=1"
if not IsNumeric(newsid) then response.redirect "error.asp?t=2"
'sql = "select n.*,p.utxt from news n inner join passport p on n.adduser=p.id where n.id="&newsid
sql = "select * from vnews where id="&newsid
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,3,2
'title=""&trim(rs("title"))&""
newstitle=trim(rs("title"))
webtitle=rs("title")
dat=rs("time")
lm=rs("lm")
lm2=rs("lm2")
if lm=143 then
'Response.Write("图片暨南栏目制作中")
response.Redirect("tpjn_disp.asp?id="&newsid)
response.End()
end if
lmname=rs("lmname")
lm2name=rs("lm2name")
adduserid=rs("adduser")
hit=rs("hit")+1
xgnews=rs("xgnews")
'if webxgnews="" then webxgnews=left(rs("title"),5)
content=rs("content")
url=trim(rs("url"))
'rs("hit")=hit
txt=rs("author")
mt=rs("mt")
'rs.update
rs.close
conn.execute("update news set hit="&hit&" where id="&newsid)
if url<>"" then
Response.Redirect url
end if
%>