data.asp

网页源码,是最好的网店代码。可以支持批量上传产品等功能。

end sub

sub allmail

dim sendemail,jmail,content,mailtitle,mailcontent,mailusertype,a,sql,b
mailtitle=yxbbs.fun.getstr("mailtitle")
mailcontent=yxbbs.fun.getstr("mailcontent")
mailusertype=yxbbs.fun.getstr("mailusertype")

b=""
if mailusertype=0 then
a=""
else
a=" where classid<=3"
end if
 set rs=server.CreateObject("adodb.recordset")
 sql="select mail from Yx_user "&a&""
 rs.open sql,conn,1,1 
 do while not rs.eof
                        sendemail=rs(0)		
			Set JMail = Server.CreateObject("Jmail.Message")
			JMail.From = ""&YxBBs.BBSSetting(20)&""   '来自哪果发送
			JMail.CharSet = "GB2312"
			JMail.Priority = 3
			JMail.ReplyTo = ""&YxBBs.BBSSetting(20)&"" '回复email
			JMail.AddRecipient sendemail
			JMail.Subject = mailtitle
			content=content & mailcontent
			JMail.AppendHTML content
			JMail.MailServerusername = ""&YxBBs.BBSSetting(20)&""    '服务邮箱地址
			JMail.MailServerPassword = ""&YxBBs.BBSSetting(21)&""   '服务邮箱密码.
			JMail.Send (""&YxBBs.BBSSetting(9)&"")
			
rs.movenext
	loop
call suc("","成功的群发了邮件!","?action=allsms")
end sub

sub exeallsms
	dim smstitle,smscontent,usertype,sql,mrs,i
	smstitle=yxbbs.fun.getstr("title")
	smscontent=yxbbs.fun.getstr("content")
	usertype=yxbbs.fun.getstr("user")
	if smstitle="" or smscontent="" then call goback("",""):exit sub
	select case usertype
		case"0"
			sql="select name from [yx_online] where classid<>6"
		case"1"
			sql="select name from [yx_user]"
		case"2"
			sql="select name from [yx_user] where classid=3"
		case"3"
			sql="select name from [yx_user] where classid=2"
		case"4"
			sql="select name from [yx_user] where classid=1"
		case"5"
			sql="select name from [yx_user] where classid<=3"
		case else
			call goback("","非法操作"):exit sub
	end select
	set rs=yxbbs.execute(sql)
	if not rs.eof then
	mrs=rs.getrows(-1)
	rs.close
	for i=0 to ubound(mrs,2)
	yxbbs.execute("insert into [yx_sms](name,myname,title,content) values('系统消息','"&mrs(0,i)&"','"&smstitle&"','"&smscontent&"')")
	yxbbs.execute("update [yx_user] set newsmsnum=newsmsnum+1,smssize=smssize+"&len(smscontent)&" where name='"&mrs(0,i)&"'")
	next
	end if
	call suc("","成功的群发了信件!","?action=allsms")
end sub

sub uploadhead
call showtable("上传文件管理","<center><a href=?action=uploadfile>管理上传记录</a> |  <a href=?action=delnouse>清理无用上传文件</a> | <a href=?action=delnovisit>清理没有访问的文件</a> | <a href=?action=deluphalfyear>批量清理上传文件</a></center>")
end sub

sub uploadfile
	dim intpagenow,arr_rs,i,pages,conut,page,strpageinfo
	response.write"<form name='yimxu' method='post' action='?action=deloptfile'>"
	%>
        <div class="ta">
	 <div class="th jz">用户文件上传记录</div>
<div class="td3 jz w50">选择</div>
<div class="td3 jz w219">上传的文件</div>
<div class="td3 jz w152">上传用户</div>
<div class="td3 jz w161">上传日期</div>
<div class="td3 jz w152">大小</div>


	<%
	intpagenow = request.querystring("page")
	set pages = new cls_pageview
	pages.strfieldslist = "fileid,filename,username,filetype,filesize,uptime"
	pages.strtablename = "[yx_upfile]"
	pages.strprimarykey = "fileid"
	pages.strorderlist = "fileid desc"
	pages.intpagesize = 25
	pages.intpagenow = intpagenow
	pages.strcookiesname = "upfile"'cookies名称
	pages.reloadtime=3'cookies有效分钟
	pages.strpagevar = "action=uploadfile&page"
	pages.initclass
	arr_rs = pages.arrrecordinfo
	strpageinfo = pages.strpageinfo
	set pages = nothing
	if isarray(arr_rs) then
	for i = 0 to ubound(arr_rs, 2)
	%>
