const.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!-- #include file="adovbs.inc" -->
<%
Dim Mycache
set myCache=new Cache
dim badwords,webname,webtitle,webcharset,webkeywords,webdescription,weburl
dim webaddr,weblogo,webemail,webtel,webzip,websetting,webbbs,webgoodsbadwords,webforbidchar,webuserbadwords
dim AspEaseAuctionDatelimiter,AspEaseAuctionDateFormat
dim SystemEmail,smtpserve,smtpuser,smtpass,password
dim foundcat,catid,founduser,founderr,foundmaster
dim user,userid,uname,upass,userip,topath,path
dim newcat,oldcat,ParentStr,iParentID,iParentstr,depth,child,AllPostTable,trs
dim fname
dim catname,CatParentStr,CatParentID,CatDepth,CatChild
Dim UserAgent,Stats,ScriptName,webnorefresh,webversion
dim webcopyright,webstopread,webid,OpenTime,pingjiatime,smtpserver
dim sql,rs,easemyshoppage
Dim rswebusergrade,id,ip,browser,actcome,actonpage
Dim rscatlist,str,i,sqlnew,rsnews
Dim name,email,sex,idcard,zip
Dim strsql,sqls,catnav,rs3,rs4,topnav
Dim pvaction,sql3,sql5,rs5,newslist
Dim date1,date2,sdate,sday,sdate1,shour,sminute,ssecond,sdate2,sdate3

Dim showallitemscat,rscatlistnav,rsnav
Dim err_msg,auc_id,auc_ItemOwner,auc_itemtitle,auc_Meansofpayment
Dim auc_Feeofdeliver,auc_buyprice,auc_CurrentBid,auc_MinimumIncrement,auc_numleft
Dim auc_Limitornot,auc_Isbuygoods,auc_CloseDate,strsqls1
Dim rss,seesql,rssee,bwords,ii
Dim rsonline,rsgrade,rs1grade,rs1gradevalue
Dim sqlselling,rsselling,sqlmsg,rsmsg,sqlt,rstt
Dim b,c,a,rs1,n,showallitemsall
Dim sbaoxiu,slimit,sfapiao,syunfei,szhifu
Dim ssonghuo,closedate,startdate,owner
Dim cmdtemp,stitle,snum,sdays,simageurl,sincrement,sreserve,sykj,soldnew
Dim scatid,sdesc,sstartbid,chks,aucid,suc_msg,ownerid,writerid
Dim user_id,chkrs,sql1,action
Dim oldpass,newpass,renewpass,verifycode
Dim pvtable,pstr,ib ,sqlnews
Dim pvwidth,sqlcurrentbid,easelimitvalue
Dim pvuserid,auction_page,msgid,reply
Dim rsaspeaseusername11,activeuser

Dim rscurbid,sqlcredit,rscredit,rseaselefttime,sqlchengjiao,rschengjiao
Dim buyerid,sellerid,rsaspeaseusername,useridcard
Dim cuser,cgrade,haoping,chaping,zhongping,credit
Dim ssql,dsql,isql,sql2,rs2,sqlb,rsb,cmd,shopID
Dim sqln,rsn,allcatlist,pjstartday,pjendday
Dim rstj1,rstj2,sqltj1,sqltj2,idrnd,idrnd2
Dim toid,fromid,content,asbuyer,stype
Dim rsauc,qu,an


UserAgent=Trim(lcase(Request.Servervariables("HTTP_USER_AGENT")))
id=replace(replace(Request.ServerVariables("REMOTE_HOST")," ",""),"'","")
ip=replace(Request.ServerVariables("REMOTE_HOST"),"'","")
browser=replace(Request.ServerVariables("HTTP_USER_AGENT"),"'","")
actcome=Request.ServerVariables("HTTP_REFERER")
ScriptName=lcase(request.ServerVariables("PATH_INFO"))
actonpage=ScriptName
If Instr(UserAgent,"teleport")>0 or Instr(UserAgent,"webzip")>0 or Instr(UserAgent,"flashget")>0 or Instr(UserAgent,"offline")>0 Then
	response.redirect "error.htm"
	response.end
end if
Foundmaster=false
FoundCat=false
Founduser=false
Founderr=false
if instr(scriptname,"cat.asp")>0 or instr(scriptname,"postitem.asp")>0 or instr(scriptname,"sell.asp")>0 then
	if request("catID")="" or (not isInteger(request("catID"))) or request("catid")="0" then
		catID=0
		Foundcat=false
	else
		catID=fval(Request("catID"))
		Foundcat=true
	end if
end if

