📄 char.asp
字号:
<%sub header()
response.buffer=true
if fval(websetting(0))=0 then
response.write webstopread
response.end
end if
if not foundmaster then
if fval(webSetting(7))=1 and ubound(OpenTime)=1 then
if IsNumeric(OpenTime(0)) and IsNumeric(OpenTime(1)) then
if Hour(Now)<fval(OpenTime(0)) or Hour(Now)>fval(OpenTime(1)) then
response.write easeopenstrstart & "<B>"&OpenTime(0)&"</B>-<B>"&OpenTime(1)&"</B>"& easeopenstrend
response.end
end if
end if
end if
end if
response.Write("<HTML><HEAD><TITLE>" & server.htmlencode(webtitle) & "--" & server.htmlencode(stats) & "</TITLE> ")
response.Write("<META http-equiv=Content-Type content=""text/html; charset=" & webcharset &""">")
response.Write("<META name=""keywords"" content=""" & webkeywords & """>")
response.Write("<META name=""description"" content=""" & webdescription & """>")
response.Write("<BASE onmouseover=""window.status='" & easestatus & "';return true"">")
%><!-- #include file="aspeasestyle.asp" --><%
response.Write("</HEAD><BODY topmargin=""3"" leftmargin=""3""><a name=""top""></a>")
response.Write(aspeasetableopen)
response.Write("<tr><td width=""234"" rowspan=""3"" valign=""middle"" align=""left""><a href=""" & weburl & """>")
response.Write("<img src=""images/logo.gif"" width=""234"" height=""60"" border=""0""></a></td></tr>")
response.Write("<tr><td width=""526"" align=""right"" valign=""bottom"">")
response.Write(" <table width=""100%"" border=""0"" align=""right"">")
response.Write(" <tr><td width=""28%"" align=""right""></td>")
response.Write(" <td width=""72%"" align=""right""> <a href=""" & weburl & """>")
response.Write("<font color=""#FF0000"">" & easemenu0 & "</font>")
response.Write("</a> <a href=""s1.asp"">" & easemenu1)
response.Write("</a> <a href=""shop.asp"">" & easemenu2)
response.Write("</a> <a href=""reg.asp"">" & easemenu3)
response.Write("</a> ")
if user<>"" then
response.Write(" <a href=""logout.asp"">" & easemenulougou & "</a>")
else
response.Write(" <a href=""login.asp?path=" & server.urlencode(Request.ServerVariables("PATH_INFO")) &""">" & easemenu4 & "</a>")
end if
response.Write("<a href="""" class=""main3""> " & easemenu5)
if user="" then response.write easeguest else response.write user end if
response.Write("</a></td></tr>")
response.Write(" </table>")
response.Write("</td></tr>")
response.Write("<tr><td valign=""bottom"" align=""left"" style=""padding-left:10px""> ")
response.Write(" <table height=""15"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""464"" background=""images/navbar.gif"">")
response.Write(" <tr align=""center"" class=b1> ")
response.Write(" <td height=""24"" width=""92""><a href=""browse.asp"">" & easemenubuy & "</a></td>")
response.Write(" <td height=""24"" width=""92""><a href=""sell.asp"">" & easemenusell & "</a></td>")
response.Write(" <td height=""24"" width=""92""><a href=""my.asp"">" & easemenumy & "</a></td>")
response.Write(" <td height=""24"" width=""92""><a href=""bbs"">" & easemenubbs & "</a></td>")
response.Write(" <td height=""24"" width=""94""><a href=""help.asp"">" & easemenuhelp & "</a></td>")
response.Write(" </tr> ")
response.Write(" </table> ")
response.Write(" </td>")
response.Write(" </tr>")
response.Write("</table> ")
response.Write("<hr noShade color=""#CCCCCC"" height=1 size=1 width=""760"" align=""center"">")
response.Write(aspeasetableopen & "<tr><td><marquee behavior=""alternate"" direction=""left"" onMouseMove=""this.stop()"" onMouseOut=""this.start()"">")
response.Write(easetopmovenews)
response.Write("</marquee></td></tr></table>")
end sub
sub footer()
endtime=timer()
response.Write("<hr align=""center"" width=""760"" size=1 noShade color=""#CCCCCC"">")
response.Write(aspeasetableopen & "<tr><td width=""754"" align=""center""> ")
response.Write(Addrstr&": "&webaddr& " "&Telstr&": "& webtel &" "&E_mailstr&": <a href=mailto:"&webemail&">"&webemail&"</a><br>"&webversion&"<br>")
response.Write(webcopyright & " ")
if fval(websetting(1))=1 then
response.write easeshowtimesetvalue & FormatNumber((endtime-startime)*1000,3) & easeshowtimems
end if
response.write("</td></tr></table></body></html>")
conn.close
set conn=nothing
set mycache=nothing
end sub
sub admheader
if not(session("aspeaseadmin")<>"" and session("aspeaseflag")<>"") then
response.redirect(admerrpage)
response.end
else
response.Write("<html><head>")
response.Write("<title>" & webname & "--" &easeadmstats & "</title>")
response.Write("<link href=""admin.css"" rel=""stylesheet"" type=""text/css"">")
response.Write("<meta http-equiv=""Author"" content=""liuzhaozhao"">")
response.Write("</head>")
response.Write("<BODY leftmargin=""0"" bottommargin=""0"" rightmargin=""0"" topmargin=""0"" marginheight=""0"" marginwidth=""0"" bgcolor=""#DDEEFF"">")
end if
end sub
sub admfooter
conn.close
set conn=nothing
set mycache=nothing
end sub
sub aspease_suc()
response.Write(aspeasetable01open&"<TR align=center><th><b>" & easesucmsgname & "</b></th></TR><TR><TD id=bg12> " & suc_msg & "</TD></TR>"&aspeasetableclose)
end sub
sub aspease_err()
response.Write(aspeasetable01open&"<TR align=""center""><th><b>" & easeerrmsgname & "</b></th></TR><TR><TD id=bg12> " & err_msg & "</TD></TR><tr align=""center""><td id=bg12><a href=""javascript:history.back();"">" & easegobackpage & "</a></td></tr>"&aspeasetableclose)
end sub
sub showdate(f1,f2,f3,f4,f5)
response.write "<select name="&f5&">"
for i=f1 to f2 step f3
response.write "<option "
if i=f4 then response.write "selected "
response.write "value="&i&">"&i
next
response.write "</select>"
end sub
sub navigation
response.Write(aspeasetable1yopen)
response.Write(" <tr align=""left""> ")
response.Write(" <th width=""760"" height=""25""><a href=")
response.Write( weburl)
response.Write(">")
response.Write( webname)
response.Write("</a>>>>")
response.Write( stats)
response.Write("</th>")
response.Write(" </tr>")
response.Write(aspeasetableclose)
end sub
sub activeonline()
dim sqlonline,rsonline
if not founduser then
sqlonline="select id from online where id="&sqlstr(ip)&""
set rsonline=conn.execute(sqlonline)
if rsonline.eof and rsonline.bof then
sqlonline="insert into online(id,username,startime,lastimeact,browser,ip,actCome,actonpage) values ("&sqlstr(ip)&","&sqlstr(easeguest)&",Now(),Now(),"&sqlstr(browser)&","&sqlstr(ip)&","&sqlstr(actcome)&","&sqlstr(actonpage)& ")"
else
sqlonline="update online set username="&sqlstr(easeguest)&",userid=0,lastimeact=Now(),actCome="&sqlstr(actcome)&",actonpage="&sqlstr(actonpage)& " where id="&sqlstr(ip)&""
end if
conn.execute(sqlonline)
else
sqlonline="select * from online where id="&sqlstr(ip)&""
set rsonline=conn.execute(sql)
if rsonline.eof and rsonline.bof then
sqlonline="insert into online(id,username,userid,startime,lastimeact,browser,ip,actCome,actonpage) values ("&sqlstr(ip)&","&sqlstr(user)&","&sqlval(userid)&",Now(),Now(),"&sqlstr(browser)&","&sqlstr(ip)&","&sqlstr(actcome)&","&sqlstr(actonpage)& ")"
else
sqlonline="update online set username="&sqlstr(user)&",userid="&sqlval(userid)&",lastimeact=Now(),actCome="&sqlstr(actcome)&",actonpage="&sqlstr(actonpage)& " where id="&sqlstr(ip)&""
end if
conn.execute(sqlonline)
rsonline.close
end if
set rsonline=nothing
sqlonline="Delete FROM online WHERE DATEDIFF('s',lastimeact,now()) > "&webSetting(13)&"*60"
Conn.Execute sqlonline
end sub
function nav(id)
id =fval(fstr(id))
if id<>0 then
sqls = "select * FROM cat where catid="&sqlval(id)
else
sqls = "select * FROM auctions,cat where catid=auc_catid"
end if
set rs=server.createobject("adodb.recordset")
rs.open sqls,conn,1,1
if rs.eof and rs.bof then
else
nav=aspeasetable1yopen
nav=nav&" <tr> "
nav=nav&" <th width=""100%"" height=""25"" align=""left"">"
nav=nav&"<a href="&weburl&">"&webname&"</a>>>>"
if id=0 then
nav=nav & stats
else
catnav=split(rs("ParentStr"),",")
If cint(replace(catnav(0),",",""))>0 Then
for i=0 to ubound(catnav)
set rsnav=conn.execute("select catname from cat where catid = "&fval(catnav(i))&"")
nav=nav&"<a href=cat.asp?catid="& fval(catnav(i)) &">"& rsnav(0) &"</a>>>>"
next
nav=nav&rs("catname") '"<a href=cat.asp?catid="&id&">"&rs("catname")&"</a>"
Else
nav=nav&rs("catname") '"<a href=cat.asp?catid="&id&">"&rs("catname")&"</a>"
End If
end if
nav=nav&"</th>"
nav=nav&"</tr>" & aspeasetableclose
if rs("child")>0 then
nav=nav&aspeasetable1yopen
nav=nav&"<TR class=tdbg2><TD width=""759"">"
if cint(rs("child"))>0 then
sqls="select * from cat where ParentStr like '%"&cstr(id)&"%'"
set rs3=conn.execute(sqls)
if not rs3.eof then
while not rs3.eof
if rs3("parentid")=id then
nav=nav&" <a href=""cat.asp?catid="&rs3("catid")&""">"&rs3("catname")&"</a> "
end if
rs3.movenext
wend
rs.close
set rs=nothing
end if
end if
nav=nav&"</TD></TR>"&aspeasetableclose
end if
end if
end function
function catlistnav(spage)
set rscatlistnav=server.createobject("adodb.recordset")
sql = "select catid,catname,depth from cat order by rootid,orders"
rscatlistnav.open sql,conn,1,1
catlistnav=aspeasetable1yopen&"<form name=""daohang""><tr align=center><td><select name=curl size=1 onChange=""location=document.daohang.curl.options[document.daohang.curl.selectedIndex].value"">"
if rscatlistnav.eof and rscatlistnav.bof then
catlistnav=catlistnav&"<option selected value="""">"& easecatidnull &"</option>"
Else
rscatlistnav.movefirst
do while not rscatlistnav.eof
catlistnav=catlistnav&"<option value="""
catlistnav=catlistnav&spage&".asp?catid="&fval(rscatlistnav(0))&""
catlistnav=catlistnav&""""
If rscatlistnav(0)=catid Then
catlistnav=catlistnav&" selected "
End If
catlistnav=catlistnav&">"
select case rscatlistnav(2)
case 0
str = "╋"
case 1
str =" ├"
end select
if rscatlistnav(2)>1 then
for i=2 to rscatlistnav(2)
str =" "
next
str =str&" ├"
end if
catlistnav=catlistnav&str
catlistnav=catlistnav&rscatlistnav("catname")
catlistnav=catlistnav&"</option>"
rscatlistnav.movenext
loop
end if
rscatlistnav.close
catlistnav=catlistnav&"</select> </td> </tr></form></TABLE>"
end function
function catlist()
set rscatlist=server.createobject("adodb.recordset")
sql = "select catid,catname,depth from cat order by rootid,orders"
rscatlist.open sql,conn,1,1
catlist="<select name=catid size=1>"
if rscatlist.eof and rscatlist.bof then
catlist=catlist&"<option selected value=>" & easecatidnull & "</option>"
Else
rscatlist.movefirst
do while not rscatlist.eof
catlist=catlist&"<option value="
catlist=catlist&FVal(rscatlist(0))
If rscatlist(0)=catid Then
catlist=catlist&" selected "
End If
catlist=catlist&">"
select case rscatlist(2)
case 0
str = "╋"
case 1
str =" ├"
end select
if rscatlist(2)>1 then
for i=2 to rscatlist(2)
str =" "
next
str =str&" ├"
end if
catlist=catlist&str
catlist=catlist&rscatlist(1)
catlist=catlist&"</option>"
rscatlist.movenext
loop
end if
rscatlist.close
catlist=catlist&"</select> "
end function
function auclefttime(aucid,pvtype)
set rseaselefttime=conn.execute("select auc_CloseDate from auctions where auc_id="&aucid)
date2 = sqldate(rseaselefttime(0))
date1 = sqldate(now())
sDate = DateDiff("s", date1, date2) 'all seconds
sDay = fix(sDate/60/60/24) ' all days
sDate1 = sDate mod 60*60*24 'days' left
sHour = fix(sDate1/60/60) ' hours
sDate2 = sDate1 mod 60*60 ' hours' left
sMinute = fix(sDate2/60) 'minutes
sDate3 = sDate2 mod 60 'minutes' left
select case pvtype
case "short"
if sDay>0 then
str = sDay & easeaucleftdays
end if
if sDay=0 and shour>=0 then
str = sHour & easeauclefthours
end if
if sDay=0 and shour=0 and sMinute>=0 then
str= sMinute & easeaucleftminutes
end if
if sDay=0 and shour=0 and sMinute=0 and sDate3>=0 then
str= sDate3 & easeaucleftseconds
end if
if sDate3<=0 then
str= ""
end if
case else
if sDay>0 then
str= sDay & easeaucleftdays & sHour & easeauclefthours & sMinute & easeaucleftminutes & sDate3 & easeaucleftseconds
end if
if sDay=0 and shour>0 then
str= sHour & easeauclefthours & sMinute & easeaucleftminutes & sDate3 & easeaucleftseconds
end if
if sDay=0 and shour=0 and sMinute>0 then
str= sMinute & easeaucleftminutes
end if
if sDay=0 and shour=0 and sMinute=0 and sDate3>=0 then
str= sDate3 & easeaucleftseconds
end if
if sDate3<0 then
str= ""
end if
end select
rseaselefttime.close
set rseaselefttime=nothing
auclefttime=str
end function
function easecredit(easeuser,stype,days)
select case stype
case "good"
ssql=" pj_type=1 and"
case "middle"
ssql=" pj_type=0 and"
case "bad"
ssql=" pj_type=-1 and"
case else
ssql=""
end select
if isnumeric(days) then
dsql=" AND (DATEDIFF('d',pj_Date,now()) < "&days&")"
else
dsql=""
end if
sql="SELECT COUNT(pj_id) FROM users INNER JOIN pingjia ON users.regID = pingjia.pj_toid WHERE"&ssql&" regUsername ='"&easeuser&"'"&dsql
set rs=conn.execute(sql)
easecredit=rs(0)
rs.close
if isnull(easecredit) then easecredit=0
end function
function seecredit(pvuserid)
if pvuserid="" then
str= "0"
else
sqlcredit="select regcredit from users where regid="&SqlVal(pvuserid)
set rscredit=conn.execute(sqlcredit)
if not rscredit.eof then
if trim(rscredit(0))<>"" then
str = FVal(rscredit(0))
else
str = "0"
end if
else
str = "0"
end if
end if
seecredit = str
rscredit.close
set rscredit=nothing
end function
function easechengjiao(pvaucid,pvuserid,pvbidid)
if pvaucid="" or pvuserid="" or pvbidid="" then
str=null
else
sqlchengjiao="select bidstat from bids where biditemid="&sqlval(pvaucid)&" and bidbidderid="&sqlval(pvuserid)&" and bidid=" & sqlval(pvbidid) &""
set rschengjiao=conn.execute(sqlchengjiao)
if not rschengjiao.eof then
if rschengjiao(0)="Y" then
str=easecjvalue
else
str=easencjvalue
end if
else
str=null
end if
end if
rschengjiao.close
set rschengjiao=nothing
easechengjiao=str
end function
function auccurrentbid(pvaucid)
if pvaucid="" then
str=null
else
sqlcurrentbid="select auc_currentbid from auctions where auc_id="&sqlval(pvaucid)
set rscurbid=conn.execute(sqlcurrentbid)
if not rscurbid.eof then
str = FVal(rscurbid(0))
else
str=null
end if
end if
rscurbid.close
set rscurbid=nothing
auccurrentbid =str
end function
function getindex(stype,snum)
dim strsql,rsindex
strsql="select top "&fval(snum)&" auc_id,auc_itemtitle,auc_Isbuygoods,regusername,auc_currentbid FROM Auctions,users where auc_ItemOwner=regid and "
select case stype
case "closing"
strsql = strsql&"datediff('d',now(),auc_CloseDate)<=1 and auc_Ended='N' order by auc_closedate desc"
case "new"
strsql = strsql&"auc_Ended='N' order by auc_id desc"
case "hot"
strsql = strsql&"auc_Ended='N' order by auc_clicknum desc"
case "all"
strsql = strsql&"auc_Ended='N' order by auc_id desc"
case "end"
strsql = strsql&"auc_Ended='Y' order by auc_closedate"
case "auc"
strsql = strsql&"auc_Ended='N' and auc_Isbuygoods='0' order by auc_id desc"
case "buy"
strsql = strsql&"auc_Ended='N' and auc_Isbuygoods='1' order by auc_id desc"
case else
strsql = strsql&"auc_Ended='N' order by auc_id desc"
end select
set rsindex=server.createobject("adodb.recordset")
rsindex.open strsql,conn,1,1
str="<table border=0 width=95%\>"
if rsindex.eof and rsindex.bof then
str=str&"<tr><td colspan=3>" & easenogoods & "</td></tr>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -