<% index_url="main" tit_fir=format_menu(index_url) dim us,table1,table2,table3,table4,c1,c2 dim uploadpic,pic c1=web_var(web_color,5):c2=web_var(web_color,1) us="fk2" table1=format_table(1,3) table2=format_table(5,2) table3=format_table(3,1) table4=format_table(3,5) sub user_data_top(utt,ijt,sh,n_num) '积分排行 integral '发贴排行 bbs_counter '财富排行 emoney dim temp1 temp1=vbcrlf&"

" sql="select top "&n_num&" sex,username,"&utt&" from user_data order by "&utt&" desc,id" set rs=conn.execute(sql) do while not rs.eof if rs("sex")=true then temp1=temp1&vbcrlf&"
"&" "&format_user_view(rs("username"),1,"")&" | "&rs(utt)&"
" else temp1=temp1&vbcrlf&"
"&" "&format_user_view(rs("username"),1,"")&" | "&rs(utt)&"
" end if rs.movenext loop rs.close temp1=temp1&"

" call left_type(temp1,utt,sh) end sub sub vote_type(t1,t2,t3,t4) call left_type(kong&"
","vote",1) end sub sub left_type(ltv,pn,ltt) if ltt=1 then response.write "

" response.write kong&format_bar("",ltv,13,2,"","|"&web_var(web_color,6)&"|","") if ltt=1 then response.write "

" end sub sub main_down_pic(nnhead,dsql,nt,n_num,c_num) dim sk_bar,sk_class,temp1,pic_temp,nid,name,nhead:nhead=nnhead:sk_bar=11:sk_class="end" temp1="

" sql="select top "&n_num&" id,name,tim,pic from down where hidden=1"&dsql select case nt case "hot" sql=sql&" order by counter desc,id desc" if nhead="" then nhead="热点排行" case "good" sql=sql&" and types=5 order by id desc" if nhead="" then nhead="酷软推荐" case else sql=sql&" order by id desc" if nhead="" then nhead="最新软件" end select set rs=conn.execute(sql) do while not rs.eof name=rs("name"):nid=rs("id") pic_temp="" temp1=temp1&vbcrlf&"
"&format_rk(pic_temp,2,4,web_var(web_down,1),web_var(web_down,2))&"
" & _ vbcrlf&"
"&code_html(name,1,c_num)&"

" rs.movenext loop temp1=temp1&"

" response.write kong&format_bar(""&nhead&"",temp1,sk_bar,0,0,"||","") end sub sub main_down(n_jt,nnhead,nmore,nsql,nt,n_num,n_m,c_num,et,tt) dim sk_bar,sk_class,temp1,nid,name,tim,counter,nhead:nhead=nnhead:sk_bar=11:sk_class="end" if n_jt<>"" then n_jt=img_small(n_jt) temp1=vbcrlf&"

" sql="select top "&n_num+n_m&" id,name,username,tim,counter from down where hidden=1"&nsql select case nt case "hot" sql=sql&" order by counter desc,id desc" if nhead="" then nhead="下载排行" case "good" sql=sql&" and types=5 order by id desc" if nhead="" then nhead="软件推荐" case else sql=sql&" order by id desc" if nhead="" then nhead="软件更新" end select set rs=conn.execute(sql) if n_m>0 then rs.move(n_m) do while not rs.eof name=rs("name"):tim=rs("tim"):counter=rs("counter") temp1=temp1&vbcrlf&"
"&n_jt&""&code_html(name,1,c_num)&" | " if tt>0 then temp1=temp1&format_end(et,time_type(tim,tt)&","&counter&"") temp1=temp1&"
" rs.movenext loop rs.close temp1=temp1&vbcrlf&"

" response.write kong&format_bar(""&nhead&"",temp1,sk_bar,0,0,"||",nmore) end sub sub video_new_hot_pic(nnhead,dsql,nt,n_num,c_num,w,h) dim sk_bar,sk_class,temp1,pic_temp,hot,emoney,nhead:nhead=nnhead:sk_bar=11:sk_class="end" temp1="

" sql="select top "&n_num&" id,title,username,tim,counter,pic,hot,emoney from video where hidden=1"&dsql select case nt case "hot" sql=sql&" order by counter desc,id desc" if nhead="" then nhead="观看排行" case "good" sql=sql&" and hot=5 order by id desc" if nhead="" then nhead="影片推荐" case else sql=sql&" order by id desc" if nhead="" then nhead="影片更新" end select set rs=conn.execute(sql) do while not rs.eof pic_temp="" temp1=temp1&vbcrlf&"
" & _ vbcrlf&"
"&format_rk(pic_temp,2,4,w,h)&"
"&code_html(rs("title"),1,c_num)&"
推荐星级：
"&web_var(web_config,8)&"："&rs("emoney")&" 人气："&rs("counter")&"

" rs.movenext loop temp1=temp1&"

" response.write kong&format_bar(""&nhead&"",temp1,sk_bar,0,0,"||","") end sub sub main_video(n_jt,nnhead,nmore,nsql,nt,n_num,n_m,c_num,et,tt) dim sk_bar,sk_class,temp1,nid,title,tim,counter,nhead:nhead=nnhead:sk_bar=11:sk_class="end" if n_jt<>"" then n_jt=img_small(n_jt) temp1=vbcrlf&"

" sql="select top "&n_num+n_m&" id,title,username,tim,counter from video where hidden=1"&nsql select case nt case "hot" sql=sql&" order by counter desc,id desc" if nhead="" then nhead="观看排行" case "good" sql=sql&" and types=5 order by id desc" if nhead="" then nhead="web_down" case else sql=sql&" order by id desc" if nhead="" then nhead="影片更新" end select set rs=conn.execute(sql) if n_m>0 then rs.move(n_m) do while not rs.eof title=rs("title"):tim=rs("tim"):counter=rs("counter") temp1=temp1&vbcrlf&"
"&n_jt&""&code_html(title,1,c_num)&"" if tt>0 then temp1=temp1&format_end(et,time_type(tim,tt)&","&counter&"") temp1=temp1&"
" rs.movenext loop rs.close temp1=temp1&vbcrlf&"