set rs=server.createobject("adodb.recordset")
rs.open "select * from webconfig",conn,1,1
webname=rs("webname")
webtitle=rs("webtitle")
webcharset=rs("webcharset")
webkeywords=rs("webkeywords")
webdescription=rs("webdescription")
weburl=rs("weburl")
webbbs=rs("webbbs")
webaddr=rs("webaddr")
weblogo=rs("weblogo")
webemail=rs("webemail")
webtel=rs("webtel")
webzip=rs("webzip")
webcopyright=rs("webcopyright")
webversion="  Powered by：<a href=""http://www.aspease.com"" target=""_blank"">AspEase Auction System Ver2.0</a>"
webgoodsbadwords=rs("webgoodsbadwords")
webforbidchar=rs("webforbidchar")
webuserbadwords=rs("webuserbadwords")
webnorefresh=rs("webnorefresh")
webcopyright=rs("webcopyright")
webstopread=rs("webstopread")
websetting=split(rs("websetting"),",")
webid=1
'0:网站打开关闭webopenset,
'1:显示页面执行时间showtime,
'2:上传图片设置upload,
'3:商店logo上传设置shopimgupload,
'4:邮件发送开关EmailFlag:
'5,cat.asp分页大小  pjstartday,
'6:alllist.asp分页大小
'7:定时开放设置,
'8:网站开放时间opentime,|
'9:防止刷新设置,
'10:防止刷新的时间单位（秒）no refrshpage time,
'11:session timeout
'12评价最少天数 评价最多天数，用|分割
'13删除不活动用户时间（分钟）
'14上传图片大小
opentime=split(websetting(8),"|")
pingjiatime=split(websetting(12),"|")
easemycontentf="<p> &nbsp;&nbsp;如果你还没有<a href=""ShopReg.asp"">开设自己的店铺</a>，请你申请开店，可以把自己的商品拿到店上来卖<br>" & _
              "祝你每天交易愉快！当然在使用过程中有什么不懂的请给我们联系吧<br></p><p> 我们的联系电话:"& webtel & "<br> E_mail:" & webemail
AspEaseAuctionDatelimiter = Chr(35)
AspEaseAuctionDateFormat= 0  
SystemEmail=rs("webemailsender") '发邮件
smtpserver=rs("webSMTPServer")
smtpuser=rs("webemailuser")
smtpass=rs("webemailpwd")
rs.close
set rs=nothing

if Foundcat then
		set rs=conn.execute("select * from cat")		
		catname=rs("catname")		
		stats=catname
		CatParentStr=rs("ParentStr")
		CatParentID=rs("ParentID")
		CatDepth=rs("depth")
		CatChild=rs("child")				
end if
		
if fval(webSetting(9))=1 then
	Dim SplitReflashPage
	Dim DoReflashPage
	DoReflashPage=false
	if trim(webnorefresh)<>"" then
		SplitReflashPage=split(webnorefresh,"|")
		for i=0 to ubound(SplitReflashPage)
			if instr(scriptname,SplitReflashPage(i))>0 then
				DoReflashPage=true
				exit for
			end if
		next
	end if
	if (not isnull(session("ReflashTime"))) and fval(webSetting(10))>0 and DoReflashPage then
		if DateDiff("s",session("ReflashTime"),Now())<fval(webSetting(10)) then
 			response.write "<META http-equiv=Content-Type content=text/html; charset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=3>本页面起用了防刷新机制，请不要在"&webSetting(10)&"秒内连续刷新本页面<BR>正在打开页面，请稍后……"
			response.end
		else
			session("ReflashTime")=Now()
		end if
	elseif isnull(session("ReflashTime")) and fval(webSetting(10))>0 and DoReflashPage then
		Session("ReflashTime")=Now()
	end if
end if
Server.ScriptTimeOut=webSetting(11)

Rem 用户信息
dim useradmin,userregValidated,usersex,username,useremail,usertruename
dim useraddr1,useraddr2,usercountry,usercity,userstate,userzip,usercredit
dim usertel,userregtime,userhaoping,userchaping,userzhongping,usergrade,usergoods
user=session("user")
userid=session("userid")
if user<>"" and userid<>"" and isInteger(userid) then
	sql="select * from users where regid="&userid
	set rs=conn.execute(sql)
	if rs.eof and rs.bof then
		founduser=false		
	else		
		founduser=true	
		userregValidated=rs("regValidated")		
		usercountry=rs("regcountry")
		usercity=rs("regcity")
		userstate=rs("regstate")
		userregtime=rs("regtime")
		userhaoping=rs("reghaoping")
		userchaping=rs("regchaping")
		userzhongping=rs("regzhongping")
		usergrade=rs("reggrade")
		usergoods=rs("reggoods")
			if instr(scriptname,"info_change")>0 or instr(scriptname,"contact")>0 then
			useradmin=rs("regadmin")				
			usersex=rs("regsex")
			username=rs("regusername")
			useremail=rs("regemail")
			usertruename=rs("regname")
			useraddr1=rs("regaddress1")
			useraddr2=rs("regaddress2")			
			userzip=rs("regzip")
			usercredit=rs("regcredit")
			usertel=rs("regtel")
			useridcard=rs("regidcard")		
			end if
	end if
	rs.close
	set rs=nothing
else
	founduser=false
end if
if not founduser then
	userid="0"	
end if
if session("aspeaseadmin")<>"" and session("aspeaseflag")<>"" then
	foundmaster=true
else
	foundmaster=false
end if
set rswebusergrade=conn.execute("select grade_name from grade order by grade_value")
if rswebusergrade.eof then
	easelimitvalue="不限制"
else
	easelimitvalue=""
	do while not rswebusergrade.eof
		easelimitvalue=easelimitvalue&rswebusergrade(0)
		rswebusergrade.movenext
		if not rswebusergrade.eof then 
			easelimitvalue=easelimitvalue&"|"
		end if
	loop
end if
rswebusergrade.close
set rswebusergrade=nothing
%>
<!--#include file="char.asp" -->