<% '**************************************************** ' Hxcms Ver7.6 Power by # ' Web: #,# ' Copyright (C) 2006 # All Rights Reserved. '**************************************************** dim news_id,cat_id,news_title,news_images,news_imgyes news_id=trim(request.querystring("news_id")) if news_id<>"" then if not isInteger(news_id) then FoundErr=True ErrMsg=ErrMsg & "

非法的资讯ID参数！

" end if news_id=CLng(news_id) else news_id=0 end if if request.querystring("cat_id")<>"" then if not isInteger(request.querystring("cat_id")) then Response.Redirect "show_error.asp?eid=传值参数非法!" Response.End end if cat_id=CLng(request("cat_id")) else cat_id=0 end if if news_id>0 then sql="select * from cnews where news_id="&news_id set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 if rs.bof and rs.eof then FoundErr=True ErrMsg=ErrMsg & "

你要找的资讯不存在，或者已经被管理员删除！

" else if rs("Passed")=1 then FoundErr=True ErrMsg=ErrMsg & "

你要找的资讯尚未被管理员审核！

" else start="资讯动态 - "&rs("news_title")&"" cat_id=CLng(rs("cat_id")) news_title=rs("news_title") content=rs("news_content") news_images=rs("images1") news_images2=rs("images2") news_images3=rs("images3") news_images4=rs("images4") news_images5=rs("images5") rs("news_count")=rs("news_count")+1 rs.update end if end if end if if FoundErr=True then Call HxErrMsg() response.end end if '=============================================== 分类显示 sub main_news() Response.Write "首页" & vbCrlf if request.querystring("cat_id")<>"" then cat_id=CLng(request("cat_id")) sql="select * from cnewcat where cat_id="&cat_id set rec=server.createobject("adodb.recordset") rec.open sql,conn,1,1 Response.Write ""&rec("cat_name")&"" & vbCrlf rec.close set rec=nothing else Response.Write "资讯动态" & vbCrlf end if Response.Write "资讯列表" & vbCrlf end sub '=============================================== 分类调用 sub class_news() sql="select * from cnewcat where sid=0 order by cat_id ASC" set Rs1=server.createobject("adodb.recordset") Rs1.open sql,conn,1,1 Response.Write "

" & vbCrlf IF Rs1.eof Then response.write "
• " & vbCrLf response.write "
  Have no column eyes
  " & vbCrLf response.write "
" & vbCrLf Else do while not rs1.eof if cat_id=rs1("cat_id") then Response.Write "
• "&rs1("cat_name")&"
" & vbCrlf else Response.Write "
• "&rs1("cat_name")&"
" & vbCrlf end if rs1.movenext loop End IF response.Write"

" & vbCrLf rs1.close set rs1=nothing end sub '================================================= '过程名：displayList_news '作 用：带分页功能的资讯列表 '参 数：nn--------------标题长度 ' Hxperpage-----每页显示条数 ' classyes--------是否显示分类，True为是，False为否 ' NewWindows------是否新窗打开，True为是，False为否 'Web: # '================================================= sub displayList_news(nn,Hxperpage) Dim CurPage,Url_Add Url_Add="?action=gongao&" If Request.QueryString("Page")<>"" Then Curpage=Request.QueryString("Page") If IsInteger(Curpage)=False Then Curpage=1 Else Curpage=1 End If if request("cat_id")<>"" then sql="select * from cnews where (cat_id="&cat_id&") and passed=0 order by istop desc,news_id DESC" Url_Add=Url_Add&"cat_id="&cat_id&"&" elseif request("keyword")<>"" and (request("select")="news_title" or request("select")="news_content" or request("select")="review") then sql="select * from cnews where "&request("select")&" like '%"&Jencode(checkspace(request("keyword")))&"%' order by istop desc,news_id DESC" Url_Add=Url_Add&"select="&request("select")&"&keyword="&Server.URLEncode(request("keyword"))&"&" else sql="select * from cnews where cat_id=1 and passed=0 order by news_id DESC" end if set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then Dim Hx_Nums,MultiPages,i Rs.PageSize=Hxperpage Rs.AbsolutePage=CurPage Hx_Nums=Rs.RecordCount MultiPages=MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add) Do Until Rs.EOF OR i=Hxperpage Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write "

"&gotTopic(rs("news_title"),nn)&" " & vbCrlf if conn.execute("select news_date from cnews order by news_id desc")(0)-rs("news_date")<1 then response.Write " " end if Response.Write "

["&year(rs("news_date"))&"-"&Right("0"&month(rs("news_date")),2)&"-"&Right("0"&day(rs("news_date")),2)&"]

" & vbCrlf i=i+1 rs.movenext loop else if rs.eof and rs.bof then Response.Write " " & vbCrlf Response.Write " " & vbCrlf if request("cat_id")<> "" then Response.Write "该分类暂时没有资讯" else Response.Write "没有任何资讯，请管理员到后台添加！" end if Response.Write " " & vbCrlf Response.Write " " & vbCrlf end if end if if Hx_Nums > Hxperpage then Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write "" & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write "

"&MultiPages&"

" & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf end if rs.close set rs=nothing end sub %>