<% sub adoconn() set udc_conn=server.createobject("adodb.connection") set udc_rs=server.createobject("adodb.recordset") 'udc_conn.open "provider=sqloledb;server=202.106.124.16;datebase=new_udc18;uid=input_wenzhang;pwd=da4w%4gr9u_@$#;network=dbmssocn" udc_conn.open "provider=sqloledb;server=202.106.124.45;datebase=udc_new18;uid=user_wenzhang;pwd=da4w%4gr9u_@$##;network=dbmssocn" end sub function replacestr(str) str=replace(str,"'","") str=replace(str,"--","") str=replace(str,"/*","") 'str=replace(str,"?","") str=replace(str,"*/","") 'str=replace(str," ","　") replacestr=str end function dim cdoctype 'dim ctype_code,keyword dim startdate,enddate,keyword dim title,description,keywords,title1,title2 dim cPositionCode1,cPositionCode2,cPositionCode3 cdoctype = replacestr(trim(request("cdoctype"))) 'ctype_code = replacestr(trim(request("ctype_code"))) 'if isnull(ctype_code) then ctype_code = "" startdate = replacestr(trim(request("startdate"))) if isnull(startdate) then startdate = "" enddate = replacestr(trim(request("enddate"))) if isnull(enddate) then enddate = "" keyword = replacestr(trim(request("keyword"))) if isnull(keyword) then keyword = "" select case cdoctype case "0001" ' 新闻资讯 title = "软件资讯_软件导购_提供最全面的软件资讯_业界最新动态软件_频道_IT168.com" description="提供最新软件资讯,行业新闻,厂商信息,每日更新各类新闻资讯" keywords="操作系统,微软,Windows,Micorosoft,Vista,Office,IE,Linux,中科红旗,金山,WPS,金山毒霸,金山词霸,永中,共享软件,行业软件,商业软件,Google,谷歌,木马,杀毒,病毒,卸载,安全,盗版,捆绑,流氓软件,插件,黑客,腾讯,QQ,TM,IM, PhotoShop,CAD,多媒体,图形图像" title1 = "新闻资讯" title2 = "资讯" cPositionCode1 = "1061_sec" cPositionCode2 = "1062_sec" cPositionCode3 = "1161" keyfile="type_zixun_key.txt" case "0004" ' 软件导购 title = "软件导购_权威_提供最全面的软件信息_软件报价_软件选购技巧_软件点评_软件频道_IT168.com" description="提供最新共享软件,行业软件,商业软件,免费软件的最新信息及应用" keywords="软件导购,软件信息,软件档案,办公,杀毒,木马,捆绑,插件,音频,视频, 智能手机软件,文字处理,操作系统,微软,Office,搜索引擎,字典词典,网络工具,聊天工具,浏览器,行业,商业,个人,管理" title1 = "软件导购" title2 = "导购" cPositionCode1 = "1063_sec" cPositionCode2 = "1064_sec" cPositionCode3 = "1162" keyfile="type_daogou_key.txt" case "0007" ' 热点评论 title = "软件评论_软话不软_评论业界最新热点话题_软件频道_IT168.com" description="针对软件业界的焦点提供最新最及时的评论文章" keywords="操作系统,微软,Windows,Micorosoft,Vista,Office,IE,Linux,中科红旗,金山,WPS,金山毒霸,金山词霸,永中,共享软件,行业软件,商业软件,Google,谷歌, 木马,杀毒,病毒,卸载,安全,盗版,捆绑,流氓软件,插件,黑客,腾讯,聊天工具,QQ" title1 = "热点评论" title2 = "评论" cPositionCode1 = "1065_sec" cPositionCode2 = "1066_sec" cPositionCode3 = "1163" keyfile="type_pinglun_key.txt" case "0002" ' 评测试用 title = "软件评测_权威、全面的软件评测_详实可靠的数据_软件频道_IT168.com" description="权软件评测,权威、全面的软件评测,详实可靠的数据" keywords="操作系统,微软,Windows,Micorosoft,Vista,Office,IE,Linux,中科红旗,金山WPS,金山毒霸,金山词霸,共享软件,行业软件,商业软件,免费软件_优秀软件_Google工具,谷歌, 木马,杀毒,病毒,卸载,安全,流氓软件,插件卸载,黑客工具,腾讯,聊天工具,QQ,TM,IM, PhotoShop,CAD,多媒体,图形图像,文字处理,软件技巧,设计, Flash" title1 = "评测试用" title2 = "评测" cPositionCode1 = "1067_sec" cPositionCode2 = "1068_sec" cPositionCode3 = "1164" keyfile="type_shiyong_key.txt" case else '没有可用参数报错 response.write "" response.end end select %>