" response.write kong&format_bar(""&nhead&"",temp1,sk_bar,0,0,"||",nmore) end sub sub main_news(n_jt,a_cid,a_sid,n_num,c_num,et,timt) dim temp1,topic,sqladd,nhead,url,ccname nhead=n_head(""&a_cid&"",""&a_sid&"","news") if n_jt<>"" then n_jt=img_small(n_jt) temp1="

" sqladd="select top "&n_num&" id,topic,tim,counter from news where hidden=1" if a_cid<>"" then sqladd=sqladd&" and c_id="&a_cid&"" if a_sid<>"" then sqladd=sqladd&" and s_id="&a_sid&"" sql=sqladd&" order by id desc" set rs=conn.execute(sql) do while not rs.eof topic=rs("topic") temp1=temp1&vbcrlf&"
"&n_jt&""&code_html(topic,1,c_num)&"" if et>-1 then temp1=temp1&format_end(et,""&time_type(rs("tim"),timt)&","&rs("counter")&"") temp1=temp1&"
" rs.movenext loop rs.close temp1=temp1&"

" response.write kong&format_bar(nhead,temp1,11,0,0,"|"&web_var(web_color,1)&"|100","")&"" end sub sub main_article(n_jt,a_cid,a_sid,n_num,c_num,et,timt) dim tnum,istop,temp1,topic,sqladd,nhead,url,news_tui news_tui=" " nhead=n_head(""&a_cid&"",""&a_sid&"","article") if n_jt<>"" then n_jt=img_small(n_jt) temp1="

" sqladd="select top "&n_num&" id,topic,tim,counter,istop from article where hidden=1" if a_cid<>"" then sqladd=sqladd&" and c_id="&a_cid&"" if a_sid<>"" then sqladd=sqladd&" and s_id="&a_sid&"" sql=sqladd&" order by id desc" set rs=conn.execute(sql) do while not rs.eof tnum=c_num:istop="" if rs("istop")=1 then tnum=tnum-3:istop=news_tui topic=rs("topic") temp1=temp1&vbcrlf&"
"&n_jt&""&code_html(topic,1,c_num)&""&istop&"" if et>-1 then temp1=temp1&format_end(et,""&time_type(rs("tim"),timt)&","&rs("counter")&"") temp1=temp1&"
" rs.movenext loop rs.close temp1=temp1&"

" response.write kong&format_bar(nhead,temp1,11,0,0,"|"&web_var(web_color,1)&"|100","")&"" 'response.write kong&format_bar(nhead,temp1,21,0,0,"|"&web_var(web_color,1)&"|100","")&"" end sub sub main_forum(n_jt,n_num,c_num,et,timt) dim temp1,topic if n_jt<>"" then n_jt=img_small(n_jt) temp1="

" sql="select top "&n_num&" forum_id,icon,id,topic,tim,counter,re_counter,username,re_username from bbs_topic order by id desc" set rs=conn.execute(sql) do while not rs.eof topic=rs("topic") temp1=temp1&vbcrlf&"
"&code_html(topic,1,c_num)&" | "&format_end(et,""&time_type(rs("tim"),timt)&" | "&rs("re_counter")&"|"&rs("counter")&"")&"
" rs.movenext loop rs.close temp1=temp1&"

" response.write kong&format_bar(""&format_menu("forum")&"",temp1,11,0,0,"|"&web_var(web_color,1)&"|80","")&"" end sub sub main_update_view() dim temp1,topic,conn,connstr,rs connstr="DBQ="&server.mappath(web_var(web_config,6))&";DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr temp1="

" temp1=temp1&"" sql="select top 5 * from bbs_cast where sort='news' order by id desc" set rs=conn.execute(sql) do while not rs.eof topic=rs("topic") temp1=temp1&""&code_jk(topic)&"
"&code_jk(rs("word"))&"
" rs.movenext loop rs.close temp1=temp1&"" temp1=temp1&"
[网站公告] [论坛公告]

" response.write kong&format_bar("公告更新",temp1,11,0,0,"|"&web_var(web_color,1)&"|80","")&"" end sub sub main_update(n_jt,n_num,c_num,et,timt) dim temp1,topic,word if n_jt<>"" then n_jt=img_small(n_jt) temp1="

" sql="select top "&n_num&" id,topic,word,tim from bbs_cast where sort='news' order by id desc" set rs=conn.execute(sql) do while not rs.eof topic=rs("topic") word=rs("word") temp1=temp1&vbcrlf&"
"&code_html(topic,1,c_num)&"
"&word&format_end(et,""&time_type(rs("tim"),timt)&"")&"
[ 更多网站公告 ] [ 更多论坛公告 ]
" rs.movenext loop rs.close temp1=temp1&"

" response.write kong&format_bar("网站公告",temp1,11,0,0,"|"&web_var(web_color,1)&"|80","")&"" end sub sub news_fpic(fsql,t_num,n_jt,n_num,c_num,et,timt) dim tnum,news_tui,istop,topic,temp1,rs,sql,nid,sk_bar,sk_class,temp2,new_tu,cnum,tim,ispic,pic_temp news_tui=" " new_tu=" " atb=" target=_blank":sk_bar=11:sk_class="end" sql="select top 1 id,topic,pic,tim,username,counter from news where hidden=1 and istop=1 and ispic=1 "&fsql&" order by id desc" set rs=conn.execute(sql) if not(rs.eof and rs.bof) then nid=rs("id"):topic=rs("topic") pic_temp="" temp1="

" & _ vbcrlf&"

" & _ vbcrlf&"

" & _ vbcrlf&"
"&format_rk(pic_temp,2,4,web_var(web_num,7),web_var(web_num,8))&"
" & _ vbcrlf&"
"&code_html(rs("topic"),1,t_num)&"
" & _ vbcrlf&"

