productmanage.asp

只要会打字就可以做网站

<%@language=vbscript codepage=936 %>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="../Inc/Ubbcode.asp"-->
<!--#include file="Inc/Function.asp"-->

<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="862" align="center" valign="top"> <br>
      <b> </b> 
      <p align="center"><strong>2ú 
        ?· 1ü àí</strong></p>
      <table width="620" border="0" align="center" cellpadding="5" cellspacing="2" class="border">
        <tr class="title"> 
          <td bgcolor="A4B6D7" height="25">|&nbsp; 

          </td>
        </tr>
        <%
if BigClassName<>"" then
	sqlSmallClass="select * from SmallClass where BigClassName='" & BigClassName & "'"
	Set rsSmallClass= Server.CreateObject("ADODB.Recordset")
	rsSmallClass.open sqlSmallClass,conn,1,1
	if not (rsSmallClass.bof and rsSmallClass.eof) then
		response.write "<tr class='tdbg'><td bgcolor='#C0C0C0'>"
		do while not rsSmallClass.eof
			if rsSmallClass("SmallClassName")=SmallClassName then
				response.Write("&nbsp;<a href='ProductManage.asp?BigClassName=" & rsSmallClass("BigClassName") & "&SmallClassName=" & rsSmallClass("SmallClassName") & "'><font color='red'>" & rsSmallClass("SmallClassName") & "</font></a>&nbsp;&nbsp;")
				if session("purview")=4 then
					strAdmin=rsSmallClass("Admin")
					if Instr(strAdmin,"|")>0 then
						arrAdmin=split(strAdmin)
						for i=0 to ubound(arrAdmin)
							if trim(arrAdmin(i))=session("admin") then
								PurviewChecked=True
								exit for
							end if
						next
					else
						if trim(strAdmin)=session("Admin") then
							PurviewChecked=True
						end if
					end if
				end if
			else
				response.Write("&nbsp;<a href='ProductManage.asp?BigClassName=" & rsSmallClass("BigClassName") & "&SmallClassName=" & rsSmallClass("SmallClassName") & "'>" & rsSmallClass("SmallClassName") & "</a>&nbsp;&nbsp;")
			end if
			rsSmallClass.movenext
		loop
		response.write "</td></tr>"
	end if
	rsSmallClass.close
	set rsSmallClass=nothing
end if
%>
      </table>
      <form name="del" method="Post" action="ProductDel.asp" onsubmit="return ConfirmDel();">
        <table width="620" border="0" cellpadding="0" cellspacing="2">
          <tr bgcolor="A4B6D7"> 
            <td height="25"><a href="ProductManage.asp">&nbsp;2ú?·1üàí</a> &gt;&gt; 
              <%
if request.querystring="" then
	response.write "?ùóD2ú?·"
else
	if request("Query")<>"" then
		if Title<>"" then
			response.write "??3??Do?óD?°<font color=blue>" & Title & "</font>?±μ?2ú?·"
		else
			response.Write("?ùóD2ú?·")
		end if
 	else
		if BigClassName<>"" then
			response.write "<a href='ProductManage.asp?BigClassName=" & BigClassName & "'>" & BigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
			if SmallClassName<>"" then
				response.write "<a href='ProductManage.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "'>" & SmallClassName & "</a>"
			else
				response.write "?ùóDD?àà"
			end if
		end if
		if SpecialName<>"" then
			response.write "<font color=red>[רìa]</font> " & SpecialName
		end if
	end if
end if
%>
            </td>
            <td width="150">&nbsp; 
              <%
  	if rs.eof and rs.bof then
		response.write "12?òμ? 0 ??2ú?·</td></tr></table>"
	else
    	totalPut=rs.recordcount
		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
		response.Write "12?òμ? " & totalPut & " ??2ú?·"
