style.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

<!--#include file="../conn.asp"-->
<!--#include file="../inc/const.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<%
anysale.chkUser()
dim myStyle
myStyle=anysale.getValue("as_user","myStyle","userID="&anysale.userID)
myStyle=split(myStyle,"|||")

select case request("action")
	case "saveEdit"
		call saveEdit()
	case "banner"
		call banner()
	case "saveBanner"
		call saveEdit()
	case else
		call main()
end select

sub main()
%>
<div id="style">
<!--style-->
<form name="styleForm" id="styleForm" method="post">
<%
dim rs,sql,page,ipage
page = clng(request("page"))
if page="" or page<1 then page=1 end if
set rs=server.createobject("adodb.recordset")
if cint(anysale.userTrust)=1 then
	sql="select * from as_style order by istrust desc,orders,styleID desc"
else
	sql="select * from as_style where istrust=0 order by istrust desc,orders,styleID desc"
end if
rs.open sql,conn,1,1
if not rs.eof then
	rs.pageSize = 30
	if page>rs.pageCount then page=rs.pageCount end if
	rs.absolutePage = page
end if
%>
<div class="subNav">
 <div class="right">
  <ul><li>
   鍏