" & _ vbcrlf&"

" end if rs.close if n_jt<>"" then n_jt=img_small(n_jt) temp2="

" sql="select top "&n_num&" id,topic,tim,counter,ispic,istop from news where hidden=1 order by id desc" set rs=conn.execute(sql) do while not rs.eof tnum=c_num:istop="" if rs("istop")=true then tnum=tnum-3:istop=news_tui cnum=c_num:ispic="":topic=rs("topic"):tim=rs("tim") if rs("ispic")=true then cnum=cnum-2:ispic=new_tu temp2=temp2&vbcrlf&"
"&n_jt&""&code_html( topic,1,cnum)&ispic&""&istop&" | " if et>-1 then temp2=temp2&format_end(et,""&time_type(rs("tim") ,timt)&","&rs("counter")&"") temp2=temp2&"
" rs.movenext loop rs.close temp2=temp2&"

" temp1="

"&temp1&"

"&temp2 &"

" response.write kong&format_bar("今日图片新闻",temp1,sk_bar,0,0,"||","") end sub sub links_main(lt,nummer) dim temp1,nname temp1="

" sql="select * from links where sort='"<&"' and hidden=1 order by orders" set rs=conn.execute(sql) do while not rs.eof temp1=temp1&vbcrlf&"
" for i=1 to nummer if rs.eof then exit for temp1=temp1&vbcrlf&"
" if lt="txt" then temp1=temp1&code_html(rs("nname"),1,0) else temp1=temp1&"" end if temp1=temp1&" " rs.movenext next temp1=temp1&vbcrlf&"
" loop rs.close temp1=temp1&"

" response.write temp1 end sub sub web_search(wt) if wt=1 then response.write ukong %>

<%response.write img_small("new")%>站内搜索： |  |  |  | 快速搜索 |  | 搜索帮助

<% end sub sub ip_search %>

请输入正确的 IP 地址

<% end sub sub vouch_top(ijt,sh,n_num) dim temp1,n_jt,et if n_jt<>"" then n_jt=img_small(n_jt) temp1="

" sql="select top "&n_num&" name,url,remark from website where isgood=1 and hidden=1 order by counter desc,id" set rs=conn.execute(sql) do while not rs.eof temp1=temp1&vbcrlf&"
"&code_html(rs("name"),1,8)&"
" rs.movenext loop rs.close temp1=temp1&"

" response.write kong&table1%> > <%response.write img_small(us)%> 最新推荐 >

<% response.write temp1%>

<% end sub sub main_gallery_pic(nnhead,dsql,nt,n_num,c_num,w,h) dim sk_bar,sk_class,temp1,temp2,nid,cid,sid,name,uname,tim,pic,spic,nhead:nhead=nnhead:sk_bar=11:sk_class="end" temp1="

" sql="select top "&n_num&" * from gallery where hidden=1 and types='"&nt&"'"&dsql select case nt case "paste" sql=sql&" order by id desc" if nhead="" then nhead="最新贴图" end select set rs=conn.execute(sql) do while not rs.eof name=rs("name"):nid=rs("id"):cid=rs("c_id"):sid=rs("s_id"):uname=rs("username"):tim=rs("tim") pic=rs("pic"):spic=rs("spic") temp1=temp1&vbcrlf&"
" if nt="paste" then temp2="

" & _ vbcrlf&"
"&code_html(name,1,c_num)&"

" temp1=temp1&vbcrlf&format_k(temp2,1,5,w+7,h+30)&"
" else end if rs.movenext loop temp1=temp1&"

" response.write kong&table1%> > <%response.write img_small(us)%> 精彩贴图 >

<% response.write temp1%>

<% end sub sub main_flash_pic(nnhead,dsql,nt,n_num,c_num,w,h) dim sk_bar,sk_class,temp1,temp2,nid,cid,sid,name,uname,tim,pic,spic,nhead:nhead=nnhead:sk_bar=11:sk_class="end" temp1="

" sql="select top "&n_num&" * from flash where hidden=1 and types='"&nt&"'"&dsql select case nt case "flash" sql=sql&" order by id desc" if nhead="" then nhead="最新Flash" end select set rs=conn.execute(sql) do while not rs.eof name=rs("name"):nid=rs("id"):cid=rs("c_id"):sid=rs("s_id"):uname=rs("username"):tim=rs("tim") pic=rs("pic"):spic=rs("spic") temp1=temp1&vbcrlf&"
" if nt="flash" then temp2="

" & _ vbcrlf&"
"&code_html(name,1,c_num)&"

" temp1=temp1&vbcrlf&format_k(temp2,1,5,w+10,h+30)&"
" else end if rs.movenext loop temp1=temp1&"

" response.write kong&table1%> > <%response.write img_small(us)%> 闪客剧场 >

<% response.write temp1%>

<% end sub sub links_up(sl,lt,nummer) dim temp1,nname temp1="

" sql="select top "&sl&" * from links where sort='"<&"' and hidden=1 order by orders" set rs=conn.execute(sql) do while not rs.eof temp1=temp1&vbcrlf&"
" for i=1 to nummer if rs.eof then exit for temp1=temp1&vbcrlf&"
" if lt="txt" then temp1=temp1&code_html(rs("nname"),1,0) else temp1=temp1&"" end if temp1=temp1&" " rs.movenext next temp1=temp1&vbcrlf&"
" loop rs.close temp1=temp1&"

" call left_type(temp1,"links",1) end sub sub vouch_left(vjt,vjt2) dim temp1 if vjt<>"" then vjt=img_small(vjt) if vjt2<>"" then vjt2=img_small(vjt2) temp1=vbcrlf&"

" & _ vbcrlf&"
" & _ vbcrlf&"
"&vjt&"精彩贴图 | "&vjt2&"推荐图片
" & _ vbcrlf&"
"&vjt&"精彩动画 | "&vjt2&"推荐动画
" & _ vbcrlf&"
"&vjt&"精彩交易 | "&vjt2&"推荐源码
" & _ vbcrlf&"
"&vjt&"网站推荐 | "&vjt2&"推荐网站
" & _ vbcrlf&"

