cretall.asp

整站源码jsp 有兴趣的可以看看

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->

<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：[e-mail]
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************

Dim CretClass,CountCret
	IF int(Web_Const(86))=0 THEN
        error_title="对不起，评论已关闭！"
        Call Page_check(3,0)
	End IF
    Class_Name="评论列表 > "
    Set Rs_Manage=server.Createobject("Adodb.Recordset")
    Sql="Select * from Tx_Cret where Cret_Class=" & bId & " And Cret_Flag=1 And Cret_ClassId=" & Id & " order by Cret_Date desc"
    Rs_Manage.open Sql,Conn,1,1
	IF bId=1 THEN
        Set Rs_p=server.Createobject("Adodb.Recordset")
        Sql="Select * from CS_Products where Products_Id=" & Id
        Rs_p.open Sql,Conn,1,1
            Class_Name=Class_Name & "<A HREF=Prclass.asp>产品</A> > <A HREF=Products.asp?Id=" & Rs_p("Products_Id") & ">" & Rs_p("Products_Name") & "</A>"
		    CretClass=Rs_p("Products_Name")
		Rs_p.Close
		Set Rs_p=Nothing
		CountCret=ProductsMax_Cret
	End IF
	IF bId=2 THEN
        Set Rs_p=server.Createobject("Adodb.Recordset")
        Sql="Select * from Tx_News where News_Id=" & Id
        Rs_p.open Sql,Conn,1,1
            Class_Name=Class_Name & "<A HREF=Neclass.asp>新闻</A> > <A HREF=News.asp?Id=" & Rs_p("News_Id") & ">" & Rs_p("News_Title") & "</A>"
		    CretClass=Rs_p("News_Title")
		Rs_p.Close
		Set Rs_p=Nothing
		CountCret=NewsMax_Cret
	End IF
	IF bId=3 THEN
        Set Rs_p=server.Createobject("Adodb.Recordset")
        Sql="Select * from Tx_Down where Down_Id=" & Id
        Rs_p.open Sql,Conn,1,1
            Class_Name=Class_Name & "<A HREF=Doclass.asp>软件</A> > <A HREF=Down.asp?Id=" & Rs_p("Down_Id") & ">" & Rs_p("Down_Name") & "</A>"
		    CretClass=Rs_p("Down_Name")
		Rs_p.Close
		Set Rs_p=Nothing
		CountCret=DownloadMax_Cret
	End IF
	IF bId>3 OR bId<1 THEN Call Page_check(2,0)
        Page_Name="评论列表 -- " & Web_Const(0)
        Call Page_Head()
        Call Page_iHead()
        Call Page_nHead()
    %>
	<table width="990" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="321" valign="bottom" bgcolor="#082421"><span>
          <%Call Page_Login()%>
        </span><img src="Skins/blak/leftad.jpg" width="321" /></td>
        <td valign="top"><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td valign="top" class="TABLE-Main"><div class="page-head">评论列表</div>
                <div class="TABLE-Mainall">
                  <div style="padding-top: 10px;"><b>评论对像：<%=CretClass%></b></div>
                  <%
				Response.Write "<DIV STYLE='text-align: right;height: 30px;'><a onClick=" & CHR(34) & "javascript:window.open('Cret.asp?bId=" & bId & "&Id=" & Id & "','news','width=512,height=277,top=300,left=260,scrollbars=yes');return false;" & CHR(34) & " href=''><IMG SRC=Skins/Blue/add_cret.gif BORDER=0></A></DIV><DIV CLASS=type-height2></DIV>"
                Page_Nexterror=4
                Rs_Manage.PageSize = CountCret
                totalrec=Rs_Manage.RecordCount 
                iPageSize=Rs_Manage.PageSize
                currentPage=request("page")
                IF currentpage="" THEN
                    currentpage=1
                Else
                    IF Not isChkInteger(currentPage) THEN response.Redirect "javascript:history.go(-1);"
                    currentpage=clng(currentpage)
                End IF
                IF totalrec Mod Cint(iPageSize)=0 THEN
                    n= totalrec \ Cint(iPageSize)
                Else
                    n= totalrec \ Cint(iPageSize)+1
                End IF
                IF not (Rs_Manage.bof And Rs_Manage.eof) THEN
                    Rs_Manage.MoveFirst
                    IF currentpage > n THEN currentpage = n
                    IF currentpage<1 THEN currentpage=1
                    Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
                    While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
                        page_count=page_count+1
                        Response.Write "<DIV CLASS=cret-name><SPAN STYLE='width:72%;'><B>" & Rs_Manage("Cret_AddName") & "</B>发表于" & YearDami(Rs_Manage("Cret_Date")) & "：</SPAN><SPAN STYLE='width:28%;'><IMG SRC=" & Rs_Manage("Cret_Lin") & "></SPAN></DIV><DIV CLASS=cret-content>" & Rs_Manage("Cret_Content") & "</DIV><DIV CLASS=type-height2></DIV>"
                    Rs_Manage.MoveNext
                    Wend 
                End IF
            Rs_Manage.Close
            Set Rs_Manage=Nothing
            Call Page_Next()
			%>
              </div></td>
            <td width="5"></td>
            <td width="195" align="center" valign="top" class="TABLE-Side"><%
			IF bId=1 THEN
			%>
                <div class='TABLE-side1'><span class="type-color1">产品搜索</span></div>
              <div class='TABLE-side3'>
                <%Call page_Search("Products")%>
              </div>
              <div class='TABLE-side1'><span class="type-color1">订单搜索</span></div>
              <div class='TABLE-side3'>
                <%Call page_Search("ShopCode")%>
              </div>
              <%
			End IF
			IF bId=2 THEN
			%>
                <div class='TABLE-side1'><span class="type-color1">新闻搜索</span></div>
              <div class='TABLE-side3'>
                <%Call page_Search("News")%>
              </div>
              <div class='TABLE-side1'><span class="type-color1">订单搜索</span></div>
              <div class='TABLE-side3'>
                <%Call page_Search("ShopCode")%>
              </div>
              <%
			End IF
			IF bId=3 THEN
			%>
                <div class='TABLE-side1'><span class="type-color1">软件搜索</span></div>
              <div class='TABLE-side3'>
                <%Call page_Search("Down")%>
              </div>
              <div class='TABLE-side1'><span class="type-color1">订单搜索</span></div>
              <div class='TABLE-side3'>
                <%Call page_Search("ShopCode")%>
              </div>
              <%
			End IF
			%>
            </td>
          </tr>
        </table></td>
      </tr>
    </table>
	<%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>