⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 setup.asp

📁 ASP整套的建站源代码
💻 ASP
字号:
🔍 
<%
datapath="../database/"  '数据库目录的相对路径
datafile=""&datapath&"#bbs004f0411.mdb"  '数据库的文件名(默认：#bbsxp.mdb)
Server.ScriptTimeout=30  '连接超时最大时间

startime=timer()

if ""&Request.Cookies("eremite")&""="" then
Response.Cookies("eremite")="0"
Response.Cookies("eremite").Expires=date+3650
response.write "<meta HTTP-EQUIV=REFRESH CONTENT=3>登陆中...<br><br>本系统要求使用COOKIES, 如果您的浏览器禁用COOKIES, 您将不能登录本系统..."
response.end
end if


if cstr(Request.Cookies("now"))>cstr(now-0.00001) then
Response.Cookies("now")=now
response.write "<meta HTTP-EQUIV=REFRESH CONTENT=3>Loading..."
response.end
end if
Response.Cookies("now")=now

remoteaddr=Request.ServerVariables("REMOTE_ADDR")

Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="&server.mappath(datafile)&";DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open Connstr
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "clubconfig",Conn
clubname=rs("clubname")
cluburl=rs("cluburl")
associatortol=rs("associatortol")
newassociator=rs("newassociator")
administrators=rs("administrators")
adminpassword=rs("adminpassword")
homeurl=rs("homeurl")
homename=rs("homename")
affichetitle=rs("affichetitle")
affichecontent=rs("affichecontent")
affichetime=rs("affichetime")
afficheman=rs("afficheman")
badwords=rs("badwords")
badip=rs("badip")
allclass=rs("allclass")
selectmail=rs("selectmail")
smtp=rs("smtp")
smtpmail=rs("smtpmail")
ybbimg=rs("ybbimg")
ybbflash=rs("ybbflash")
MailServerUserName=rs("MailServerUserName")
MailServerPassword=rs("MailServerPassword")
SendPassword =rs("SendPassword")
rs.close


filtrate=split(badip,"|")
for i = 0 to ubound(filtrate)
if instr(remoteaddr,""&filtrate(i)&"") > 0 then
response.redirect "badip.htm"
end if
next

Set rs1 = Server.CreateObject("ADODB.Recordset")

dim userface,membercode,newmessage,succtitle

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub top
if Request.Cookies("username")<>"" then
Set us = Server.CreateObject("ADODB.Recordset")
sql="select * from user where username='"&Request.Cookies("username")&"'"
us.Open sql,Conn,1,3
on error resume next  '找不到用户资料时候忽略错误
if Request.Cookies("userpass")<>us("userpass") then
Response.Cookies("username")=""
Response.Cookies("userpass")=""
end if
userface=""&us("userface")&""
membercode=us("membercode")
newmessage=us("newmessage")
''''''''''''''''''第一次来'''''''''''''''''''''''''''''
if ""&Request.Cookies("onlinetime")&""="" then
us("degree")=us("degree")+1
us("landtime")=now
us.update
Response.Cookies("onlinetime")=now
Response.Cookies("addmin")=0
''''''''如果停留10分钟：经验值: +1 体力值：+10''''''''''''''''''''
elseif DateDiff("s",Request.Cookies("onlinetime"),Now())>600 then
us("experience")=us("experience")+1
us("landtime")=now
if us("userlife")>90 then
us("userlife")=100
else
us("userlife")=us("userlife")+10
end if
us.update
Response.Cookies("onlinetime")=now
Response.Cookies("addmin")=Request.Cookies("addmin")+10
end if
us.close
set us=nothing
''''''''''''''''''''''''''''
end if
%>
<HTML>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<link href=images/bbs.css rel=stylesheet>
<LINK href="images/ybb.ico" rel="SHORTCUT ICON">
<base onmouseover="window.status='<%=clubname%>　<%=cluburl%>';return true">
<body topmargin=0>
<SCRIPT>
document.write("<DIV id=yuzi style='right:16px;POSITION:absolute;TOP:1px;'><a href='javascript:history.back()' title='后退'><img border=0 src='images/bbsclose.gif'></a></div>");
lastScrollY=0;
function heartBeat(){
diffY=document.body.scrollTop;
percent=.1*(diffY-lastScrollY);
if(percent>0)percent=Math.ceil(percent);
else percent=Math.floor(percent);
document.all.yuzi.style.pixelTop+=percent;
lastScrollY=lastScrollY+percent;
}
window.setInterval("heartBeat()",1);
</script>
<!-- #include file="top.asp" -->
<TABLE cellSpacing=0 cellPadding=1 width=750 align=center border=0><TBODY><TR>
<TD height=2 background=images/title_sub.gif><TABLE style=COLOR:000000;BORDER-COLLAPSE:collapse cellSpacing=0 cellPadding=4 width=100% border=0>
<TBODY><TR>
          <TD><font color="#000000">&gt;&gt;欢迎您，</font> 
            <%