<div class="td3 jz h20 w50"><input type="checkbox" name="filename" value=<%=arr_rs(1,i)%>></div>
<div class="td3 jz h20 w219"><a href="../uploadfile/topicfile/<%=arr_rs(1,i)%>" target=_blank><%=arr_rs(1,i)%></a></div>
<div class="td3 jz h20 w152"><%=arr_rs(2,i)%></div>
<div class="td3 jz h20 w161"><%=arr_rs(5,i)%></div>
<div class="td3 jz h20 w152"><%=arr_rs(4,i)%></div>

	
	<%
	next
	else
	response.write"<div class=""td3 w772"">没有上传文件的记录</div>"
	end if
	%>
<div style='clear: both;'></div><div class="td w772"><input type=checkbox name=chkall value=on onclick="checkall(this.form)"> 全选&nbsp;&nbsp;<input type="submit"  value="删除所选" onclick=checkclick('删除后将不能恢复！您确定要删除吗？')> </div>
<div style='clear: both;'></div><div class="tf jz"><%=strpageinfo%></div>
</div></form><%
end sub

sub notfso
	if session(yxbbs.cachename&"fso")="no" then
		call goback("","空间不支持fso文件读写。无法进入下一步。")
		call adminfooter()
		response.end
	end if
end sub

'记取帖子数据
sub delnouse
	call logintxt("正在读取数据")
	dim alltable,i,temp
	temp=""
	alltable=split(yxbbs.bbstable(0),",")
	for i=0 to ubound(alltable)
    set rs=yxbbs.execute("select content from [yx_bbs"&alltable(i)&"]")
	do while not rs.eof
	temp=temp&filelist(rs(0))
    rs.movenext
	loop
	rs.close
	next
	call showtable("开始清理无效文件","<form method=post action='?action=delall'><input name='files' type='hidden' value='"&temp&"'> 说明：此操作将删除没有在帖子上连接的无用文件。<br /><input name='go' type='radio' value='move' checked=""true""> 移动到<font color=red>"&del&"</font>目录中（建议，为防止误删除，查看无错后再删除这个目录即可）<br /><input name='go' type='radio' value='del'> 直接从空间删除 <hr><input value=' 确 定 ' type=submit></form><script>abc.style.visibility = ""hidden"";</script>")
end sub

rem #核心函数(2005-5-27)
function filelist(str)
	dim re,test,temp
	dim loopcount
	set re=new regexp
	re.ignorecase =true
	re.global=true
	loopcount=0
	str = replace(str, chr(10), "")
	do while true
		re.pattern="\[upload=(.[^\[]*)\]"
		test=re.test(str)
		if test then
			re.pattern="\[\/upload\]"
			test=re.test(str)
			if test then
				re.pattern="(^.*)\[upload=(.[^\[]*)\](.[^\[]*)\[\/upload\](.*)"
				temp=temp&re.replace(str,"$3")&","
				str=re.replace(str,"$1$4")
			else
				exit do
			end if 
		else
			exit do
		end if
		loopcount=loopcount + 1
		if loopcount>40 then exit do'防止死循环
	loop
	set re=nothing
	filelist=temp
end function

sub logintxt(txt)
%>
<%
response.write"<div id=abc><br /><br />"&txt&"，请稍候。。。</div>"
response.flush
end sub
'清理没有访问的文件
sub delnovisit
	dim go,deltime,fso,folder,files,upname
	go=request.form("go")
	deltime=request.form("deltime")
	if go="" and deltime="" then
	response.write"<form method=post>"
		call showtable("清理多少天以前没有访问的上传文件","<input name='go' type='radio' value='move' checked=""true""> 移动到<font color=red>"&del&"</font>目录中（为防止误删除，查看无错后再删除这个目录即可）<br /><input name='go' type='radio' value='del'> 直接从空间删除 <hr>清理在<input name='deltime' size=4 type='text' value='60'>天以前没有访问的上传文件 <input value=' 确 定 ' type=submit></form>")
	else
		if not isnumeric(deltime) then call goback("","天数必需用数字填写！"):exit sub
		call logintxt("正在处理文件")
		set fso=server.createobject("scripting.filesystemobject")
		if not fso.folderexists(server.mappath(del)) then fso.createfolder(server.mappath(del))
		set folder=fso.getfolder(server.mappath(topicfile))
		set files=folder.files
		for each upname in files
			if datediff("d",upname.datelastaccessed,now)>deltime then
			if go="move" then
				fso.movefile server.mappath(topicfile&upname.name),server.mappath(del&upname.name)
			else
				fso.deletefile(server.mappath(topicfile&upname.name))
			end if
			end if
		next
		set folder=nothing
		set files=nothing
		set fso=nothing
		response.write"<script>abc.style.visibility = ""hidden"";</script>"
		if go="move" then
			call suc("","超过"&deltime&"天以前没有访问的文件已经被转移至"&del&"目录下 !","?action=uploadfile")
		else
			call suc("","超过"&deltime&"天以前没有访问的文件已经删除 !","?action=uploadfile")
		end if
	end if
end sub

'批量清理
sub deluphalfyear
	dim go,deltime,fso,folder,files,upname
	go=request.form("go")
	deltime=request.form("deltime")
	if go="" and deltime="" then
		response.write"<form method=post>"
		call showtable("批量清理多少天以前上传的文件","<input name='go' type='radio' value='move' checked=""true""> 移动到<font color=red>"&del&"</font>目录中（为防止误删除，查看无错后再删除这个目录即可）<br /><input name='go' type='radio' value='del'> 直接从空间删除 <hr>清理在<input name='deltime' type='text' size=4 value='180'>天以前上传的文件 <input value=' 确 定 ' type=submit></form>")
	else
		if not isnumeric(deltime) then call goback("","天数必需用数字填写！"):exit sub
		call logintxt("正在处理文件")
	set fso=server.createobject("scripting.filesystemobject")
	if not fso.folderexists(server.mappath(del)) then fso.createfolder(server.mappath(del))
	set folder=fso.getfolder(server.mappath(topicfile))
	set files=folder.files
	for each upname in files
		if datediff("d",upname.datecreated,now)>deltime then
		if go="move" then
			fso.movefile server.mappath(topicfile&upname.name),server.mappath(del&upname.name)
		else
			fso.deletefile(server.mappath(topicfile&upname.name))
		end if
		end if
	next
	set folder=nothing
	set files=nothing
	set fso=nothing
	response.write"<script>abc.style.visibility = ""hidden"";</script>"
	if go="move" then
	call suc("","在"&deltime&"天以前上传的文件已经被转移至"&del&"目录下 !","?action=uploadfile")
	else
	call suc("","在"&deltime&"天以前上传的文件已经删除！","?action=uploadfile")
	end if
	end if
end sub

'删除所选
sub deloptfile
	dim filename,fso,folder,files,upname,temp,i
	filename=request("filename")
	if filename="" then call goback("","请先选择项目。"):exit sub
	temp=split(filename,",")
	for i=0 to ubound(temp)	
		yxbbs.execute("delete * from [yx_upfile] where filename='"&trim(temp(i))&"'")
	next
    set fso = server.createobject("scripting.filesystemobject")
	set folder=fso.getfolder(server.mappath(topicfile))
	set files=folder.files
	for each upname in files
	if instr(filename,upname.name)>0 then
        fso.deletefile(server.mappath(topicfile&upname.name))
	end if
	next
	set folder=nothing
	set files=nothing
	set fso=nothing
	call suc("","成功删除了所选的文件。","?action=uploadfile")
end sub

'清除无用
sub delall
	call logintxt("正在处理文件")
	dim fso,folder,files,upname,bbsfiles,go
	bbsfiles=request.form("files")
	go=request.form("go")