精彩<%=title2%>文章 <%=readPositionCode(cPositionCode3)%> 推荐软件下载 今日更新文章 　当前位置：首页 > 软件产品专区 > <%=title1%> 　　　　<%=title1%> WPS Office 2005政府专用版抢先体验 <%=readPositionCode(cPositionCode1)%> <% csql = "select top 4 a.cdoc_id,a.ctitle,a.cPush_Date" csql = csql & " FROM tbl_article a left outer join tbl_article_pic c on a.cdoc_id = c.cDoc_id " csql = csql & "WHERE a.c2 = 2 and a.cdoc_type = '"&cdoctype&"' " csql = csql & "and a.cChanNelCode = '22' and flag_cdocid = 1 " csql = csql & "and a.cPush_Date <= CONVERT(char(10), GETDATE(), 20) order by csubject desc " set udc_conn=server.createobject("adodb.connection") set udc_rs=server.createobject("adodb.recordset") udc_conn.open "provider=sqloledb;server=202.106.124.45;database=udc_new18;uid=user_wenzhang;pwd=da4w%4gr9u_@$##;network=dbmssocn" udc_rs.open csql,udc_conn,3 while not udc_rs.eof %> 　 <% udc_rs.movenext wend %> 　近期推荐：   ·/<%=mid(udc_rs("cdoc_id"),5,4)%>/<%=udc_rs("cdoc_id")%>.shtml" target='_blank' class=p14><%=udc_rs("ctitle")%> [<%=udc_rs("cPush_Date")%>] 　　　　软件<%=title2%>文章 <% set fs=server.createobject("scripting.filesystemobject") filepath=server.mappath("../txt/"& keyfile) set mytextfile=fs.opentextfile(filepath,1,true) if not mytextfile.atendofstream then response.write mytextfile.readall end if mytextfile.close set mytextfile=nothing %> <%call searchresult()%>

<% function readPositionCode(cPositionCode) dim funstr if cPositionCode <> "" then set fs=server.createobject("scripting.filesystemobject") filepath="d:\udcweb_2003\2005software\txt\2005doc_"&cPositioncode&".txt" 'response.write cPositionCode set mytextfile=fs.opentextfile(filepath) funstr = mytextfile.ReadAll mytextfile.close set mytextfile=nothing set fs=nothing readPositionCode = funstr else readPositionCode = "loading......" end if end function sub searchresult() csql = "select a.cdoc_id,a.ctitle,a.cPush_Date" csql = csql & " FROM tbl_article a left outer join tbl_article_pic c on a.cdoc_id = c.cDoc_id " csql = csql & "WHERE a.c2 <> '1' and a.c2 <> '3' and a.cdoc_type = '"&cdoctype&"' " csql = csql & "and a.cChanNelCode = '22' and right(a.cdoc_id,2) = '01' " csql = csql & "and a.cPush_Date <= CONVERT(char(10), GETDATE(), 20) " ' if ctype_code <> "" then ' csql = csql & "and a.ctype_code = '"&ctype_code&"' " ' end if if startdate <> "" then csql = csql & "and CAST(cPush_Date AS datetime) >= '"&startdate&"' " end if if enddate <> "" then csql = csql & "and CAST(cPush_Date AS datetime) <= '"&enddate&"' " end if if keyword <> "" then csql = csql & "and (c.ckey like '%"&keyword&"%' or a.ctitle like '%"&keyword&"%') " end if csql = csql & " order by a.cDoc_id Desc" 'response.write csql 'Response.end set udc_conn=server.createobject("adodb.connection") set udc_rs=server.createobject("adodb.recordset") 'udc_conn.open "provider=sqloledb;server=202.106.124.16;datebase=new_udc18;uid=input_wenzhang;pwd=da4w%4gr9u_@$#;network=dbmssocn" udc_conn.open "provider=sqloledb;server=202.106.124.45;database=udc_new18;uid=user_wenzhang;pwd=da4w%4gr9u_@$##;network=dbmssocn" udc_rs.open csql,udc_conn,3 if not udc_rs.eof then page = request("page") if isnull(page) or page="" then page=1 udc_rs.pagesize=24 iCount=udc_rs.recordcount pages=(icount+udc_rs.pagesize-1)\udc_rs.pagesize if int(page) > int(pages) then page = 1 udc_rs.absolutepage=page i = 0 str = str & ""&vbcrlf while not udc_rs.eof and i < udc_rs.pagesize if i mod 6 = 0 and i > 0 then str = str & " "&vbcrlf str = str & " "&vbcrlf str = str & " "&vbcrlf end if str = str & " "&vbcrlf str = str & " "&vbcrlf str = str & " "&vbcrlf udc_rs.movenext i = i + 1 wend str = str & "

·"&udc_rs("ctitle")&"　("&udc_rs("cPush_Date")&")

"&vbcrlf response.write str ' 调用翻页子程序 parastr = "cdoctype="&cdoctype if ctype_code <> "" then parastr = parastr & "&ctype_code="&ctype_code if keyword <> "" then parastr = parastr & "&keyword="&keyword if startdate <> "" then parastr = parastr & "&startdate="&startdate if enddate <> "" then parastr = parastr & "&enddate="&enddate call changepage(pages,page,parastr) end if end sub sub changepage(pages,page,parastr) str = "" str = str & ""&vbcrlf str = str & " "&vbcrlf str = str & " "&vbcrlf str = str & " "&vbcrlf str = str & "

"&vbcrlf if page > 1 then str = str & "上一页"&vbcrlf else str = str & "上一页"&vbcrlf end if if int(page) < int(pages) then str = str & "下一页"&vbcrlf else str = str & "下一页"&vbcrlf end if str = str & "选择页码："&vbcrlf if int(page)>((page-1)\10)*10 and page>10 then str = str & "上十页"&vbcrlf end if 'response.write pages if ((int(page)-1)\10)*10 + 10 >= pages then endpage = pages else endpage = ((int(page)-1)\10)*10 + 10 end if for i = ((int(page)-1)\10)*10+1 to endpage if i = int(page) then str = str & ""&i&" "&vbcrlf else str = str & ""&i&" "&vbcrlf end if next if endpage <> pages then str = str & "下十页"&vbcrlf end if str = str & "

"&vbcrlf response.write str end sub %>