" call vouch_skin(format_menu(index_url),temp1,"",1) end sub sub vouch_skin(t1,t2,t3,t4) if t4=1 then response.write "

" response.write kong&format_bar(""&t1&"",t2,14,0,0,"||",t3) if t4=1 then response.write "

" end sub sub main_gallery_pic(nnhead,dsql,nt,n_num,c_num,w,h,p_num) dim sk_bar,sk_class,temp1,pic_temp,nid,cid,sid,name,uname,tim,pic,r_num,j,nhead:nhead=nnhead:sk_bar=11:sk_class="end" r_num=int(n_num/p_num) if n_num mod p_num > 0 then r_num=r_num+1 temp1="

" sql="select top "&n_num&" * from gallery where hidden=1 and types='"&nt&"'"&dsql select case nt case "paste" sql=sql&" order by id desc" if nhead="" then nhead="最新贴图" case "flash" sql=sql&" order by id desc" if nhead="" then nhead="最新Flash" end select set rs=conn.execute(sql) 'do while not rs.eof for i = 1 to r_num temp1=temp1&"
" for j = 1 to p_num if rs.eof then exit for name=rs("name"):nid=rs("id"):cid=rs("c_id"):sid=rs("s_id"):uname=rs("username"):tim=rs("tim") pic=rs("pic") if nt="flash" then pic_temp="

" & _ vbcrlf&"
"&code_html(name,1,c_num)&"

" else pic_temp="

" & _ vbcrlf&"
"&code_html(name,1,c_num)&"

" end if temp1=temp1&"
"&format_k(pic_temp,1,5,w+10,h+30)&" " rs.movenext next temp1=temp1&"
" next 'loop temp1=temp1&"

" response.write kong&format_bar(""&nhead&"",temp1,sk_bar,0,0,"||","") end sub sub main_flash_picv(nnhead,dsql,nt,n_num,c_num,w,h) dim sk_bar,sk_class,temp1,temp2,nid,cid,sid,name,uname,tim,pic,spic,nhead:nhead=nnhead:sk_bar=11:sk_class="end" temp1="

" sql="select top "&n_num&" * from flash where hidden=1 and types='"&nt&"'"&dsql select case nt case "flash" sql=sql&" order by id desc" if nhead="" then nhead="最新Flash" end select set rs=conn.execute(sql) do while not rs.eof name=rs("name"):nid=rs("id"):cid=rs("c_id"):sid=rs("s_id"):uname=rs("username"):tim=rs("tim") pic=rs("pic"):spic=rs("spic") temp1=temp1&vbcrlf&"
" if nt="flash" then temp2="

" & _ "
"&code_html(name,1,10)&"
" & _ "
"&m_unit&"："&rs("emoney")&" 人气："&rs("counter")&"
" & _ "
"&power_pic(0,rs("power"),0)&"
" & _ "

" temp1=temp1&vbcrlf&format_k(temp2,1,5,w+10,h+30)&"
" else end if rs.movenext loop temp1=temp1&"

" response.write kong&table1%> > <%response.write img_small(us)%> 精彩动画 >

<% response.write temp1%>

<% end sub sub main_web_sitenew(nh,n_jt,nnhead,nmore,nsql,nt,n_num,c_num,et,tt) dim temp1,nid,name,tim,counter,nhead:nhead=nnhead if n_jt<>"" then n_jt=img_small(n_jt) temp1=vbcrlf&"

" sql="select top "&n_num&" id,c_id,s_id,name,username,url,tim,isgood,counter from website where hidden=true"&nsql select case nt case "hot" sql=sql&" order by counter desc,id desc" if nhead="" then nhead="热门站点" case "good" sql=sql&" and isgood=true order by id desc" if nhead="" then nhead="推荐站点" case else sql=sql&" order by id desc" if nhead="" then nhead="最新站点" end select set rs=conn.execute(sql) do while not rs.eof name=rs("name"):tim=rs("tim"):counter=rs("counter") temp1=temp1&vbcrlf&"
"&n_jt&""&code_html(name,1,c_num)&"" if tt>0 then temp1=temp1&format_end(et,time_type(tim,tt)&","&counter&"") temp1=temp1&"
" rs.movenext loop temp1=temp1&"

" response.write kong&table1%> > <%response.write img_small(us)%> 最新站点 >

<% response.write temp1%>

<% end sub sub main_web_sitehot(nh,n_jt,nnhead,nmore,nsql,nt,n_num,c_num,et,tt) dim temp1,nid,name,tim,counter,nhead:nhead=nnhead if n_jt<>"" then n_jt=img_small(n_jt) temp1=vbcrlf&"

" sql="select top "&n_num&" id,c_id,s_id,name,username,url,tim,isgood,counter from website where hidden=true"&nsql select case nt case "hot" sql=sql&" order by counter desc,id desc" if nhead="" then nhead="热门站点" case "good" sql=sql&" and isgood=true order by id desc" if nhead="" then nhead="推荐站点" case else sql=sql&" order by id desc" if nhead="" then nhead="最新站点" end select set rs=conn.execute(sql) do while not rs.eof name=rs("name"):tim=rs("tim"):counter=rs("counter") temp1=temp1&vbcrlf&"
"&n_jt&""&code_html(name,1,c_num)&"" if tt>0 then temp1=temp1&format_end(et,time_type(tim,tt)&","&counter&"") temp1=temp1&"
" rs.movenext loop temp1=temp1&"

" response.write kong&table1%> > <%response.write img_small(us)%> 热门站点 >

<% response.write temp1%>

<% end sub sub main_web_sitegood(nh,n_jt,nnhead,nmore,nsql,nt,n_num,c_num,et,tt) dim temp1,nid,name,tim,counter,nhead:nhead=nnhead if n_jt<>"" then n_jt=img_small(n_jt) temp1=vbcrlf&"

