makecard1.asp

为一网站销售代码

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

dim CardType,Cardbegin,Cardend,letter,bitnum
CardType=request("type")
Cardbegin=request("begin")
Cardend=request("end")
letter=request("letter")
bitnum=request("bitnum")
if Cardbegin="" or Cardend="" or letter="" or bitnum="" then Response.Redirect "makecard.asp"
dim i,tempd,CardId,CardPwd
tempd=cint(Cardend)-cint(Cardbegin)
bitnum=cint(bitnum)-len(letter)
for i=0 to tempd
	CardId=markcard(Cardbegin,letter,bitnum)
	CardPwd=Encrypt(markpwd())
	on error resume next
	conn.execute("insert into Card(CardId,CardPwd,CardType) values('"&CardId&"','"&CardPwd&"','"&CardType&"')")
	Cardbegin=Cardbegin+1
next
	if err.number <> 0 then
		Response.Write "错误行数：" & err.number & "<br>"
		Response.Write "错误文件：" & err.Source & "<br>"
		Response.Write "错误信息：" & err.Description
		Response.End
	else
		Response.Write "已经成功生成"&CardType&"类型的卡"&tempd+1&"张！"
	end if
%>