if Request.Cookies("username")="" then
%><FONT color=#ffffff>
            <A href=login.asp><font color="#000000">请先登陆</font></A>| <a href=register.asp><font color="#000000">注册</font></a> 
            | <a href=modification.asp><font color="#000000">忘记密码</font></a> | 
            <A href=online.asp><font color="#000000">在线人员</font></A> | <a href=search.asp?forumid=<%=Request("forumid")%>><font color="#000000">搜索</font></a> 
            | <a href=help.asp><font color="#000000">帮助</font></a> </TD>
        </TR></TBODY></TABLE></TD></TR></TBODY></TABLE><br>
<%else%>
<%=Request.Cookies("username")%> <FONT color=#ffffff> <A href=login.asp><font color="#000000">更换用户</font></A> 
<%
if Request.Cookies("eremite")=0 then
response.write " | <A title=改变当前状态 href=cookies.asp?menu=eremite><FONT color=#000000>隐身</FONT></A>"
else
response.write " | <A title=改变当前状态 href=cookies.asp?menu=online><FONT color=#FF0000>上线</FONT></A>"
end if
%>
<font color="#000000">|</font> <A title=编辑您的个人资料 href=usercp.asp><font color="#000000">控制面板</font></A> 
<font color="#000000">|</font> <A title=查看在线会员资料 href=online.asp><font color="#000000">在</font><FONT color=ffffff><font color="#000000">线人员</font></FONT></A> 
<font color="#000000">|</font> <a href=search.asp?forumid=<%=Request("forumid")%>><font color="#000000">搜索</font></a> 
<font color="#000000">|</font> <a href=help.asp><font color="#000000">帮助</font></a> 
<%
select case membercode
case "5"
response.write " | <A href=admin.asp><FONT color=#FF0000>管理</FONT></A> | <A href=recycle.asp><FONT color=#000000>回收站</FONT></A>"
case "4"
response.write " | <A href=recycle.asp><FONT color=ffffff>回收站</FONT></A>"
end select
%></TD>
<TD background=images/title_sub.gif><FONT color=000000>已经停留 <FONT color=red><%=DateDiff("n",Request.Cookies("onlinetime"),Now())+Request.Cookies("addmin")%></FONT> 分钟　 &nbsp;</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<SCRIPT src=images/menu.js></SCRIPT>
<%
'''''如果有短讯息''''''''''''''''''''''
if newmessage>0 then
%>
<bgsound src=images/msg.mid loop=<%=newmessage%>>
<table width=750 align=center><tr><td align=right>
<a style="text-decoration: none" href=message.asp><img src=images/newmail.gif border=0> <font color=990000>您有<%=newmessage%>条短讯息，请注意查收</font></a>
</td></tr></table>
<%
else
response.write "<br>"
end if
'''''''''''''
end if

end sub
''''''''''''''''''''''''''''''''
sub succeed(message)
top
%>
<title><%=succtitle%></title>
<table width=750 align="center" border="0">
<tr>
    <td vAlign="top" width="30%"><img src="images/sitesystemver5.0.gif" width="200" height="40"> 
    </td>
