<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%Session("ver")="cn" '版本选择： cn-中文 en-英文 big5-繁体 jp-日语%> <% dim conn dim connstr dim db db="news/database/article_cn.mdb" Set conn = Server.CreateObject("ADOdb.connection") connstr="Provider=Microsoft.Jet.OLEdb.4.0;Data Source=" & Server.MapPath(db) conn.Open connstr sub Closeconn() conn.close set conn=nothing end sub dim strFileName,MaxPerPage,ShowSmallClassType dim totalPut,CurrentPage,TotalPages dim BeginTime,EndTime dim founderr, errmsg dim BigClassName,SmallClassName,SpecialName,keyword,strField dim rs,sql,sqlArticle,rsArticle,sqlSearch,rsSearch,sqlBigClass,rsBigClass,sqlSpecial,rsSpecial dim SpecialTotal BeginTime=Timer BigClassName=Trim(request("BigClassName")) SmallClassName=Trim(request("SmallClassName")) SpecialName=trim(request("SpecialName")) keyword=trim(request("keyword")) if keyword<>"" then keyword=replace(replace(replace(replace(keyword,"'","‘"),"<","<"),">",">")," "," ") end if strField=trim(request("Field")) if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if sqlBigClass="select * from BigClass order by BigClassID" Set rsBigClass= Server.CreateObject("ADOdb.Recordset") rsBigClass.open sqlBigClass,conn,1,1 '请勿改动下面这三行代码 ShowSmallClassType=ShowSmallClassType_Default MaxPerPage=MaxPerPage_Default strFileName="index.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "&SpecialName=" & SpecialName %> 欢迎访问信息产业电子第十一设计研究院网站
English
  首  页   公司介绍   领导团队   组织机构   新   闻   优势项目   资质证书    合作交流   企业文化   联系我们
各地分支机构

无锡

苏州

上海

北京

天津

大连

武汉

深圳

南京

绵阳

重庆

西安

 厦门
• 总承包公司  • 华凯管理 • 爱迪公司 • 爱德公司 • 生物工程院

热烈祝贺我院荣获国家工程设计综合甲级资质

版权所有 EDRI 信息产业电子第十一设计研究院有限公司

地址：成都市双林路251号  邮编：610021

蜀ICP备05018546号

<% call Closeconn() sub ShowArticle(TitleLen) MaxPerPage=10 if TitleLen<0 or TitleLen>200 then TitleLen=50 end if if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then sqlArticle="select top " & MaxPerPage else sqlArticle="select " end if sqlArticle=sqlArticle & " ArticleID,BigClassName,SmallClassName,IncludePic,Title,UpdateTime,Hits,Author,OnTop,Hot,Elite from article where Passed=True " if BigClassName<>"" then sqlArticle=sqlArticle & " and BigClassName='" & BigClassName & "' " if SmallClassName<>"" then sqlArticle=sqlArticle & " and SmallClassName='" & SmallClassName & "' " end if else if SpecialName<>"" then sqlArticle=sqlArticle & " and SpecialName='" & SpecialName & "' " end if end if sqlArticle=sqlArticle & " order by OnTop,articleid desc" Set rsArticle= Server.CreateObject("ADOdb.Recordset") rsArticle.open sqlArticle,conn,1,1 if rsArticle.bof and rsArticle.eof then response.Write("
  • " & msg021 & "
    • ") else if currentPage=1 then call ArticleContent(TitleLen) else if (currentPage-1)*MaxPerPage " elseif rsArticle("Elite")=true then strTemp = strTemp & " " else strTemp = strTemp & " " end if if BigClassName<>"" and SmallClassName="" and (rsArticle("SmallClassName")&""<>"") then strTemp = strTemp & "[" & rsArticle("SmallClassName") & "]" end if if rsArticle("IncludePic")=true then strTemp = strTemp & "["&msg025&"]" strTemp = strTemp & "" & gotTopic(rsArticle("title"),intTitleLen) & "" 'strTemp = strTemp & " (" if CDate(FormatDateTime(rsArticle("UpdateTime"),2))=date() then strTemp = strTemp & "" else strTemp= strTemp & "" end if 'strTemp= strTemp & FormatDateTime(rsArticle("UpdateTime"),1) & "，" & rsArticle("Hits") & ")" 'if rsArticle("Hits")>=HitsOfHot then 'strTemp= strTemp & ""&msg030&"" 'end if strTemp= strTemp & "" response.write strTemp rsArticle.movenext i=i+1 if i>=MaxPerPage then exit do loop end sub function gotTopic(str,strlen) if str="" then gotTopic="" exit function end if dim l,t,c, i str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<") l=len(str) t=0 for i=1 to l c=Abs(Asc(Mid(str,i,1))) if c>255 then t=t+2 else t=t+1 end if if t>=strlen then gotTopic=left(str,i) & "…" exit for else gotTopic=str end if next gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<") end function %>