<% dim cc_id,sex cc_id=Request("cc_id") Function LoseHtml(ContentStr) Dim ClsTempLoseStr,regEx ClsTempLoseStr = Cstr(ContentStr) Set regEx = New RegExp regEx.Pattern = "]*>" regEx.IgnoreCase = True regEx.Global = True ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"") ClsTempLoseStr = Replace(ClsTempLoseStr," ","") LoseHtml = Replace(ClsTempLoseStr," ","----") End function Call OpenConn() Dim Rs,Sql,i,picurl,savefile,HtmlFileDate,dl,rs1,OtherMsg,Url,PageCount,number dim IDStr if S_userid<>"" and S_Username<>"" then sql = "Select userid,username From userinfo where userid="&S_userid&" and username='"&S_Username&"'" set rs1 = Conn.Execute(Sql) //Set rs=Server.CreateObject("ADODB.RecordSet") //rs.open Sql,Conn,1,1 if not (rs1.EOF and rs1.BOF) then dl=1 else dl=0 rs1.Close set rs1=nothing end if end if %> 中国珠宝网 - 中国最大的珠宝网站!- 58gem.com - 优乐娱乐youle168_www.youle168.com_优乐国际官方网站
") else If Not IsEmpty(request("Page")) Then PageCount = CInt(Request("Page")) Else PageCount = 1 End If rs.Pagesize=PageConst rs.AbsolutePage = Pagecount number=rs.recordcount i=0 do while not rs.eof i=i+1 %>


<% sql="select * from FCustComp order by cc_id desc" OtherMsg="" '跟随翻页的其它参数 Url=OtherMsg Const PageConst=6 '每页显示的记录 i=0 'On Error Resume Next Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql, Conn,1,1 If rs.EOF And rs.bof Then response.write("
投诉<%=rs("cc_company")%>[<%=rs("cc_status")%>]" target="_blank" title="<%=rs("cc_title")%>">查看详情

" target="_blank" title="<%=rs("cc_title")%>"><%=rs("cc_title")%>

<% rs.movenext If i >= rs.Pagesize Then Exit Do Loop %>
<%=PageList1(PageConst,number,PageCount,Url)&" "%>
<% end if %>