<!-- #include file="conn.asp" -->
<%
if request("shopbbsurl")=1 then response.redirect "Licence.asp"
Set Rs=Conn.Execute("clubconfig")
clubname=rs("clubname")
cluburl=rs("cluburl")
contentbank=rs("content")
adminpassword=rs("adminpassword")
regpassword=rs("regpassword")
homeurl=rs("homeurl")
homename=rs("homename")
affichetitle=rs("affichetitle")
badwords=rs("badwords")
badip=rs("badip")
selectmail=rs("selectmail")
smtp=rs("smtp")
smtpmail=rs("smtpmail")
MailServerusername=rs("MailServerusername")
MailServerPassword=rs("MailServerPassword")
banner=rs("banner")
bigbanner=rs("bigbanner")
adcode=rs("adcode")
badlist=rs("badlist")
nowdate=rs("nowdate")
today=rs("today")
oldday=rs("oldday")
style=rs("style")
CacheName=rs("CacheName")
selectup=rs("selectup")
UpFileGenre=rs("UpFileGenre")
ReForumName=rs("ReForumName")
qqs=rs("qq")
vipprice=rs("vipprice")
shopbbs_setup=split(rs("allclass"),"\")
floor=shopbbs_setup(0)
CloseRegUser=shopbbs_setup(1)
Reg10=shopbbs_setup(2)
RegOnlyMail=shopbbs_setup(3)
SendPassword=shopbbs_setup(4)
apply=shopbbs_setup(5)
Timeout=shopbbs_setup(6)
OnlineTime=shopbbs_setup(7)
MaxFace=shopbbs_setup(8)
MaxPhoto=shopbbs_setup(9)
MaxFile=shopbbs_setup(10)
searchcontent=shopbbs_setup(11)
MaxSearch=shopbbs_setup(12)
ActivationForum=shopbbs_setup(13)
ActivationUser=shopbbs_setup(14)
SortShowForum=shopbbs_setup(15)
PostTime=shopbbs_setup(16)
ListStyle=shopbbs_setup(17)
StopOutPost=shopbbs_setup(18)
guanggao=shopbbs_setup(19)
qqok=shopbbs_setup(20)
wenok=shopbbs_setup(21)
ciok=shopbbs_setup(22)
sp_setup=split(rs("sp_setup"),"\")
allsp=sp_setup(0)
liesp=sp_setup(1)
kaisp=sp_setup(2)
goodeffectsetup=split(rs("goodeffectsetup"),"\")
goodeffect=goodeffectsetup(0)
goodeffectskins=goodeffectsetup(1)
bgsound=split(rs("bgsound"),"\")
blnAutoStart=bgsound(0)
blnRndPlay=bgsound(1)
blnStatusBar=bgsound(2)
blnShowVolCtrl=bgsound(3)
blnShowPlist=bgsound(4)
blnLoopTrk=bgsound(5)
blnShowMmInfo=bgsound(6)
bgsoundMusicskins=bgsound(7)
bgsoundMusicskinsshu=bgsound(8)
set rs=nothing
if Request.Cookies("username") <> empty then
sql="select * from [user] where username='"&HTMLEncode(Request.Cookies("username"))&"'"
Set Rs=Conn.Execute(SQL)
if rs.eof then Response.Cookies("username")=""
if Request.Cookies("userpass") <> rs("userpass") then Response.Cookies("username")=""
membercode=rs("membercode")
userface=""&rs("userface")&""
newmessage=rs("newmessage")
userlife=rs("userlife")
money=rs("money")
savemoney=rs("savemoney")
set rs=nothing
end if
if badip<>empty then
filtrate=split(badip,"|")
for i = 0 to ubound(filtrate)
if instr("|"&Request.ServerVariables("REMOTE_ADDR")&"","|"&filtrate(i)&"") > 0 then response.redirect "inc/badip.htm"
next
end if
if Request.Cookies("skins")=empty then Response.Cookies("skins")=style
dim ForumTreeList
ii=0
startime=timer()
Set rs = Server.CreateObject("ADODB.Recordset")
Server.ScriptTimeout=Timeout '设置脚本超时时间 单位:秒
response.write "<html><head><meta http-equiv=Content-Type content=text/html;charset=gb2312></head><link href=images/skins/"&Request.Cookies("skins")&"/bbs.css rel=stylesheet><script src=inc/shopbbs.js></script><script src=inc/ybb.js></script><script src=images/skins/"&Request.Cookies("skins")&"/bbs.js></script>"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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
''''''''''替换模块START''''''''''''
Function ReplaceText(fString,patrn,replStr)
Set regEx = New RegExp
' 建立正则表达式。
regEx.Pattern = patrn
' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True
' 设置全局可用性。
ReplaceText = regEx.Replace(fString, replStr) ' 作替换。
Set reg=nothing
End Function
''''''''''替换模块END''''''''''''
function ContentEncode(fString)
fString=replace(fString,"×", "×<br>")
fString=replace(fString,vbCrlf, "")
fString=replace(fString,"\","\")
fString=replace(fString,"'","'")
'fString=ReplaceText(fString,"<(.[^>]*)(&#|cookie|window.|Document.|javascript:|js:|vbs:|about:|file:|on(blur|click|change|Exit|error|focus|finish|key|load|mouse))", "<$1$2$3")
fString=ReplaceText(fString,"<(.[^>]*)(javascript:|Document.|onerror|onload|onmouseover)", "<$1$2")
fString=ReplaceText(fString,"<(\/|)(iframe|SCRIPT|form|style|div|object|TEXTAREA)", "<$1$2")
if badwords<>empty then
filtrate=split(badwords,"|")
for i = 0 to ubound(filtrate)
fString=ReplaceText(fString,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if
ContentEncode=fString
end function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub top
if Request.Cookies("username")<>empty then
''''''''''''''''''第一次来'''''''''''''''''''''''''''''
if Request.Cookies("onlinetime")=empty then
conn.execute("update [user] set degree=degree+1,landtime='"&now()&"' where username='"&Request.Cookies("username")&"'")
Response.Cookies("onlinetime")=now()
Response.Cookies("addmin")=0
''''''''如果停留10分钟：经验值: +1 体力值：+10''''''''''''''''''''
elseif DateDiff("s",Request.Cookies("onlinetime"),Now())>600 then
if userlife > 90 then
conn.execute("update [user] set userlife=100,landtime='"&now()&"' where username='"&Request.Cookies("username")&"'")
else
conn.execute("update [user] set userlife=userlife+10,landtime='"&now()&"' where username='"&Request.Cookies("username")&"'")
end if
Response.Cookies("onlinetime")=now()
Response.Cookies("addmin")=Request.Cookies("addmin")+10
end if
''''''''''''''''''''''''''''
end if
%>
<body topmargin=0>
<script>shopbbstop()</script>
<SCRIPT>
var <%=encrypt("bglg")%>=<%=encrypt(ciok)%>;
var limok=<%=bgsoundMusicskinsshu%>;
</SCRIPT>
<%if guanggao=0 then%>
<script type=text/javascript language=javascript1.2 src=inc/guanggao.js></script>
<%end if%>
<table cellspacing=1 cellpadding=1 width=97% align=center border=0 class=a2><tr class=a1><td><table cellspacing=0 cellpadding=4 width=100% border=0><tr class=a1><td id=TableTitleLink>>>欢迎您， <%
if Request.Cookies("username")=empty then
%>
<a href="login.asp">请先登录</a> |
<a href="register.asp">
注册</a> |
<a href="RecoverPasswd.asp">
忘记密码</a> |
<a href="online.asp">
在线情况</a> | <a href="search.asp?forumid=<%=Request("forumid")%>">
搜索</a> | <a href="help.asp">
帮助</a> | <a onMouseOver="showmenu(event,'<div class=menuitems><a href=music.asp>开启</a></div><div class=menuitems><a
target=_parent href=default.asp>关闭</a></div>')" style=cursor:default><img src=images/sound.gif border=0>音乐</a><%menu(0)%></td></tr></table></td></tr></table><br>
<%else%>
<%=Request.Cookies("username")%>
| <a onMouseOver="showmenu(event,'<div class=menuitems><a href=cookies.asp?menu=online>上线</a></div><div class=menuitems><a href=cookies.asp?menu=eremite>隐身</a></div><div class=menuitems><a href=login.asp?menu=out>离线</a></div>')" style=cursor:default>
<%
if Request.Cookies("eremite")="1" then
response.write "隐身"
else
response.write "上线"
end if
%></A>
| <a onMouseOver="showmenu(event,'<div class=menuitems><a href=login.asp>更换用户</a></div><div class=menuitems><a href=ShowBBS.asp?menu=5>我的帖子</a></div><div class=menuitems><a href=upface.asp>上传头像</a></div><div class=menuitems><a href=upphoto.asp>上传照片</a></div><div class=menuitems><a href=calendar.asp>社区日志</a></div><div class=menuitems><a href=blog.asp>我的日志</a></div><div class=menuitems><a href=profile.asp>我的资料</a></div>')" style=cursor:default>个人服务</a>
| <a onMouseOver="showmenu(event,'<div class=menuitems><a href=usercp.asp>控制面板首页</a></div><div class=menuitems><a href=EditProfile.asp>基本资料修改</a></div><div class=menuitems><a href=EditProfile.asp?menu=pass>用户密码修改</a></div><div class=menuitems><a href=EditProfile.asp?menu=option>编辑论坛选项</a></div><div class=menuitems><a href=message.asp>用户短信服务</a></div><div class=menuitems><a href=friend.asp>编辑好友列表</a></div>')" style=cursor:default>控制面板</a>
| <a onMouseOver="showmenu(event,'<div class=menuitems><a href=online.asp>在线情况</a></div><div class=menuitems><a href=online.asp?menu=cutline>在线图例</a></div><div class=menuitems><a href=online.asp?menu=sex>性别图例</a></div><div class=menuitems><a href=online.asp?menu=todaypage>今日图例</a></div><div class=menuitems><a href=online.asp?menu=board>主题图例</a></div><div class=menuitems><a href=online.asp?menu=tolrestore>帖子图例</a></div><div class=menuitems><a href=usertop.asp>会员列表</a></div><div
class=menuitems><a href=adminlist.asp>管理团队</a></div>')" style=cursor:default>社区状态</a>
| <a href=search.asp>搜索</a>
| <a onMouseOver="showmenu(event,'<div class=menuitems><a href=music.asp>开启</a></div><div class=menuitems><a
target=_parent href=default.asp>关闭</a></div>')" style=cursor:default><img src=images/sound.gif border=0>音乐</a>
| <a onMouseOver="showmenu(event,'<div class=menuitems><a href=favorites.asp?menu=topic>帖子收藏夹</a></div><div class=menuitems><a href=favorites.asp?menu=forum>论坛收藏夹</a></div><div class=menuitems><a href=favorites.asp>网站收藏夹</a></div>')" style=cursor:default>收藏</a>
<%
menu(0)
response.write " | <a href=help.asp>帮助</a>"
select case membercode
case "5"
response.write " | <a onmouseover="&Chr(34)&"showmenu(event,'<div class=menuitems><a href=admin.asp target=_top>登录总后台</a></div><div class=menuitems><a href=musicmanage.asp>播放器音乐管理</a></div><div class=menuitems><a href=recycle.asp>贴子回收站</a></div><div class=menuitems><a href=orderlistall.asp>订单管理</a></div><div class=menuitems><a href=recycleorder.asp>订单回收站</a></div><div class=menuitems><a href=prison.asp>社区监狱</a></div>')"&Chr(34)&" style=cursor:default>管理</a>"
case "4"
response.write " | <a onmouseover="&Chr(34)&"showmenu(event,'<div class=menuitems><a href=recycle.asp>回 收 站</a></div>')"&Chr(34)&" style=cursor:default>社区管理</a>"
end select
%></td><td align="right">已经停留 <b><%=DateDiff("n",Request.Cookies("onlinetime"),Now())+Request.Cookies("addmin")%></b> 分钟 </td></tr></table></td></tr></table>
<%
'''''如果有短讯息''''''''''''''''''''''
if newmessage>0 then
%><table width="97%" align="center"><tr><td width="100%" align="right"><a href=# onClick="javascript:open('friend.asp?menu=look&<%=now()%>','','width=320,height=170')"><img src=images/newmail.gif border=0><font color="990000">您有<%=newmessage%>条新讯息，请注意查收</font></a> </td></tr></table>
<img border=0 dynsrc=images/2msg.wav start=fileopen width=0 height=0><%
else
response.write "<br>"
end if
'''''''''''''
end if
response.write "<table width=97% align=center border=0><tr><td><span id=logo><img border=0 src=images/logo.gif></span></td><td align=right><span id=banner>"&banner&"</span></td></tr><tr><td colspan=2><span id=bigbanner>"&bigbanner&"</span></td></tr></table><br>"
end sub
''''''''''''''''''''''''''''''
sub htmlend
%>
<title><%=clubname%> - 货源商贸</title><p>
<table cellspacing=0 cellpadding=0 width=97% align=center><tr><td align=middle>
<%=adcode%><br>Powered by <b> <font color=ffffff> <a target=_blank href=http://www.
<font color=000000 face="黑体">货源商贸<%=ver%></font></a></font></b>/<a
href=Licence.asp><font color=000000>Licence</font></a> ©站长QQ：106137416<br>
Script Execution Time:<%=fix((timer()-startime)*1000)%>ms
</td></tr></table>
<script>shopbbsbottom()</script>
</body></html>
<%
responseend
end sub
''''''''''''''''''''''''''''''''
sub succeed(message)
%>
<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25> <img src=images/Forum_nav.gif> <%ClubTree%> → 社区信息</td>
</tr>
</table><br><SCRIPT>valigntop()</SCRIPT>
<table cellspacing="0" cellpadding="0" width="97%" align="center" border="0" class="a2"><tr><td height="106">
<table cellspacing="1" cellpadding="6" width="100%" border="0"><tr><td width="100%" height="20" align="middle" class="a1">
<b>社区提示信息</b></td></tr><tr bgcolor="ffffff"><td valign="top" align="left" height="122"><b> </b><table cellspacing="0" cellpadding="5" width="100%" border="0"><tr><td width="83%" valign="top"><b><span id="yu">3</span><a href="javascript:countDown"></a>秒钟后系统将自动返回...</b><ul><%=message%></ul></td><td width="17%"><img height="97" src="images/succ.gif" width="95"></td></tr></table></td></tr></table></td></tr></table>
<SCRIPT>valignbottom()</SCRIPT>
</font><script>function countDown(secs){yu.innerText=secs;if(--secs>0)setTimeout("countDown("+secs+")",1000);}countDown(3);</script>
<%
htmlend
end sub
sub error(message)
response.redirect "error.asp?message="&message&""
end sub
sub error2(message)
response.redirect "error.asp?message2="&message&""
end sub
''''''''''''''''''''''''''''''''
sub log(message)
conn.Execute("insert into log (username,ip,windows,remark) values ('"&Request.Cookies("username")&"','"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.Servervariables("HTTP_USER_AGENT")&"','"&message&"')")
end sub
''''''''''''''''''''''''''''''''
sub responseend
set rs=nothing
set rs1=nothing
conn.close
set conn=nothing
Response.End
end sub
''''''''''''''''''''''''''''''''
sub DetectPost
if StopOutPost = 1 then
if instr(Request.ServerVariables("http_referer"),"http://"&Request.ServerVariables("server_name")&"") = 0 then error("<li>来源错误")
end if
end sub
sub ForumTree(selec)
sql="Select * From bbsconfig where id="&selec&""
Set Rs1=Conn.Execute(sql)
if not rs1.eof then
ForumTreeList="<span id=temp"&selec&"><a onmouseover=loadtree('"&selec&"') href=ShowForum.asp?forumid="&Rs1("id")&">"&Rs1("bbsname")&"</a></span> → "&ForumTreeList&""错误行
ForumTree Rs1("followid")
end if
Set Rs1 = Nothing
end sub
sub menu(selec)
sql="Select * From menu where followid="&selec&" order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
if rs1("followid")=0 then
%> | <a onMouseOver="showmenu(event,'<%menu(rs1("id"))%>')" style=cursor:default><%=rs1("name")%></a><%
else
response.write "<div class=menuitems><a href="&rs1("url")&">"&rs1("name")&"</a></div>"
end if
rs1.movenext
loop
Set Rs1 = Nothing
end sub
sub ClubTree
sql="Select * From bbsconfig where followid=0 and hide=0 order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
ClubTreeList=ClubTreeList&"<div class=menuitems><a href=ShowForum.asp?forumid="&Rs1("id")&">"&Rs1("bbsname")&"</a></div>"
rs1.movenext
loop
Set Rs1 = Nothing
response.write "<a onmouseover="&Chr(34)&"showmenu(event,'"&ClubTreeList&"')"&Chr(34)&" href=main.asp>"&clubname&"</a>"
end sub
sub BBSList(selec)
sql="Select * From bbsconfig where followid="&selec&" and hide=0 order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
Response.write "<option value="&rs1("ID")&">"&string(ii," ")&""&rs1("bbsname")&"</option>"
ii=ii+1
BBSList rs1("id")
ii=ii-1
rs1.movenext
loop
Set Rs1 = Nothing
end sub
sub xpBBSList(selec)
sql="Select * From bbsconfig where followid="&selec&" and hide=0 order by SortNum"
Set Rs1xp=Conn.Execute(sql)
do while not rs1xp.eof
Response.write "<option value=ShowForum.asp?forumid="&rs1xp("ID")&">"&string(ii," ")&""&rs1xp("bbsname")&"</option>"
ii=ii+1
xpBBSList rs1xp("id")
ii=ii-1
rs1xp.movenext
loop
Set Rs1xp = Nothing
end sub
if Application(CacheName&"CountForum")=empty then Application(CacheName&"CountForum")=conn.execute("Select count(id) from [forum]")(0)
if Application(CacheName&"CountReforum")=empty then Application(CacheName&"CountReforum")=conn.execute("Select sum(replies) from [forum]")(0)
if Application(CacheName&"CountReforum")<1 then Application(CacheName&"CountReforum")=0
if Application(CacheName&"CountUser")=empty then Application(CacheName&"CountUser")=conn.execute("Select count(id) from [user]")(0)
%>