%> </td>
          </tr>
        </table>
        <%		
	    if currentPage=1 then
        	showContent
        	showpage strFileName,totalput,MaxPerPage,true,false,"??2ú?·"
   	 	else
   	     	if (currentPage-1)*MaxPerPage<totalPut then
         	   	rs.move  (currentPage-1)*MaxPerPage
         		dim bookmark
           		bookmark=rs.bookmark
            	showContent
            	showpage strFileName,totalput,MaxPerPage,true,false,"??2ú?·"
        	else
	        	currentPage=1
           		showContent
           		showpage strFileName,totalput,MaxPerPage,true,false,"??2ú?·"
	    	end if
		end if
	end if
%>
        <%  
sub showContent
   	dim i
    i=0
%>
        <table class="border" border="0" cellspacing="2" width="620" cellpadding="0" style="word-break:break-all">
          <tr bgcolor="A4B6D7" class="title"> 
            <td width="47" height="25" align="center"><strong>???D</strong></td>
            <td width="28"  height="25" align="center"><strong>ID</strong></td>
            <td width="82" align="center"><strong>2ú?·±ào?</strong></td>
            <td width="231" align="center" bgcolor="#A4B6D7" ><strong>2ú?·??3?</strong></td>
            <td width="68" align="center" ><strong>?óè?ê±??</strong></td>
            <td width="68" align="center" ><strong>éóo??é??</strong></td>
            <td width="80" align="center" ><strong>2ù×÷</strong></td>
          </tr>
          <%do while not rs.eof%>
          <tr class="tdbg"> 
            <td width="47" height="22" align="center" bgcolor="#A4B6D7"> 
              <input name='ArticleID' type='checkbox' onclick="unselectall()" id="ArticleID" value='<%=cstr(rs("articleID"))%>'>
            </td>
            <td width="28" align="center" bgcolor="#ECF5FF"><%=rs("articleid")%></td>
            <td width="82" align="center" bgcolor="#ECF5FF"><%=rs("Product_Id")%></td>
            <td bgcolor="#ECF5FF">&nbsp;<a href="../ProductShow.asp?ArticleID=<%=rs("articleid")%>" target="_blank"><%=rs("title")%></a></td>
            <td width="68" align="center" bgcolor="#ECF5FF"><%= FormatDateTime(rs("UpdateTime"),2) %></td>
            <td width="68" align="center" bgcolor="#ECF5FF"> 
              <%if rs("Passed")=true then%>
              ò?éóo? 
              <%else%> <font color="#FF0000">?′éóo?</font> <%end if%> </td>
            <td width="80" align="center" bgcolor="#ECF5FF"> <a href="ProductModify.asp?ArticleID=<%=rs("articleid")%>">DT??</a> 
              <a href="ProductDel.asp?ArticleID=<%=rs("ArticleID")%>&Action=Del" onclick="return ConfirmDel();">é?3y</a> 
            </td>
          </tr>
          <%
	i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	loop
%>
        </table>
        <table width="620" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="250" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
              ???D±?ò3??ê?μ??ùóD2ú?·</td>
            <td><input name="submit" type='submit' value='é?3y???¨μ?2ú?·' <%if session("purview")>=3 and session("purview")<=4 and PurviewChecked=False then response.write "disabled"%>> 
              <input name="Action" type="hidden" id="Action" value="Del"></td>
          </tr>
        </table>
        <%
   end sub 
%>
      </form>
      <br> <table width="620" border="0" cellpadding="0" cellspacing="0" class="border">
        <tr class="tdbg"> 
          <form name="searchsoft" method="get" action="ProductManage.asp">
            <td height="30"> <strong>2é?ò2ú?·￡o</strong> <input name="Title" type="text" class=smallInput id="Title3" size="20" maxlength="50"> 
              <input name="Query" type="submit" id="Query" value="2é ?ˉ"> &nbsp;&nbsp;??ê?è?2ú?·??3??￡è?1??a??￡??ò2é?ò?ùóD2ú?·?￡</td>
          </form>
        </tr>
      </table></td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
<%
rs.close
set rs=nothing  
call CloseConn()
%>