<%
response.Write " "&tit&" "
if pic<>"" then response.Write""
response.Write ""&content&" "
response.Write "发布日期:"&adddate&" 已经浏览 "&viewnum&" 次 "%>
|
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%dim cid,tit,ctit,stit,adddate,viewnum,pic,content id=trim(request.QueryString("id")) if not isnumeric(id) then response.End() else rs.open "select * from news where id="&id&"",conn,1,3 rs("viewnum")=rs("viewnum")+1 rs.update cid=rs("cid") tit=rs("name") adddate=rs("adddate") pic=rs("pic") viewnum=rs("viewnum") content=rs("content") if rs("des")="" then des=getheader(rs("content"),120) else des=rs("des") end if if rs("key")="" then key=webkey else key=rs("key") end if rs.close if len(key)=0 then key=tit if len(des)=0 then des=webdis for i=0 to ubound(nclass) if cid=i then ctit=nclass(i) next end if%>
<%
response.Write " "&tit&" "
if pic<>"" then response.Write""
response.Write ""&content&" "
response.Write "发布日期:"&adddate&" 已经浏览 "&viewnum&" 次 "%>
|