" sql="select top "&n_num&" id,c_id,s_id,name,username,url,tim,isgood,counter from website where hidden=true"&nsql select case nt case "hot" sql=sql&" order by counter desc,id desc" if nhead="" then nhead="热门站点" case "good" sql=sql&" and isgood=true order by id desc" if nhead="" then nhead="推荐站点" case else sql=sql&" order by id desc" if nhead="" then nhead="最新站点" end select set rs=conn.execute(sql) do while not rs.eof name=rs("name"):tim=rs("tim"):counter=rs("counter") temp1=temp1&vbcrlf&"
"&n_jt&""&code_html(name,1,c_num)&"" if tt>0 then temp1=temp1&format_end(et,time_type(tim,tt)&","&counter&"") temp1=temp1&"
" rs.movenext loop temp1=temp1&"

" response.write kong&table1%> > <%response.write img_small(us)%> 推荐站点 >

<% response.write temp1%>

<% end sub sub main_shop() %>

<% sql="select top 3 id,name,serial,brand,stock,smallimg,price_1,price_2,remark_1 from product where isgood=1 and hidden=1 order by tim desc,id desc" set rs=conn.execute(sql) do while not rs.eof response.write vbcrlf&"
"&shop_view1()&" " rs.movenext loop rs.close %>

<% end sub function shop_view1() dim w_h,nid:w_h=" width=120 height=90":nid=rs("id") shop_view1=vbcrlf&"

" & _ vbcrlf&"
" & _ vbcrlf&"
" & _ vbcrlf&"
"&rs("name")&"
" & _ vbcrlf&"