<td vAlign="center" align="top">&nbsp;<font color=#000000><img src="images/closedfold.gif" width="14" height="14">　<a href="index.asp"><%=clubname%></a><br>
&nbsp;<img height=15 src="images/coner.gif" width=15><img height=14 src="images/closedfold.gif" width=14>　<%=succtitle%> </font></td>
</tr>
</table>
<br>
<table cellSpacing="0" cellPadding="0" width="750" align="center" border="0">
<tr>
<td height="106" bgColor="#a4b6d7">
<table cellSpacing="1" cellPadding="6" width="100%" border="0">
<tr>
          <td align="middle" height="97" background=images/title_sub.gif> <font color="#000000"><b>状态：<%=succtitle%></b></font></td>
</tr>
<tr bgColor="#ffffff">
<td vAlign="top" align="left" height="122">
<b>&nbsp;</b><table cellSpacing="0" cellPadding="5" width="100%" border="0">
<tr>
                <td width="83%" valign="top"> <b><span id=yu>3</span>秒钟后系统将自动返回(南侠提醒您）...</b> 
                  <ol><%=message%></ol>
</td>
<td width="17%">
<img height="97" src="images/succ.gif" width="95"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</font>
</font>
<script>function countDown(secs){yu.innerText=secs;if(--secs>0)setTimeout("countDown("+secs+")",1000);}countDown(3);</script>
<%
htmlend
end sub
''''''''''''''''''''''''''''''
sub error(message)
top
%>
<title>错误信息</title>
<table width=750 align="center" border="0">
<tr>
    <td vAlign="top" width="30%">&nbsp; </td>
<td vAlign="center" align="top">&nbsp;<font color=#000000><img src="images/closedfold.gif" width="14" height="14">　<a href="index.asp"><%=clubname%></a><br>
&nbsp;<img height=15 src="images/coner.gif" width=15><img height=14 src="images/closedfold.gif" width=14>　错误：:::错误信息:::</font></td>
</tr>
</table>
<br>
<table cellSpacing="0" cellPadding="0" width="750" align="center" border="0">
<tr>
<td height="106" bgColor="#a4b6d7">
<table cellSpacing="1" cellPadding="6" width="100%" border="0">
<tr>
<td align="middle" colSpan="2" height="20" background=images/title_sub.gif>
<font color="#000000"><b>错误：:::错误信息:::</b></font></td>
</tr>
<tr bgColor="#ffffff">
<td vAlign="top" align="left" colSpan="2" height="122">
<b>&nbsp;</b><table cellSpacing="0" cellPadding="5" width="100%" border="0">
<tr>
<td width="83%" valign="top">
<b>关于错误的可能原因：</b><ol>
<%=message%></ol>
</td>
<td width="17%">
<img height="97" src="images/err.gif" width="95"></td>
</tr>
</table>
</td>
</tr>
<tr align="middle" bgColor="#ffffff">
<td vAlign="center" colSpan="2" height="2">
<input onclick=history.back(-1) type="submit" value=" &lt;&lt; 返 回 上 一 页 " name="Submit" >
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
htmlend
end sub
sub error2(message)
%>
<META http-equiv=Content-Type content=text/html;charset=gb2312><script>alert('<%=message%>');history.back();</script><script>window.close();</script>
<%
responseend
end sub
''''''''''''''''''''''''''''''
sub htmlend
%>
<br>
<TABLE cellSpacing=0 cellPadding=0 width=390 align=center bgColor=c4d4e5 border=0>
<TBODY><TR><TD>
<TABLE cellSpacing=1 cellPadding=6 width=390 border=0><TBODY></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center>
<TBODY>
<TR><TD align=middle>
本论坛言论纯属发表者个人意见，与<FONT color=#990000><B> <a target="_blank" href="<%=homeurl%>"><%=homename%></a> </B></FONT>立场无关
<br><FONT color=#333333>
      LINKNETBBS <a target="_blank" href="http://www.163163.cn.st"><font color="#000000">互联时代网络高速工作室</font></a> 
      版权所有　　<a target="_blank" href="http://www.163163.cn.st"><font color="#000000">LINKNETBBS 
      <font color="#000000"></font> Ver 1.50</font></a><br>
      页面执行时间：<%=(timer()-startime)*1000%> 毫秒</TD></TR></TBODY></TABLE></BODY></HTML>
<%
responseend
end sub


sub responseend
Conn.close
set rs=nothing
set rs1=nothing
set conn=nothing
response.end
end sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -