makefile.asp

为一网站销售代码

<!--#include file="conn.asp"-->
<%
if session("loginpass")<>true then Response.Redirect "notlogin.htm"
if session("IsAdmin")<>true then Response.Redirect "notlogin1.htm"

function timename()
	dim ranNum
	randomize
	ranNum=int(90000*rnd)+10000
	timename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&".rar"
end function

dim fso,card_b,card_e,ran,foldername,path
foldername=request("foldername")
card_b=request("card_b")
card_e=request("card_e")
if card_b="" and card_e="" then
	Response.Write "<script>history.go(-1)</script>"
	Response.End
end if
path=server.MapPath ("/") & "\"&foldername
dim rs,sql
sql="select * from Card where CardId between '"&card_b&"' and '"&card_e&"'"
set rs=server.CreateObject ("adodb.recordset")
rs.Open sql,conn,3,1
if rs.EOF or rs.BOF then
	Response.Write "<script>history.go(-1)</script>"
	Response.End
end if

Set fso = CreateObject("Scripting.FileSystemObject")
if (fso.FolderExists(path)) then
	call writefile()
else
	fso.CreateFolder(path)
	call writefile()
end if

sub writefile()
	dim f,textname
	textname=timename
	Set f = fso.OpenTextFile(path&"\"&textname, 2, True)
	f.writeline "|卡号|				|密码|				|类型|"
	dim m
	for m=1 to rs.RecordCount
		if rs.EOF then exit for
		f.writeline rs("CardId")&"			"&right(rs("CardPwd"),10)&"			"&rs("CardType")
		rs.MoveNext
	next
	f.writeline ""
	f.writeline "此批卡号的总记录为："&rs.RecordCount&"张"
	rs.Close()
	set rs=nothing
	f.close
	Response.Write "已经生成文本文件，为了安全，请在下载后用FTP将其删除！<br>"
	Response.Write "请按此<a href="&"http://"&Request.ServerVariables("HTTP_HOST")&"/"&foldername&"/"&textname&">【下载】</a>到本地并把文件的扩展名改为txt即可打开"
end sub
%>