" end function %>
<% Function code_jk(strers) dim strer:strer=strers if strer="" or isnull(strer) then code_jk="":exit function strer=health_var(strer,1) strer = replace(strer, ">", ">") strer = replace(strer, "<", "<") strer = replace(strer," "," ") '空格 strer = Replace(strer, CHR(32), " ") strer = Replace(strer, CHR(9), " ") 'table strer = Replace(strer, CHR(34), """) '双引号 strer = Replace(strer, CHR(39), "'") '单引号 strer = Replace(strer, CHR(13), "") 'strer = Replace(strer, CHR(10) & CHR(10), "

") strer = Replace(strer, CHR(10), "
") dim re,re_v re_v="[^\(\)\;\'\[]*" 're_v=".[^\[]*" Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="(javascript:)" strer=re.Replace(strer,"javascript：") re.Pattern="(javascript)" strer=re.Replace(strer,"javascript") re.Pattern="(jscript:)" strer=re.Replace(strer,"jscript:") re.Pattern="(js:)" strer=re.Replace(strer,"js:") re.Pattern="(value)" strer=re.Replace(strer,"value") re.Pattern="(about:)" strer=re.Replace(strer,"about:") re.Pattern="(file:)" strer=re.Replace(strer,"file&:") re.Pattern="(document.cookie)" strer=re.Replace(strer,"documents.cookie") re.Pattern="(document.)" strer=re.Replace(strer,"document．") re.Pattern="(vbscript:)" strer=re.Replace(strer,"vbscript:") re.Pattern="(vbs:)" strer=re.Replace(strer,"vbs :") re.Pattern="(on(mouse|exit|error|click|key))" strer=re.Replace(strer,"on$2") re.Pattern="\[IMGS\](.[^\[]*(gif|jpg|jpeg|bmp|png))\[\/IMGS\]" 're.Pattern="\[IMG\](http|https|ftp):\/\/(.[^\[]*)\[\/IMG\]" strer=re.Replace(strer,"screen.width-max-width)this.width=screen.width-max-width"">") re.Pattern="\[IMG\](.[^\[]*(gif|jpg|jpeg|bmp|png))\[\/IMG\]" strer=re.Replace(strer,"") re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\]("&re_v&")\[\/DIR]" strer=re.Replace(strer,"
") re.Pattern="\[QT=*([0-9]*),*([0-9]*)\]("&re_v&")\[\/QT]" strer=re.Replace(strer,"") re.Pattern="\[MP=*([0-9]*),*([0-9]*)\]("&re_v&")\[\/MP]" strer=re.Replace(strer,"
") re.Pattern="\[RM=*([0-9]*),*([0-9]*)\]("&re_v&")\[\/RM]" strer=re.Replace(strer,"
") re.Pattern="(\[FLASH=*([0-9]*),*([0-9]*)\])("&re_v&"(.swf))(\[\/FLASH\])" strer=re.Replace(strer," 『 全屏欣赏 』
") re.Pattern="(\[FLASHS=*([0-9]*),*([0-9]*)\])("&re_v&"(.swf))(\[\/FLASHS\])" strer=re.Replace(strer,"
") re.Pattern="(\[DOWNLOAD\])("&re_v&")(\[\/DOWNLOAD\])" strer=re.Replace(strer," 『 点击下载 』") re.Pattern="(\[URL\])("&re_v&")(\[\/URL\])" strer=re.Replace(strer,"$2") re.Pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])" strer=re.Replace(strer,"$3") re.Pattern="(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])" strer=re.Replace(strer,"$2") re.Pattern="(\[EMAIL=(\S+\@.[^\[]*)\])(.[^\[]*)(\[\/EMAIL\])" strer=re.Replace(strer,"$3") re.Pattern ="^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strer =re.Replace(strer,"$1") re.Pattern ="(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strer =re.Replace(strer,"$1") re.Pattern ="([^>='])(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strer =re.Replace(strer,"$1$2") re.Pattern ="^(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strer =re.Replace(strer,"$1") re.Pattern ="(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strer =re.Replace(strer,"$1") re.Pattern ="[^>='](ftp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)" strer =re.Replace(strer,"$1") re.Pattern ="^(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strer =re.Replace(strer,"$1") re.Pattern ="(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strer =re.Replace(strer,"$1") re.Pattern ="[^>='](rtsp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)" strer =re.Replace(strer,"$1") re.Pattern ="^(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strer =re.Replace(strer,"$1") re.Pattern ="(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strer =re.Replace(strer,"$1") re.Pattern ="[^>='](mms://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)" strer =re.Replace(strer,"$1") re.Pattern="\[face=(.[^\[]*)\](.[^\[]*)\[\/face\]" strer=re.Replace(strer,"$2") re.Pattern="\[size=([1-4])\](.[^\[]*)\[\/size\]" strer=re.Replace(strer,"$2") re.Pattern="\[color=(.[^\[]*)\](.[^\[]*)\[\/color\]" strer=re.Replace(strer,"$2") re.Pattern="\[align=(.[^\[]*)\](.[^\[]*)\[\/align\]" strer=re.Replace(strer,"

$2
") re.Pattern="\[align=(.[^\[]*)\](.*)\[\/align\]" strer=re.Replace(strer,"
$2
") re.Pattern="\[center\](.[^\[]*)\[\/center\]" strer=re.Replace(strer,"
$1
") re.Pattern="\[QUOTE\](.*)\[\/QUOTE\]" strer=re.Replace(strer,"

$1

") 're.Pattern="\[HTML\](.[^\[]*)\[\/HTML\]" 'strer=re.Replace(strer,"

以下内容为程序代码: $1

") re.Pattern="\[CODE\](.*)\[\/CODE\]" strer=re.Replace(strer,"

$1

") re.Pattern="\[fly\](.[^\[]*)\[\/fly\]" strer=re.Replace(strer,"$1") re.Pattern="\[move\](.[^\[]*)\[\/move\]" strer=re.Replace(strer,"$1") re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]" strer=re.Replace(strer,"

$4

") re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]" strer=re.Replace(strer,"

$4

") re.Pattern="\[i\](.[^\[]*)\[\/i\]" strer=re.Replace(strer,"$1") re.Pattern="\[u\](.[^\[]*)(\[\/u\])" strer=re.Replace(strer,"$1") re.Pattern="\[b\](.[^\[]*)(\[\/b\])" strer=re.Replace(strer,"$1") dim emci for emci=1 to 16 strer=Replace(strer,"[em"&emci&"]"," ") next for emci=1 to 28 strer=Replace(strer,"[emb"&emci&"]"," ") next '================================ '新动作 if u_username<>"" then dim AlertFontColor,AlertFontColor1 AlertFontColor="#ff0000" AlertFontColor1="blue" re.Pattern="(\/恶心)" strer=re.Replace(strer,"
"&u_username &"觉得一阵恶心，哇啦哇啦地吐了一地……") re.Pattern="(\/高兴)" strer=re.Replace(strer,"
"&u_username &"高兴地跳了起来。") re.Pattern="(\/招呼)" strer=re.Replace(strer,"
"&u_username &"逢人就打招呼：大家好，今天是我大喜的日子！请吃糖！ 请吃糖！") re.Pattern="(\/欢迎)" strer=re.Replace(strer,"
"&u_username &":高兴的叫道：欢迎、欢迎、热烈欢迎～～") re.Pattern="(\/灌水)" strer=re.Replace(strer,"
"&u_username &"嚷道：“新来的，别乱欺负哦，灌水先”") re.Pattern="(\/无聊)" strer=re.Replace(strer,"
"&u_username &"拿出一张钞票：“好无聊啊，谁要陪我灌水？” ") re.Pattern="(\/负责)" strer=re.Replace(strer,"
"&u_username &"哭着说：“都这样了，555，你可要对我负责呀！”呜～～") re.Pattern="(\/生气)" strer=re.Replace(strer,"
"&u_username &"撅了撅嘴说：“气死我了呀！呀！呀！”") re.Pattern="(\/鼓掌)" strer=re.Replace(strer,"
"&u_username &"鼓掌喝采“好ＹＥ！好ＹＥ！”") re.Pattern="(\/等待)" strer=re.Replace(strer,"
"&u_username &"悲伤的唱到：“你知不知道，你知不知道？我等到花儿也谢了...” ") re.Pattern="(\/反对)" strer=re.Replace(strer,"
"&u_username &" 不行！我坚决反对！") re.Pattern="(\/浪漫)" strer=re.Replace(strer,"
"&u_username &"像罗密欧与朱丽叶式的吹起曲子来“我悄悄地蒙上你的眼睛，让你猜猜我是谁？” ") re.Pattern="(\/不要)" strer=re.Replace(strer,"
"&u_username &"摆了摆手，说：“不要呀！” ") re.Pattern="(\/找死)" strer=re.Replace(strer,"
"&u_username &"说：跟我斗，你还嫩着哩；刚练成的无筋腿，拿你试试先！") re.Pattern="(\/去死)" strer=re.Replace(strer,"
"&u_username &"说：嘿嘿，你去死吧！") re.Pattern="(\/狂笑)" strer=re.Replace(strer,"
"&u_username &"仰天狂笑“普天之下，竟然没有我的对手...”") re.Pattern="(\/傻笑)" strer=re.Replace(strer,"
西西、禾禾～～ "&u_username &"突然笑了起来.. ") re.Pattern="(\/痛哭)" strer=re.Replace(strer,"
"&u_username &"鼻子一酸，开始叭嗒叭嗒掉眼泪了…… ") re.Pattern="(\/道别)" strer=re.Replace(strer,"
"&u_username &"向在场的所有人道：“小生先行告退，后会有期。” ") re.Pattern="(\/跳舞)" strer=re.Replace(strer,"
"&u_username &"乐地手足蹈舞！") re.Pattern="(\/失望)" strer=re.Replace(strer,"
"&u_username &"低下头，神情失望极了。") re.Pattern="(\/唱歌)" strer=re.Replace(strer,"
"&u_username &"清清嗓子唱起歌来：东方红，太阳升…… ") re.Pattern="(\/害羞)" strer=re.Replace(strer,"
"&u_username &"害羞地脸都红了，恨没有地洞，好钻进去躲起来~~ ") re.Pattern="(\/比酷)" strer=re.Replace(strer,"
"&u_username &":摆了个ＰＯＳＥ道：“你、你、你没我酷..” ") re.Pattern="(\/救命)" strer=re.Replace(strer,"
"&u_username &"大叫：狼来了！狼来了！救命啊！救命啊！") re.Pattern="(\/狂妄)" strer=re.Replace(strer,"
"&u_username &":剑眉一轩，冷冷的瞥了一眼，背转身淡淡说道：你，不是我的，对手！") re.Pattern="(\/拳击)" strer=re.Replace(strer,"
"&u_username &":叫道：这会人兄身材好有型哦！给我练拳不？") re.Pattern="(\/我踢)" strer=re.Replace(strer,"
"&u_username &"说：我踢、我踢、我踢死你 ") re.Pattern="(\/我踩)" strer=re.Replace(strer,"
"&u_username &"大叫：我踩、我踩、踩死楼上的，踩扁楼下的！") re.Pattern="(\/饶命)" strer=re.Replace(strer,"
"&u_username &"大喊：老婆！你就饶了我吧！") re.Pattern="(\/眨眼)" strer=re.Replace(strer,"
"&u_username &"天真地眨了眨眼睛！一对会说话的眼睛闪闪动人^)^ ") re.Pattern="(\/臭美)" strer=re.Replace(strer,"
"&u_username &"嚷道：“你当你是谁呀，你以为你是张学友呀？” ") re.Pattern="(\/变态)" strer=re.Replace(strer,"
"&u_username &"对偻上的说：“你真的好变态哦”") re.Pattern="(\/拼酒)" strer=re.Replace(strer,"
"&u_username &"说：“什么时候咋俩拼拼酒啊。” ") re.Pattern="(\/深情)" strer=re.Replace(strer,"
"&u_username &"深情地唱道：我早已为你种下，九百九十九朵玫瑰.. ") re.Pattern="(\/惊讶)" strer=re.Replace(strer,"
"&u_username &"惊讶得两眼瞪得贼大！") re.Pattern="(\/抽烟)" strer=re.Replace(strer,"
"&u_username &"从烟缸中拣出个烟屁股，用两根手指夹着点着了，眯起眼睛狂嘬几口。") re.Pattern="(\/怀疑)" strer=re.Replace(strer,"
"&u_username &"抓了抓头皮，问道：“有这回事吗？” ") re.Pattern="(\/拉勾)" strer=re.Replace(strer,"
"&u_username &"对楼上的说：我们就不许反悔了。") re.Pattern="(\/经典)" strer=re.Replace(strer,"
"&u_username &"呢喃道：“好久没见过这么经典的东东了。”") re.Pattern="(\/同意)" strer=re.Replace(strer,"
"&u_username &"说：“你们都对，行了吧！￣”") re.Pattern="(\/ＯＫ)" strer=re.Replace(strer,"
"&u_username &"怪腔怪调地说：“ＯＫ啦！～”") re.Pattern="(\/kiss)" strer=re.Replace(strer,"
"&u_username &" 小孩子不要偷看！") re.Pattern="(\/生日)" strer=re.Replace(strer,"
"&u_username &"猪你生日快乐！") re.Pattern="(\/晕倒)" strer=re.Replace(strer,"
"&u_username &"突然觉得天昏地暗，一声“我要晕了”后就倒下了！") re.Pattern="(\/气你)" strer=re.Replace(strer,"
"&u_username &"对楼上的说：“哈哈，我气死你。”") re.Pattern="(\/错啦)" strer=re.Replace(strer,"
"&u_username &"说：“又搞错啦！”") re.Pattern="(\/加油)" strer=re.Replace(strer,"
"&u_username &"内心在默默地喊着加油。") re.Pattern="(\/恭喜)" strer=re.Replace(strer,"
"&u_username &"恭喜、贺喜什么时候请吃酒啊？") re.Pattern="(\/简单)" strer=re.Replace(strer,"
"&u_username &" 抓了抓脑袋道：喔，原来这么简单呀？！") re.Pattern="(\/加油)" strer=re.Replace(strer,"
"&u_username &"内心在默默地喊着加油。") re.Pattern="(\/鼓励)" strer=re.Replace(strer,"
"&u_username &"挥着手说道：同志们辛苦了！") re.Pattern="(\/过奖)" strer=re.Replace(strer,"
"&u_username &"拱了拱手道：过奖，过奖！") re.Pattern="(\/原谅)" strer=re.Replace(strer,"
"&u_username &"连哭带喊跪在地上叫道：你们大家再原谅我一次吧！") re.Pattern="(\/大笑)" strer=re.Replace(strer,"
"&u_username &"开怀大笑。") re.Pattern="(\/感动)" strer=re.Replace(strer,"
"&u_username &"感动极了，一行热泪夺眶而出。") re.Pattern="(\/叹气)" strer=re.Replace(strer,"
"&u_username &"长叹了一口气那神情仿佛是在说：“我都是要进棺材的人了，还在乎些什么？？！”") re.Pattern="(\/道谢)" strer=re.Replace(strer,"
"&u_username &"对在场的所有人鞠躬道谢！") re.Pattern="(\/摇头)" strer=re.Replace(strer,"
"&u_username &"拼命地摇摇头, 一副很无辜的样子。") re.Pattern="(\/点头)" strer=re.Replace(strer,"
"&u_username &"同意地点了点头。") re.Pattern="(\/拥抱)" strer=re.Replace(strer,"
"&u_username &"张开双臂来吧，小宝贝儿！让叔叔抱！") end if '------------------------- '新音乐 if u_username<>"" then dim AlertFontColor2,AlertFontColor3 AlertFontColor2="#ff0000" AlertFontColor3="blue" re.Pattern="(\/奉献)" strer=re.Replace(strer,"
") re.Pattern="(\/心雨)" strer=re.Replace(strer,"
") re.Pattern="(\/童年)" strer=re.Replace(strer,"
") re.Pattern="(\/国歌)" strer=re.Replace(strer,"
") re.Pattern="(\/天涯)" strer=re.Replace(strer,"
") re.Pattern="(\/天意)" strer=re.Replace(strer,"
") re.Pattern="(\/女人)" strer=re.Replace(strer,"
") re.Pattern="(\/后来)" strer=re.Replace(strer,"
") re.Pattern="(\/彩虹)" strer=re.Replace(strer,"
") re.Pattern="(\/最美)" strer=re.Replace(strer,"
") re.Pattern="(\/心动)" strer=re.Replace(strer,"
") re.Pattern="(\/勇气)" strer=re.Replace(strer,"
") re.Pattern="(\/星晴)" strer=re.Replace(strer,"
") re.Pattern="(\/约定)" strer=re.Replace(strer,"
") re.Pattern="(\/宽容)" strer=re.Replace(strer,"
") re.Pattern="(\/第一次)" strer=re.Replace(strer,"
") re.Pattern="(\/心太软)" strer=re.Replace(strer,"
") re.Pattern="(\/比较烦)" strer=re.Replace(strer,"
") re.Pattern="(\/辣妹子)" strer=re.Replace(strer,"
") re.Pattern="(\/梦驼铃)" strer=re.Replace(strer,"
") re.Pattern="(\/死不了)" strer=re.Replace(strer,"
") re.Pattern="(\/好日子)" strer=re.Replace(strer,"
") re.Pattern="(\/盼红军)" strer=re.Replace(strer,"
") re.Pattern="(\/山丹丹)" strer=re.Replace(strer,"
") re.Pattern="(\/柠檬树)" strer=re.Replace(strer,"
") re.Pattern="(\/爱的奉献)" strer=re.Replace(strer,"
") re.Pattern="(\/爱的呼唤)" strer=re.Replace(strer,"
") re.Pattern="(\/不能分离)" strer=re.Replace(strer,"
") re.Pattern="(\/迟来的爱)" strer=re.Replace(strer,"
") re.Pattern="(\/春节序曲)" strer=re.Replace(strer,"
") re.Pattern="(\/单身情歌)" strer=re.Replace(strer,"
") re.Pattern="(\/今宵珍重)" strer=re.Replace(strer,"
") re.Pattern="(\/京腔京韵)" strer=re.Replace(strer,"
") re.Pattern="(\/九月九酒)" strer=re.Replace(strer,"
") re.Pattern="(\/秘密情人)" strer=re.Replace(strer,"
") re.Pattern="(\/同桌的你)" strer=re.Replace(strer,"
") re.Pattern="(\/弯弯月亮)" strer=re.Replace(strer,"
") re.Pattern="(\/笑傲江湖)" strer=re.Replace(strer,"
") re.Pattern="(\/新上海滩)" strer=re.Replace(strer,"
") re.Pattern="(\/心语星愿)" strer=re.Replace(strer,"
") re.Pattern="(\/单身情歌)" strer=re.Replace(strer,"
") re.Pattern="(\/秘密花园)" strer=re.Replace(strer,"
") re.Pattern="(\/风雨无阻)" strer=re.Replace(strer,"
") re.Pattern="(\/生日快乐)" strer=re.Replace(strer,"
") re.Pattern="(\/仙剑奇侠)" strer=re.Replace(strer,"
") re.Pattern="(\/精典音乐1)" strer=re.Replace(strer,"
") re.Pattern="(\/精典音乐2)" strer=re.Replace(strer,"
") re.Pattern="(\/精典音乐3)" strer=re.Replace(strer,"
") re.Pattern="(\/如果云知道)" strer=re.Replace(strer,"
") re.Pattern="(\/最浪漫的事)" strer=re.Replace(strer,"
") re.Pattern="(\/缘份的天空)" strer=re.Replace(strer,"
") re.Pattern="(\/谢谢你的爱)" strer=re.Replace(strer,"
") re.Pattern="(\/但愿人长久)" strer=re.Replace(strer,"
") re.Pattern="(\/我的野蛮女友)" strer=re.Replace(strer,"
") re.Pattern="(\/可惜我是水瓶座)" strer=re.Replace(strer,"
") re.Pattern="(\/罗密欧与茱丽叶)" strer=re.Replace(strer,"
") re.Pattern="(\/风中有朵雨做的云)" strer=re.Replace(strer,"
") re.Pattern="(\/不让我的眼泪陪我过夜)" strer=re.Replace(strer,"
") end if '.........................................特殊贴开始........................................... if Right(tit,6)="（浏览贴子）" then dim vrs,ii,po '.........................................回复可见开始......................................... re.Pattern="(\[replyview\])(.[^\[]*)(\[\/replyview\])" if login_mode="admin" then strer=re.Replace(strer,"

以下内容为需要回复才能浏览
$2

") else set vrs=conn.execute("select id from bbs_data where forum_id="&forumid&" and reply_id="&viewid&" and username='"&login_username&"'") if vrs.eof and vrs.bof then strer=re.Replace(strer,"

此内容需要回复才能浏览

") else strer=re.Replace(strer,"

以下内容为需要回复才能浏览
$2

") end if vrs.close:set vrs=nothing end if '.........................................回复可见结束.......................................... '.........................................购买可见开始......................................... '购买帖子 re.Pattern="(^.*)(\[usemoney=*([0-9]*)\])(.[^\[]*)(\[\/usemoney\])(.*)" po=re.Replace(strer,"$3") if IsNumeric(po) then ii=int(po) else ii=0 end if dim vrs2,SplitBuyUser,iPostBuyUser set vrs2=conn.execute("select username from notes where nsort='b"&forumid&"' and iid="&viewid&" order by id") if vrs2.eof and vrs2.bof then iPostBuyUser="