生树形图的asp源码（求asp树形源码）

：暂无数据 2026-05-01 01:40:01 ：0

生树形图的asp源码的背后，隐藏着怎样的秘密？求asp树形源码又在其中扮演了何种角色？带着疑问，我们一起探秘。

本文目录

求asp树形源码
谁帮我解ASP源码
寻求多条件站内搜索asp源码（250分）
ASP源码，在内容页中需要显示分类名称，如何调用写代码
ASP网站产品展示源码问题
用ASP怎么控制树形菜单的出现
网上下载的ASP源码怎么使用
求一个树状结构ASP源码

求asp树形源码

字号：大中小
《html》
《head》
《title》导航树《/title》
《link rel="stylesheet" type="text/css" href="css/*****"》
***隐藏网址***
《script language = javascript》
var t=new Array();
var a=0;
t=new tree(0,0,"关于公司","*****") 《!--#代表的是地址--》
t=new tree(10,0,"公司介绍","#")
t=new tree(20,0,"联系方式 ","#")
t=new tree(1,1,"产品及服务 ","*****")
t=new tree(40,1,"IT产品 ","#")
t=new tree(50,1,"通讯产品 ","#")
//数据库end----
function init(){//初始化
*****("loading").removeNode(true)
var s=""
var str="《table border=’0’ cellspacing=’0’ cellpadding=’0’ style=’position:relative;left:18;top:20’》"
for(i=0;i《*****;i++){
//alert(****);
if(*****){
if(countNode(****)==0){s=".";cls="dirNode"}
else {s="+";cls="dirclose"}
str+="《tr》《td id=’"+*****+"《/span》《/td》《/tr》";
if(s=="+")str+="《tr id=’load_"+****+"’ style=’display:none’》《td class=’td_node’》《table border=’0’ cellspacing=’0’ cellpadding=’0’ style=’position:relative;left:18;top:0’》《tr》《td class=’td_node’》《span class=’dirNode’》.《/span》《span class=’load’》Loading...《/span》《/td》《/tr》《/table》《/td》《/tr》"
}
}
*****(’treedir’).innerHTML=str+"《/table》"

}
function tree(id,parentid,content,href){
*****=id;
*****=parentid;
*****=content;
*****=href;
//***** = href;
}
function countNode(id){
var n=0;
for(j=0;j《*****;j++){
if(*****)n++
}
return n;
}
function getLight(id){
var s=*****("SPAN")
var sn=*****("s"+id)
for(i=0;i《*****;i++)if(*****="color:#000000;"
*****="color:#000000;background-color:#ffffff;border:1 solid #999999"
}
function expand(id){
var n=0;
var r=0;
var s=""
var lod="Loading..."
getLight(id);
for(i in t)if(****==id)r=i;//将当前结点转为数组的游标
*****=*****;
if (***** != "*****")
*****;
switch(eval("dir"+id).innerText){
case "-":
eval("dir"+id).innerText="+";eval("dir"+id).className=’dirclose’;break;
case "+":
eval("dir"+id).innerText="-";eval("dir"+id).className=’diropen’;break;
default:eval("dir"+id).innerText=".";eval("dir"+id).className=’dirNode’;
}
if(eval("dir"+id).innerText==".")return;
if(eval("dir"+id).innerText=="+"){eval("t"+id).removeNode(true);return}
*****("load_"+id).*****=’none’
var html="《table id=’t"+id+"’ border=’0’ style=’display:none;position:relative;left:18’ cellspacing=’0’ cellpadding=’0’》"
for(i in t){
if(****){
if(countNode(****)==0){s=".";cls="dirNode"}
else {s="+";cls="dirclose"}
html+="《tr》《td id=’"+*****+"《/span》《/td》《/tr》";
if(s=="+")html+="《tr id=’load_"+****+"’ style=’display:none’》《td class=’td_node’》《table border=’0’ cellspacing=’0’ cellpadding=’0’ style=’position:relative;left:18;top:0’》《tr》《td class=’td_node’》《span class=’dirNode’》.《/span》《span class=’load’》Loading...《/span》《/td》《/tr》《/table》《/td》《/tr》"}
}
html+="《/table》"
*****(id).innerHTML+=html;
while(eval(’t’+id).readyState==’loading’){eval(’t’+id).*****=’none’}
eval("load_"+id).*****=’none’
eval("t"+id).*****=’’
}
《/script》
《/head》
《body class=bodycss text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onload="init()" bgcolor="#EAEAEA"》
《div id=treedir style="width:100%;height:50%"》
《table border=’0’ align="left" cellpadding=’0’ cellspacing=’0’ id="loading" 》
《tr》

《td class=’td_node’》《span class=’dirNode’》.《/span》《span class=’load’》正在装载...《/span》
《div align="left"》《/div》《/td》
《/tr》
《/table》
《/div》
《/body》
《/html》
--------------------------------------------------------
asp树状目录代码一
《link href=***** rel=stylesheet》
《%
function HTMLEncode(fString)
fString=replace(fString,";",";")
fString=replace(fString,"《","《")
fString=replace(fString,"》","》")
fString=replace(fString,"\","\")
fString=replace(fString,"--","--")
fString=replace(fString,"’","’")
fString=replace(fString,CHR(34),""")
fString=replace(fString,vbCrlf,"《br》")
HTMLEncode=fString
end function
’-------------------分类目录下拉选择菜单SortList(selec)----------------------
sub SortList(selec)
sql="Select * From ClassTree where followid="&selec&" and SortName=’"+asd+"’ order by SortNum"
Set Rs1=*****(sql)
do while not *****
Resp******** "《option value="&rs1("ID")&"》"&string(ii," ")&""&rs1("ClassName")&"《/option》"
ii=ii+1
SortList rs1("id")
ii=ii-1
*****
loop
Set Rs1 = Nothing
end sub
sub error2(message)
%》《script》alert(’《%=message%》’);*****();《/script》《script》*****();《/script》《%
end sub
’-----------分类目录列表Sort(selec)---------
dim ii
ii=0
sub sort(selec)
sql="Select * From ClassTree where followid="&selec&" and SortName=’"+asd+"’ order by SortNum"
Set Rs1=*****(sql)
do while not *****
if selec=0 then
%》
《tr class=a1 id=TableTitleLink height=25》
《td》《a target=_blank href=*****?id=《%=rs1("id")%》》《%=rs1("ClassName")%》《/a》《/td》
《td align="right" width="190"》
《a href=?menu=SortAdd&zdxl=《%=asd%》&id=《%=rs1("id")%》》添加编制《/a》 | 《a href=?menu=SortEdit&zdxl=《%=asd%》&id=《%=rs1("id")%》》修改编制《/a》 |
《a onclick=checkclick(’您确定要删除该编制的所有资料?’) href=?menu=SortDel&zdxl=《%=asd%》&id=《%=rs1("id")%》》删除编制《/a》
《/tr》
《%
else
%》
《tr class=a3 height=25》
《td》《%=string(ii*2," ")%》《a target=_blank href=*****?id=《%=rs1("id")%》》《%=rs1("ClassName")%》《/a》《/td》
《td align="right"》
《a href=?menu=SortAdd&zdxl=《%=asd%》&id=《%=rs1("id")%》》添加编制《/a》 | 《a href=?menu=SortEdit&zdxl=《%=asd%》&id=《%=rs1("id")%》》修改编制《/a》 |
《a onclick=checkclick(’您确定要删除该编制的所有资料?’) href=?menu=SortDel&zdxl=《%=asd%》&id=《%=rs1("id")%》》删除编制《/a》
《/tr》
《%
end if
ii=ii+1
sort rs1("id")
ii=ii-1
*****
loop
Set Rs1 = Nothing
end sub
%》
-------------------------------------------------------------

谁帮我解ASP源码

Venshop ***中*****文件对域名进行了绑定：
=======================================================================
加密文档如下:第一段：
《%#@~^NgkAAA==@#@&/nDPM/G{/.\D mM+COW4NnmD`Jmn;!+kY ?***+..*****`Jj/"qKK|HzH3r#@#@&:mk^xDkGcJslrsr#@#@&WlX’Dk{cJ6lXJb@#@&r1wxDk{`rk^2r#@#@&OVxDk{vJOVr#@#@&:kU’M/{`r:dUr#@#@&z:mNNMx./F`rXhl[[MJb@#@&^W9+****`E^KNnJ*@#@&VGTW{D/F`rsWTWE#@#@&**ko4O’M/GvE4+bo4YE#@#@&mhrND4’M/{crhk[O4Jb@#@&4kL4YD’DkGvEtkLtDYEb@#@&hb[Y4Y’Md{`rhbNOtOE*@#@&*****`E24WOW4E*@#@&^WK3Y{Dk{`rVGW0YEb@#@&VKG3alox./F`rVGWV2monJ*@#@&^WGV4lxLxM/{`rsKWV4l oJ*@#@&OW o%’M/{crYW LLr#@#@&dGDD4{*****@#@&2mjD\n.{DdGvEslr^{k+\Drb@#@&2m?D-nMj/.’M/GvEhlbV|Ed+.E*@#@&2|j+M\****/dxM/{`rhmks|wm//r#@#@&2|?nx9HCUtlk^xDkG`rhCk^{k+UNhCbVE#@#@&2|?nU9HlUHm:n’MdF`EslbV{k+ [xm:nJ*@#@&3|?+ [HmxKH2n’M/F`E:Cr^{OXanJ*@#@&hmkVm.od’MdF`EslbV{M+TdJ*@#@&:mk**M+o1xDkG`rhCk^{M+LmEb@#@&hlbs{KD[nM/’.dF`E:mr^{GMND/r#@#@&:mks{KD[nMm’MdGvJ:mrs{KD9+.mEb@#@&d+MxDkGcEk+DEb@#@&d+MmD’.kGvJ/D|OJ*@#@&Wbm5xM/GvEWbm;rb@#@&*****${UE*@#@&.nT’./FcrDnTJ*@#@&TEdYKD[+M’.dF`JT;+kYWM[nDr#@#@&^WhhxO/4Gh{Dd{vJmGhs+UYk4KhE*@#@&4lKLbC/4WA’M/{cr4lK%km/tKAE#@#@&mNhkUd4WA’MdGvJC[skxd4KhE#@#@&4EGktKh’M/FcJ4EG/4WAE*@#@&7nxktWamd3bx{DdGcEk3rxrb@#@&0dVbx’.dF`E/0r Jb@#@&b0Pb/ ;V^`-+ /4Ga{/0rx*PY4nUP7+ /4W2mk3rx{EN0C;^YJ@#@&b0~kkU!Vsv0k3k #,Otx~0k3rU{JNWl!VYr@#@&YNk *****%k Nnar#@#@&OLrl{.kGcrYLkmJ*@#@&TEU’M/{croE E#@#@&\(;O’M/F`E\8;DJb@#@&-hKD[xM/GcE7hGD9E*@#@&M/FRm^Wkn@#@&/nY,Dd{{xWD4k o@#@&dnY,Dk’d+.-D mMnlD+G8N+mOcrl[W98cDn1WMN/Yrb@#@&/5V{Jdn^+mD~YKwP8~MP6DK:~\nUktGw|-+ l[E@#@&Dd Kwnx,d$VS1W x~8~8@#@&D{r/{DdcrY{bdJ*@#@&bd"EK’M/******@#@&b/zG!’DdcrkdXK;r#@#@&EMVy!W{./vJ;D^y;Gr#@#@&;D^XW!x./vJ!DsXG;r#@#@&*****/`E2bm"EKE*@#@&ak1XW!’Md`rwrmHW;E*@#@&m[{b:o8x./vJmNmkhL8Jb@#@&CN|khLy’Ddcrl[{bhT E*@#@&lN|ksL&{Dd`rl[mb:o2E#@#@&l9mr:Tc{Dd`EC9{r:T*J*@#@&C9{****’./vEmNm!D^FJ*@#@&CN|****’.dvJl9mEMV rb@#@&mN|*****/cJm[{!Dsfr#@#@&C9{;D^*{DdvJmN{!D^*J*@#@&DkR^sK/+@#@&/YPMdxxKY4kUo@#@&wEUmDrW P-n mW[nv\nxk4Kwb@#@&6WD,k{qPDW~Vxc-x/4Gw*@#@&bW~:bNv\nxd4KwSkBq#@!@*-AKDN~O4+U@#@&-xxm/1`:bNv-+ /4Wa~rS8## -4!Y@#@&rWP7+ @*q ~Dtnx@#@&\xx-xO1X@#@&nVknb0~7+ @!&yPD4+ @#@&\xx-x_OX@#@&+x9~r0@#@&7+Ulx-xC[14Dv\nU*@#@&nsk+@#@&7n lx7+ l[1tMcF2#@#@&x[~b0@#@&U+XY@#@&-nx1W9+x\nUm@#@&2 [PwEU^DkWUK8UCAA==^#~@%》
破解出来为：
《%
set rs7=*****("*****")
sql="select * from venshop_system"
***** sql,conn,1,1
web=rs7("web")
homepage=rs7("homepage")
sitename=rs7("sitename")
siteurl=*****("SERVER_NAME")&*****("SCRIPT_NAME")
mail=rs7("mail")
fax=rs7("fax")
icp=rs7("icp")
tel=rs7("tel")
msn=rs7("msn")
ymaddr=rs7("ymaddr")
code=rs7("code")
logo=rs7("logo")
aheight=rs7("height")
awidth=rs7("width")
heightt=rs7("heightt")
widtht=rs7("widtht")
photoh=rs7("photoh")
lookt=rs7("lookt")
lookpage=rs7("lookpage")
lookhang=rs7("lookhang")
tongj=rs7("tongj")
sortb=rs7("sort")
E_Server=rs7("mail_sever")
E_ServerUser=rs7("mail_user")
E_ServerPass=rs7("mail_pass")
E_SendManMail=rs7("mail_sendmail")
E_SendManName=rs7("mail_sendname")
E_SendManType=rs7("mail_type")
mail_regs=rs7("mail_regs")
mail_regc=rs7("mail_regc")
mail_orders=rs7("mail_orders")
mail_orderc=rs7("mail_orderc")
ser=rs7("ser")
ser_t=rs7("ser_t")
oicq=rs7("oicq")
oicq_n=rs7("oicq_n")
reg=rs7("reg")
guestorder=rs7("guestorder")
commentshow=rs7("commentshow")
baojiashow=rs7("baojiashow")
adminshow=rs7("adminshow")
huoshow=rs7("huoshow")
venshop_skin=rs7("skin")
fskin=rs7("skin")
if isnull(venshop_skin) then venshop_skin="default"
if isnull(fskin) then fskin="default"
tjindex=rs7("tjindex")
tejia=rs7("tejia")
gun=rs7("gun")
vbut=rs7("vbut")
vword=rs7("vword")
*****
set rs7=nothing
set rs=*****("*****")
sql="select top 1 * from venshop_venad"
***** sql,conn,1,1
t_is=rs("t_is")
iszuo=rs("iszuo")
isyou=rs("isyou")
urlzuo=rs("urlzuo")
urlyou=rs("urlyou")
piczuo=rs("piczuo")
picyou=rs("picyou")
ad_img1=rs("ad_img1")
ad_img2=rs("ad_img2")
ad_img3=rs("ad_img3")
ad_img4=rs("ad_img4")
ad_url1=rs("ad_url1")
ad_url2=rs("ad_url2")
ad_url3=rs("ad_url3")
ad_url4=rs("ad_url4")
*****
set rs=nothing
Function vencode(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)《》vword then
ven=asc(mid(venshop,i,1))-vbut
if ven》126 then
ven=ven-95
elseif ven《32 then
ven=ven+95
end if
vena=vena&chr(ven)
else
vena=vena&chr(13)
end if
next
vencode=vena
End Function %》
最后一段：
Function vencode(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)《》vword then
ven=asc(mid(venshop,i,1))-vbut
if ven》126 then
ven=ven-95
elseif ven《32 then
ven=ven+95
end if
vena=vena&chr(ven)
else
vena=vena&chr(13)
end if
next
vencode=vena
End Function %》用来对第二段加密文档进行解密
第二段加密文档如下:
《%
venshopcom="iptu》mdbtf)sfrvftu/tfswfswbsjbcmft)#IUUQ`IPTU#**|jg!jotus)iptu-#c**oemjgfnbmm#*=》1!boe!jotus)iptu-#2:3/279#*=》1!boe!iptu=?#mpdbmiptu#!boe!!iptu=?#238/1/1/2#!uifo|sftqpotf/sfejsfdu!#iuuq;00xxx/wfotipq/dpn0#|sftqpotf/foe|foe!jg|Gz`V**》Sfrvftu/TfswfsWbsjbcmft)#RVFSZ`TUSJOH#*|Gz`b》tqmju)Gz`V**-#’#*|sfejn!Gz`Dt)vcpvoe)Gz`b**|Po!Fssps!Sftvnf!Ofyu|gps!Gz`y》1!up!vcpvoe)Gz`b*|Gz`Dt)Gz`y*!》!mfgu)Gz`b)Gz`y*-jotus)Gz`b)Gz`y*-#》#*.2*|Ofyu|Gps!Gz`y》1!up!vcpvoe)Gz`Dt*|Jg!Gz`Dt)Gz`y*=?##!Uifo|Jg!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#(#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#boe#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#tfmfdu#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#vqebuf#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#dis#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#efmfuf&31gspn#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#《#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#jotfsu#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#nje#*=?1!Ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#nbtufs/#*=?1!Uifo|sftqpotf/Xsjuf!#=tdsjqu!mbohvbhf》(kbwbtdsjqu(?bmfsu)(Fssps""(*《ijtupsz/hp).2*《=0tdsjqu?#|Sftqpotf/Foe|Foe!Jg|Foe!Jg|Ofyu|Gvodujpo!EfmTus)Tus*|Jg!JtOvmm)Tus*!Ps!JtFnquz)Tus*!Uifo|Tus》!##|Foe!Jg|EfmTus》Sfqmbdf)Tus-#《#-##*|EfmTus》Sfqmbdf)EfmTus-#(#-##*|EfmTus》Sfqmbdf)EfmTus-#’#-##*|EfmTus》Sfqmbdf)EfmTus-#!#-##*|EfmTus》Sfqmbdf)EfmTus-#?#-##*|EfmTus》Sfqmbdf)EfmTus-#&31#-##*|EfmTus》Sfqmbdf)EfmTus-#.#-##*|EfmTus》Sfqmbdf)EfmTus-#》#-##*|EfmTus》Sfqmbdf)EfmTus-#=#-##*|EfmTus》Sfqmbdf)EfmTus-#?#-##*|EfmTus》Sfqmbdf)EfmTus-#&#-##*|Foe!Gvodujpo|Gvodujpo!dilmphjo)vtfs`obnf*|tfu!st》tfswfs/dsfbufpckfdu)#bepec/sfdpsetfu#*|trm》#tfmfdu!+!gspn!wfotipq`vtfs!xifsf!vtfsobnf》(#’vtfs`obnf’#(#|st/pqfo!trm-dpoo-2-2|jg!st/fpg!uifo|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`obnf#*》##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`qbtt#*》##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`dmbtt#*》##|sftqpotf/sfejsfdu!#mphjo/btq#|sftqpotf/foe|fmtf|vtfs`qbtt》st)#vtfsqbtt#*|foe!jg|st/dmptf|tfu!st》opuijoh|jg!usjn)Sfrvftu/Dppljft)#wfotipq#*)#vtfs`qbtt#**=?usjn)vtfs`qbtt*!uifo|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`obnf#*》##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`qbtt#*》##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`dmbtt#*》##|sftqpotf/sfejsfdu!#mphjo/btq#|sftqpotf/foe|foe!jg|Foe!Gvodujpo|Gvodujpo!Tipxgmbti)jnh-xu-ih-pobnf*|sftqpotf/xsjuf!#=pckfdu!dmbttje》##dmtje;*****.:*****##!obnf》#’pobnf’#!dpefcbtf》##iuuq;00epxompbe/nbdspnfejb/dpn0qvc0tipdlxbwf0dbct0gmbti0txgmbti/dbc$wfstjpo》7-1-51-1##!cpsefs》##1##!xjeui》#’xu’#!ifjhiu》#’ih’#?#|sftqpotf/xsjuf!#=qb**n!obnf》##npwjf##!wbmvf》#’jnh’#?#|sftqpotf/xsjuf!#=qb**n!obnf》##rvbmjuz##!wbmvf》##Ijhi##?#|sftqpotf/xsjuf!#=fncfe!tsd》#’jnh’#!qmvhjotqbhf》##iuuq;00xxx/nbdspnfejb/dpn0hp0hfugmbtiqmbzfs##!uzqf》##*****##!obnf》#’pobnf’#!rvbmjuz》##Ijhi##!xjeui》#’xu’#!ifjhiu》#’ih’#?=0pckfdu?#|Foe!Gvodujpo|Gvodujpo!GpsnbuOvn)Ovn*|GpsnbuOvn》GpsnbuOvncfs)Ovn-3-.2*|Foe!Gvodujpo"
execute(vencode(venshopcom))
%》
***以下版本将最后一句execcute(vencode(venshopcom))改为resp********(vencode(venshopcom))
起作用的是
host=lcase(*****("HTTP_HOST"))
if instr(host,"brandlifemall")《=0 and instr(host,"*****")《=0 and host《》"localhost" and host《》"*****" then
***隐藏网址***
***版在加密文档中输出了一个alart,用上面的方法输出被alart中断没法看到完整的解密文档.把resp********改为文件输出,从本地文件中获得解密后的文档,如下:
《%
host=lcase(*****("HTTP_HOST"))
if instr(host,"brandlifemall")《=0 and instr(host,"*****")《=0 and host《》"localhost" and host《》"*****" then
***隐藏网址***
resp********
end if
Fy_Url=*****("QUERY_STRING")
Fy_a=split(Fy_Url,"&")
redim Fy_Cs(ubound(Fy_a))
On Error Resume Next
for Fy_x=0 to ubound(Fy_a)
Fy_Cs(Fy_x) = left(Fy_a(Fy_x),instr(Fy_a(Fy_x),"=")-1)
Next
For Fy_x=0 to ubound(Fy_Cs)
If Fy_Cs(Fy_x)《》"" Then
If Instr(LCase(Request(Fy_Cs(Fy_x))),"’")《》0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"and")《》0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"select")《》0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"update")《》0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"chr")《》0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"delete%20from")《》0 or Instr(LCase(Request(Fy_Cs(Fy_x))),";")《》0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"insert")《》0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"mid")《》0 Or Instr(LCase(Request(Fy_Cs(Fy_x))),"master.")《》0 Then
resp******** ""
Resp********
End If
End If
Next
Function DelStr(Str)
If IsNull(Str) Or IsEmpty(Str) Then
Str= ""
End If
DelStr=Replace(Str,";","")
DelStr=Replace(DelStr,"’","")
DelStr=Replace(DelStr,"&","")
DelStr=Replace(DelStr," ","")
DelStr=Replace(DelStr,"》","")
DelStr=Replace(DelStr,"%20","")
DelStr=Replace(DelStr,"-","")
DelStr=Replace(DelStr,"=","")
DelStr=Replace(DelStr,"《","")
DelStr=Replace(DelStr,"》","")
DelStr=Replace(DelStr,"%","")
End Function
Function chklogin(user_name)
set rs=*****("*****")
sql="select * from venshop_user where username=’"&user_name&"’"
***** sql,conn,1,1
if ***** then
Resp********("venshop")("user_name")=""
Resp********("venshop")("user_pass")=""
Resp********("venshop")("user_class")=""
resp******** "*****"
resp********
else user_pass=rs("userpass")
end if
*****
set rs=nothing
if trim(*****("venshop")("user_pass"))《》trim(user_pass) then
Resp********("venshop")("user_name")=""
Resp********("venshop")("user_pass")=""
Resp********("venshop")("user_class")=""
resp******** "*****"
resp********
end if
End Function
Function Showflash(img,wt,hg,oname)
resp******** ""
resp******** ""
resp******** ""
resp******** ""
End Function
Function FormatNum(Num)
FormatNum=FormatNumber(Num,2,-1)
End Function
%》
将brandlifemall改为自己的域名,则破解成功.
另外,根据vencode函数逆推,可以得出加密函数,将明码还原到加密状态.
ps:***版本中vencode函数有两个vword和vbut变量是从数据库中提取的,值可能是出厂前随即设定,也有可能是固定的,我的数据库里vword="|" , vbut="1"

寻求多条件站内搜索asp源码（250分）

楼主你好:
针对你的问题,我已经写好ASP代码,支持多条件查询和模糊查询,包括分页代码都写好了,100%能用!
注意:表中各字段名我暂时用的中文,就是你提到的:"标题、内容、发布者" ,为的是让你理解,但你实际应用中,最后不要将字段名设为中文,改成英文吧!
查询及显示查询结果的代码如下:
《%
set conn=*****("*****")
***** "driver={microsoft access driver (*.mdb)};dbq="&*****("数据库名.mdb")
%》
《%
sql88="select * from 数据表名 where "
if trim(request("bt"))《》"" then
sql88= sql88 & "标题 like ’%"&trim(request("bt"))&"%’ and "
end if
if trim(request("nr"))《》"" then
sql88= sql88 & "内容 like ’%"&trim(request("nr"))&"%’ and "
end if
if trim(request("fbz"))《》"" then
sql88= sql88 & "发布者 like ’%"&trim(request("fbz"))&"%’ and "
end if
sql88= sql88 & " 1=1 "
set rs88=*****("*****")
***** = 2 ’这里设定每页显示的记录数
***** = 3
***** sql88,conn,0,2,1 ’这里执行你查询**L并获得结果记录集
pre = true
last = true
page = trim(*****("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =《 1 then
intpage = 1
pre = false
else
if cint(page) 》= ***** then
intpage = *****
last = false
else
intpage = cint(page)
end if
end if
end if
if not ***** then
***** = intpage
end if
%》
《form action="*****" method="post" name="form1"》
《table width="650" border="1" cellpadding="0" cellspacing="0" align="center"》
《/tr》
《td height="20" align="center" colspan="2"》查询条件(填写任意一项或几项均可查询,支持模糊查询)《/td》
《/tr》
《tr bgcolor="#F2E1CC" 》
《td height="20" align="center"》标题《/td》
《td height="20" align="center"》《input type="text" name="bt" size="15" /》《/td》
《/tr》
《/tr》
《td height="20" align="center"》内容《/td》
《td height="20" align="center"》《input type="text" name="nr" size="15" /》《/td》
《/tr》
《/tr》
《td height="20" align="center"》发布者《/td》
《td height="20" align="center"》《input type="text" name="fbz" size="15" /》《/td》
《/tr》
《/tr》
《td height="20" align="center" colspan="2"》《input type="submit" name="submit" value="查询" /》《/td》
《/tr》
《/table》
《br》
《hr align="center" width="650"》
《br》
《table width="650" border="1" cellpadding="0" cellspacing="0" align="center"》
《%
if *****》0 then
for i=1 to *****
if ***** or ***** then exit for
%》
《tr》
《td height="25" align="left"》《%=i%》. 《%=rs88("标题")%》《/td》
《/tr》
《%
*****
next
else
%》
《tr》
《td height="20" align="center" colspan="7"》对不起,没有符合查询条件的学生信息!《/td》
《/tr》
《%
end if
%》
《/table》
《table width="650" border="1" cellpadding="0" cellspacing="0" align="center"》
《tr bgcolor="#DFDFDF"》
《td align="center" height="30"》
《%if ***** 》 0 then%》共《%=*****%》条记录每《%=*****%》个/页当前页: 《%=intpage%》/《%=*****%》《%else%》当前页: 0/0 《%end if%》
《a href="*****?page=1"》首页《/a》 |
《%if pre then%》
《a href="*****?page=《%=intpage -1%》"》上一页《/a》 | 《%end if%》
《%if last then%》
《a href="*****?page=《%=intpage +1%》"》下一页《/a》 | 《%end if%》
《a href="*****?page=《%=*****%》"》尾页《/a》 | 转到第
《select name="sel_page" onChange="javascript:location=********.value;"》
《%
for i = 1 to *****
if i = intpage then%》
《option value="*****?page=《%=i%》" selected》《%=i%》《/option》
《%else%》
《option value="*****?page=《%=i%》"》《%=i%》《/option》
《%
end if
next
%》
《/select》页《/font》
《/td》
《/tr》
《/table》
《/form》
《%
*****
set rs88=nothing
*****
set conn=nothing
%》
请复制上面的代码,保存为:***** ,希望你能满意!!!
如果有不明白的地方请用百度HI我!

ASP源码，在内容页中需要显示分类名称，如何调用写代码

sql="select * from Show where tid="&id&" or tid in (Select id from Show_Pro where pid="&id&") order by id desc"
sql2="select * from Show_Pro where id="&id
sql3="select title from show_pro where id=(select tid from show where id="&id&")"
set rs1=conn****cute(sql3)
if not ***** then
menuname=rs1("title")
else
menuname="没有此分类"
end if