<%Function removehtml(strText) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True removehtml = RegEx.Replace(strText, "") End Function Function textencode(str) str=server.htmlencode(str) str=replace(str,chr(32)," ") str=replace(str,chr(13)&chr(10),"
") textencode=str End Function %>
" title="<%=conn.execute("select htitle from adv where id =20")("htitle")%>" target="_blank">" width="950" height="120" border="0" />
<%rs.open "select * from company order by comm desc,id desc",conn,1,1 if rs.eof and rs.bof then response.Write "" else dim pc,page,ps rs.pagesize=24 pc=rs.pagecount page = clng(request("page")) if page<=0 then page=1 if request.querystring("page")="" then page=1 end if rs.absolutepage=page for ps=1 to rs.pagesize if rs.Eof then exit for end if %> <%if ps mod 3=0 then response.Write"" rs.movenext next end if %>
还没有上传任何信息!" target="_blank">" alt="<% = trim(rs("htitle"))%>" height="84" width="230" vspace="2" style="border-color:#cccccc" border="1" onMouseOver="this.style.filter='alpha(opacity=100)';high(this)" onmouseout="low(this)"/>
<% if page<>1 then Response.Write "第一页  " Response.write "上一页  " end if if page<>pc then Response.Write "下一页  " Response.write "最后一页  " end if response.Write "共有记录"&rs.recordcount&"条  每页"&rs.pagesize&"条  当前为第"&page&"/"&pc&"页  转到" %>
<%rs.open "select top 10 * from news order by tj desc,newsid desc",conn,1,1 do while not rs.eof%> <%rs.movenext loop rs.close%>
· .html" target="_blank" ><%=left(rs("newsname"),17)%>
<%=textencode(conn.execute("select contactindex from config where id =1")("contactindex"))%>