edit.asp

OA最新破解2008版 全新 破解 希望大家用着舒服

            src="../images/leftmanu_top1.gif" width=459></TD>
          <TD vAlign=top width=141 
          background=../images/top_nav_bg2.gif></TD>
          <TD width=28><IMG height=30 src="../images/top_nav_5.gif" 
            width=28></TD></TR></TBODY></TABLE><BR>
      <TABLE cellSpacing=0 cellPadding=0 width=578 border=0>
        <TBODY>
        <TR>
              <TD><IMG height=32 src="../images/editinfo.gif" width=578 
            border=0></TD>
            </TR></TBODY></TABLE>
<%
gsid=session("id")
sql="select * from info where gsid="&gsid&" order by dateandtime desc"
'response.write sql
set rs=server.createobject("adodb.recordset") 
rs.open sql,conn,1,1 
if rs.eof or rs.bof then 
response.write "<script language='javascript'>"
response.write "alert('您还没有发布供求信息，请发布！');"
response.write"this.location.href='add_info.asp';</SCRIPT>"
response.end
else 

msg_per_page=10 '定义每页显示记录条数
rs.pagesize=msg_per_page '定义分页记录集每页显示记录数

if not (rs.eof and rs.bof) then
	totalrec=RS.RecordCount'总记录条数
	if rs.recordcount mod msg_per_page=0 then'计算总页数,recordcount:数据的总记录数
		n=rs.recordcount\msg_per_page'n:总页数
	else
		n=rs.recordcount\msg_per_page+1                        
	end if                                                                
	currentpage=request("page")'currentpage:当前页
	If currentpage <> "" then
		currentpage =  cint(currentpage)
		if currentpage < 1 then  
			currentpage = 1
		end if  
		if err.number <> 0 then '错误处理
			err.clear
			currentpage=1
		end if
	else
		currentpage=1
	End if                                                                
	if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then 
		currentPage=1
	end if
	rs.absolutepage=currentpage'absolutepage：设置指针指向某页开头
	rowcount=rs.pagesize'pagesize：设置每一页的数据记录数
end if
%>


<TABLE border=0 cellPadding=3 cellSpacing=1 align="center">
  <TBODY>
    <TR> 
      <TD height=40>
<%
sql1="select count(info_id) from info where gsid="&gsid&""
set totle=conn.execute(sql1)
totle=totle(0)

sql2="select count(info_id) from info where gsid="&gsid&" and flag=1"
set totle2=conn.execute(sql2)
totle2=totle2(0)
response.write"<b>您总共发布了"
response.write"<font color='#ff0000'> "&totle&"</font> 条供求信息，"
response.write"已审核<font color='#ff0000'> "&totle2&"</font> 条，"
response.write"尚未通过审核<font color='#ff0000'> "&(totle-totle2)&"</font> 条。"

totle.close
set totle=nothing
totle2.close 
set totle2=nothing
%></td>
      </TR>
</TBODY>
</TABLE>
          <TABLE width="578" border="1" cellpadding="4" cellspacing="0" bordercolor="#111111" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" 退定文件夹中。\	???毎??style="border-collapse: collapse">
            <TR height=25 bgcolor="#e8f4ff"> 
              <TD align="center"><font color="#Ff6600"><b>状态</b></font></TD>
              <TD align="center" bgcolor="#e8f4ff"><font color="#Ff6600"><b>标题</b></font></TD>
              <TD align="center"><font color="#FF6600"><b>发布时间</b></font></TD>
              <TD align="center"><font color="#Ff6600"><b>类型</b></font></TD>
              <TD colspan="2" align="center"><font color="#Ff6600"><b>操作</b></font></TD>
            </TR>
            <%do while not rs.eof and rowcount > 0%>
            <TR height="20" bgcolor="#ffffff"> 
              <TD width="38" align="center"> <% if rs("flag")=1 then %> <font color="#666666">已审</font> <%else%> <font color="#FF0000">待审</font> <%end if%> </td>
              <TD width="270" align="center"><a title="<%=rs("showname")%>" <%if rs("type")="卖" then response.write"href='../../tradeinfo/info.asp?info_id="&rs("info_id")&"'" else response.write"href='../../seller/info.asp?info_id="&rs("info_id")&"'" end if%> target="_blank"><%=rs("showname")%></a></td>
              <TD width="100" align="center"> <%=rs("dateandtime")%></td>
              <TD width="50" align="center"><%=rs("type")%></td>
              <TD width="50" align="center"> <a href="edit1.asp?info_id=<%=rs("info_id")%>">修改</a></td>
              <TD width="40" align="center"><a href="del.asp?info_id=<%=rs("info_id")%>">删除</a></td>
            </TR>
<%
rowcount=rowcount-1
rs.movenext
loop
%>
          </TABLE>
<TABLE width="578" border="1" cellpadding="4" cellspacing="0" bordercolor="#111111" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" style="border-collapse: collapse">
<TR height=25 bgcolor="#e8f4ff"> <td><%call listPages()%></td></tr></table>
<BR><BR>

<%end if%>
            <BR><TABLE class=bdr1 cellSpacing=0 cellPadding=0 width="90%" 
              border=0><TBODY>
              <TR>
                <TD height=103>
                  <TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=lh13 height=91><SPAN 
                        class=M>特别提醒：</SPAN><BR><BR>
                                1、为保证信息的真实性，您发布的供求信息并不会立即在网上发布：<BR>
                                <font color=red>· 如果您是互联诚信会员，您的信息将在二小时内审核；<BR>
                                · 
                        如果您是普通会员，您的信息将在二十四小时内审核！</font><BR><BR>2、发布信息后，为保证客户及时与您联系，请确保您的联系信息（特别是电话、电子邮箱地址）准确无误。<BR><BR>3、请勿一天内重复提交相同内容的信息，否则将不被审核通过。<BR><BR></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR><BR>
    
            <BR><BR></TD></TR></TBODY></TABLE>
</TABLE>
<%
sub listPages() 
   if not (rs.eof and rs.bof) then
	gopage=currentpage
	totalpage=n
	blockPage=Int((gopage-1)/10)*10+1
	if blockPage = 1 Then
		Response.Write "<span disabled>【←前10页</span>&nbsp;&nbsp;"
	Else
		Response.Write("<span disabled>【</span><a href=edit.asp?page="&blockPage-10&">←前10页</a>&nbsp;&nbsp;")
	End If
   i=1
   Do Until i > 10 or blockPage > n
    If blockPage=int(gopage) Then
		Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
	Else
		Response.Write("<a href=edit.asp?page="&blockPage&">["&blockPage&"]</a>")
    End If
    blockPage=blockPage+1
    i = i + 1
    Loop
	if blockPage > totalpage Then
		Response.Write "&nbsp;&nbsp;<span disabled>后10页→】"
	Else
		Response.Write("&nbsp;&nbsp;<a href=edit.asp?page="&blockPage&">后10页→</a><span disabled>】")
	End If
		Response.Write("&nbsp;&nbsp;共"&n&"页 每页"&msg_per_page&"条记录 共"&totalrec&"条记录")
end if
end sub
%>
</TD></TR>
  </TABLE><IMG 
height=10 src="../images/bottom.gif" width=778><BR>
<!--#include file="../end.asp"-->
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>