<%@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%> <%=tit%>-<%=ctit%>-<%=webname%>
<%= ctit %> <%= weburl %>
<% response.Write "
"&tit&"
" if pic<>"" then response.Write"
" response.Write "
"&content&"
" response.Write "
发布日期:"&adddate&"  已经浏览 "&viewnum&" 次
"%>