images.asp

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

<!--#include file="../conn.asp"-->
<!--#include file="../inc/const.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<%

dim rs,sql,userface,emot
dim imgNum,imgUrl,imgName,imgFiles,imgFileName
dim newImgFileName,newImgNum
select case request("folder")
	case "face"
		anysale.chkAdmin ",20,","娉ㄥ唽澶村儚绠＄悊"
		
		set rs=conn.execute("select userface from as_config")
		if not rs.eof then userface=rs(0) end if
		rs.close:set rs=nothing
		userface=split(userface,"@@@")
			
		if not isarray(userface(0)) then
			imgUrl="images/userface/"
		else
			imgUrl=userface(0)
		end if
		imgFiles=split(userface(1),"|||")
		imgNum=UBound(imgFiles)
		imgName="鐢ㄦ埛娉ㄥ唽澶村儚"
		imgFileName="face"
	case "emot"
		anysale.chkAdmin ",21,","绯荤粺琛ㄦ儏绠＄悊"
		
		set rs=conn.execute("select emot from as_config")
		if not rs.eof then emot=rs(0) end if
		rs.close:set rs=nothing
		emot=split(emot,"@@@")	
		
		if not isarray(emot(0)) then
			imgUrl="images/emot/"
		else
			imgUrl=emot(0)
		end if
		imgFiles=split(emot(1),"|||")
		imgNum=UBound(imgFiles)
		imgName="蹇冩儏琛ㄦ儏鍥剧墖"
		imgFileName="emot"
end select

if trim(request("newImgFileName"))<>"" then
	newImgFileName=trim(request("newImgFileName"))
else
	newImgFileName=imgFileName
end if 
if request("newImgNum")<>"" and request("newImgNum")<>0 then
	newImgNum=request("newImgNum")
else
	newImgNum=0
end if

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

sub main()
dim i
%>
<div id="<%=imgFileName%>">
<!--<%=imgFileName%>-->
<form name="<%=imgFileName%>Form" id="<%=imgFileName%>Form" method="post">
 <div class="subNav"><ul><li>&nbsp;</li></ul></div>

 <div class="list contentLarge" id="<%=imgFileName%>List">
  <!----> 
  <ul>
   <li class="check">&nbsp;</li>
   <li class="name txtRig">褰撳墠椋庢牸锛