| " INILR=INILR&""&MID(MENULIS(I1,1),4,50)&" |
"
ELSE
INILR=INILR&" 
"
END IF
case "无"
INILR=INILR&" "
case else
INILR=INILR&" "&btim1&" "
end select
if date()-newlr(i2,10)<=INT(bnew) then
rimg="
"
else
rimg=""
end if
if bdate="YES" then
myd=formatdatetime(newlr(i2,10),1)
myd=right(myd,len(myd)-5)
myd=" "&myd&""
ELSE
MYD=""
end if
if ucase(dispfile)="LT.ASP" or UCASE(DISPFILE)="LTLIST.ASP" then
fina="ltxxlr.asp"
else
fina="xxlr1.asp"
end if
if len(trim(newlr(i2,1))) <= cint(btzs) then
INILR= INILR&""&NEWLR(I2,1)&""&myd
else
INILR= INILR&""&left(NEWLR(I2,1),btzs)&"..."&myd
end if
' INILR=INILR& " "&NEWLR(I2,7)&"["&NEWLR(I2,9)&"]"&NEWLR(I2,5)&"/"&NEWLR(I2,6)&" "
inilr=inilr&rimg&"" NEXT else inilr=inilr&tabtopsn(tab,btnasn,menulis(i1,2),bnew,"1") end if if more="YES" then inilr=inilr&"
| 更多... |
" Set rsdb=Server.CreateObject("ADODB.RecordSet") rsdb.Open sql,conn,1,1 IF NOT RSDB.EOF THEN mytablr=mytablr& "
| "&disfi1(idis1,2)&" | " next mytablr=mytablr& "||||||
| "&IMG&"" else mytablr=mytablr& " | "&IMG&"" end if mytablr=mytablr& rsdb(disfi1(idis1,1))&""&rimg&" | " else if instr(tab,"商城")<>0 then mytablr=mytablr& ""&IMG&"" else mytablr=mytablr& " | "&IMG&""
end if
mytablr=mytablr& " | "
end if
else
if rsdb.fields(disfi1(idis1,1)).DEFINEDSIZE=211 then
mytablr=mytablr& " "
mytablr=mytablr& " | "
else
if rsdb.fields(disfi1(idis1,1)).type=135 then
mytablr=mytablr& "" mytablr=mytablr& ""&formatdatetime(rsdb(disfi1(idis1,1)),2)&" | " else mytablr=mytablr& "" mytablr=mytablr& ""& rsdb(disfi1(idis1,1))&" | " end if end if end if next mytablr=mytablr& "
"
ELSE
IMG=""
END IF
if date-rsdb("发布时间")<=int(nnew) then
rimg="" else inilr=inilr&""&ztlis(i)&"" tj=tj&" 专题='"&ztlis(i)&"' " end if next if tj="" then tj=" id=0 " sql="select top "&zts&" 标题,日期,ID,IMG1,开放评论 from lr where "&tj&" order by -id" Set rszt=Server.CreateObject("ADODB.RecordSet") 'response.write sql ' exit sub rszt.Open sql,conn,1,1 lr="" IM=0 do while not rszt.eof select case btimg1 case "图片" bimg="
"
ELSE
bimg=" "
END IF
case "无"
bimg=" "
case else
bimg=" "&btimg1&" "
end select
if len(rszt("标题"))>int(btzs) then
lr=lr&bimg&""&left(rszt("标题"),btzs-2)&"..." else lr=lr&bimg&""&rszt("标题")&"
" end if IF trim(RSZT("img1")&"")<>"" and im=0 then lr="
| 更多... |
" tazs(0)=tazs(0)+isn1 tazs(1)=tazs(1)+isn2 tazs(2)=tazs(2)+isn3 END IF NEXT tabzs=tazs END FUNCTION SUB SYSUP(VER) SYS1=REQUEST.COOKIES("SYSMAIL")&"" IF SYS1="" AND INSTR(VER,"M")<>0 and REQUEST.SERVERVARIABLES("server_name") <> REQUEST.SERVERVARIABLES("LOCAL_ADDR") and REQUEST.SERVERVARIABLES("LOCAL_ADDR") <> REQUEST.SERVERVARIABLES("REMOTE_ADDR") THEN LR=REQUEST.SERVERVARIABLES("server_name")&chr(13)&request("url")&CHR(13) LR=LR&REQUEST.SERVERVARIABLES("LOCAL_ADDR")&CHR(13) LR=LR&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&CHR(13) lr=lr&chr(13)&NOW()&chr(13) LR=LR&GXSJ(30)&CHR(13) for sysi = 1 to 30 lr=lr&gxsj(SYSi)&chr(13) next te="SYSUPEMAIL:"&REQUEST.SERVERVARIABLES("server_name") TO1="USER@ZYDN.NET" FO1="MY@"&REQUEST.SERVERVARIABLES("server_name") IF OUTMAIL(TE,LR,TO1,FO1) THEN ' response.cookies("sysmail")="" response.cookies("sysmail")=formatdatetime(date(),1) RESPONSE.COOKIES("sysmail").EXPIRES=date+3 ' response.write VER&"!!!" else response.cookies("sysmail")="" END IF end if END SUB FUNCTION tabcount(tab) '统计指定表名的表中有记录多少条 SQL="SELECT COUNT(Id) as sumid FROM "&tab&" where 审核状态='已' " set COUNTrs=conn.execute (sql,0,1) tabcount=COUNTrs("sumid") END FUNCTION FUNCTION YSN(tab) '统计指定表名的表中已售的记录 SQL="SELECT COUNT(Id) as sumid FROM "&tab&" where 成交标志= -1 and 审核状态='已' " set COUNTrs=conn.execute (sql,0,1) ysn=COUNTrs("sumid") END FUNCTION FUNCTION NSN(tab) '统计指定表名的表中未售的记录 SQL="SELECT COUNT(Id) as sumid FROM "&tab&" where 成交标志= 0 and 审核状态='已'" set COUNTrs=conn.execute (sql,0,1) nsn=COUNTrs("sumid") END FUNCTION sub gxlmjj() mymeli1=downmenulist("",1) dim mymeli(100,4) ji=0 for jji=0 to 100 if mymeli1(jji,1)="" then exit for if trim(mymeli1(jji,5)&"")<>"" and trim(mymeli1(jji,7)&"")<>"" then mymeli(ji,1)=mymeli1(jji,1) mymeli(ji,2)=mymeli1(jji,2) mymeli(ji,3)=mymeli1(jji,5) mymeli(ji,4)=mymeli1(jji,7) ji=ji+1 end if next flr="
| ["&mid(mymeli(jji,1),4,50)&"] "&mymeli(jji,3)&" | "
jji=jji+1
if mymeli(jji,1)<>"" then
flr=flr&"["&mid(mymeli(jji,1),4,50)&"] "&mymeli(jji,3)&" | " end if next flr=flr&" |
| " INILR=INILR&""&MID(RS1("MENUNAME"),4,50)&" | " if more="YES" then inilr=inilr&"更多... | " end if inilr=inilr&"
"
ELSE
INILR=INILR&" "
END IF
case "无"
INILR=INILR&" "
case else
INILR=INILR&" "&btim1&" "
end select
if date()-newlr(i2,10)<=INT(bnew) then
rimg=""
else
rimg=""
end if
if bdate="YES" then
myd=formatdatetime(newlr(i2,10),1)
myd=right(myd,len(myd)-5)
myd=" "&myd&""
ELSE
MYD=""
end if
if ucase(dispfile)="LT.ASP" or UCASE(DISPFILE)="LTLIST.ASP" then
fina="ltxxlr.asp"
else
fina="xxlr1.asp"
end if
if len(trim(newlr(i2,1))) <= cint(btzs) then
INILR= INILR&""&NEWLR(I2,1)&""&myd
else
INILR= INILR&""&left(NEWLR(I2,1),btzs)&"..."&myd
end if
inilr=inilr&rimg&"" NEXT else inilr=inilr&tabtopsn(tab,btnasn1,menid,bnew,menjb) end if ' INILR=INILR& " "&NEWLR(I2,7)&"["&NEWLR(I2,9)&"]"&NEWLR(I2,5)&"/"&NEWLR(I2,6)&" " CALL SAVETEXT("../GX/cIN"&I1&".HTM",INILR) call savetext("../gx/cinid"&menid&".htm",inilr) rs1.movenext i1=i1+1 inilr="" loop RS1.CLOSE end sub sub gxwebzjgx(btzs,zts,dislmE,disdateE) '最近的更新 if btzs="" then btzs=20 if zts="" then zts=5 sql="select top "&zts&" 标题,日期,ID,IMG1,开放评论,menuname1 from lr where 审核状态='已' order by -id" Set rszt=Server.CreateObject("ADODB.RecordSet") rszt.Open sql,conn,1,1 lr="" IM=0 do while not rszt.eof select case btimg1 case "图片" bimg="
"
ELSE
bimg=" "
END IF
case "无"
bimg=" "
case else
bimg=" "&btimg1&" "
end select
if DISLME="YES" THEN
LMNA=MID(RSZT("MENUNAME1"),4,50)
LMNA="["&LMNA&"]"
ELSE
LMNA=""
END IF
IF DISDATEE="YES" then
didat=formatdatetime(RSZT("日期"),2)
didat=mid(didat,3,10)
else
didat=""
end if
if len(rszt("标题"))>int(btzs) then
lr=lr&bimg&LMNA&""&left(rszt("标题"),btzs-2)&"... "&didat&"" else lr=lr&bimg&LMNA&""&rszt("标题")&" "&didat&"
" end if rszt.movenext loop rszt.close call savetext("../gx/zjgx.htm",lr) end sub sub gxnewimg(zsn,hsn) '用来生成最新的有图片的文章 sql="select menuname1,menuname2,menuname3,menuname4 from lr" Set rs1=Server.CreateObject("ADODB.RecordSet") rs1.Open sql,conn,1,2 do while not rs1.eof for mmi=1 to 4 if rs1("menuname"&mmi)&""="" then rs1("menuname"&mmi)="" next rs1.movenext loop rs1.updatebatch rs1.close tj="" sql="select * from menu where disp='xxlrimg.asp' or disp='XXLRIMG.ASP' order by menuname" Set rs1=Server.CreateObject("ADODB.RecordSet") rs1.Open sql,conn,1,1 DO WHILE NOT RS1.EOF IF not DOWNMENU(RS1("menuname"),RS1("jb")) then if tj="" then tj=tj&" menuname"&rs1("jb")&" <>'"&rs1("menuname")&"' " else tj=tj&" and menuname"&rs1("jb")&" <>'"&rs1("menuname")&"' " end if end if rs1.movenext LOOP rs1.close lr="" if tj<>"" then sql="select top "&zsn&" 标题,日期,ID,IMG1,开放评论 from lr where 审核状态<>'未' and img1<>'' and "&tj&" order by -id" ' sql="select top "&zsn&" 标题,日期,ID,IMG1,开放评论 from lr where 审核状态='已' and img1<>'' order by -id" ' response.write SQL Set rszt=Server.CreateObject("ADODB.RecordSet") rszt.Open sql,conn,1,1 lr="
| "
lr=lr&" "&RSZT("标题")&"" lr=lr&" | "
rszt.movenext
if rszt.eof then
lr=lr&"
| "
lr=lr&" "&RSZT("标题")&"" lr=lr&" | "
rszt.movenext
if rszt.eof then
lr=lr&"
" lr="" sql="select top "&zsn&" 商品名,商品略图,ID from "&tab&" where 成交标志=0 and 真实性=-1 and 删除标志=0 and 审核状态='已' order by -id" Set rszt=Server.CreateObject("ADODB.RecordSet") ' Response.Write sql rszt.Open sql,conn,1,1 lr="
| "
lr=lr&" "&RSZT("商品名")&"" lr=lr&" | "
rszt.movenext
if rszt.eof then
lr=lr&"