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

📄 setup.asp

📁 秘密网源代码 传闻拉了 100W风投
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!-- #include file="Conn.asp" -->
<%
Server.ScriptTimeout=SiteConfig("Timeout")	'设置脚本超时时间 单位:秒
ii=0
startime=timer()
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=SiteConfig("MetaKeywords")%>" />
<meta name="description" content="<%=SiteConfig("MetaDescription")%>" />
<meta name="GENERATOR" content="netwolf,9494583(at)163.com" />
<Link rel="stylesheet" type="text/css" href="skin/<%=RequestCookies("skin")%>/Common.css" />
</head>
<script type="text/javascript" src="Utility/global.js"></script>
<script type="text/javascript" src="Utility/Wo_Modal.js"></script>
<script type="text/javascript" src="skin/<%=RequestCookies("skin")%>/Common.js"></script>
<%

if SiteConfig("BannedIP")<>"" then
	filtrate=split(SiteConfig("BannedIP"),"|")
	for i = 0 to ubound(filtrate)
		if instr("|"&Request.ServerVariables("REMOTE_ADDR")&"","|"&filtrate(i)&"") > 0 then error(""&Request.ServerVariables("REMOTE_ADDR")&"被禁止进入！")
	next
end if

if SiteConfig("EnableBannedUsersToLogin")=0 and UserAccountStatus=2 then error("您的帐号已被禁用！")

script_name=LCase(Request.ServerVariables("script_name"))
if Request.ServerVariables("Request_method") = "POST" then
	if instr(""&ReturnUrl&"","http://"&Request.ServerVariables("server_name")&"") = 0 and instr(script_name,"login.asp")=0 then error("<li>引用页错误！"&http_referer&"<li>系统无法识别您的引用页！<li>建议您关闭防火墙后再提交此信息！")
end if

if SiteConfig("SiteDisabled")=1 then
	if instr(script_name,"admin_") = 0 and instr(script_name,"login.asp")=0 and instr(script_name,"install.asp")=0 then error("维护中，系统暂时关闭，请稍后访问！")
end if


''''''''''''''''''''''
Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	On Error GoTo 0
End Function
'''''''''''''''''''''''''''''''''
Function DelFile(DelFilePath)
	On Error Resume Next
	DelFile= False
	set MyFileObject=Server.CreateOBject("Scripting.FileSystemObject")
	MyFileObject.DeleteFile""&Server.MapPath(""&DelFilePath&"")&""
	Set MyFileObject= Nothing
	If 0 = Err or 53 = Err Then
		DelFile= True
	else
		Alert("出错讯息："&Err.Description&"\n"&DelFilePath&" 无法删除！")
	end if
	On Error GoTo 0
End Function
'''''''''''''''''''''''''
Function CheckSize(ByteSize)
	if ByteSize=>1073741824 then
		ByteSize=formatnumber(ByteSize/1073741824)&" GB"
	elseif ByteSize=>1048576 then
		ByteSize=formatnumber(ByteSize/1048576)&" MB"
	elseif ByteSize=>1024 then
		ByteSize=formatnumber(ByteSize/1024)&" KB"
	else
		ByteSize=ByteSize&" 字节"
	end if
	CheckSize=ByteSize
End Function
'''''''''''''''''''''''''''''''''''''''''''
Function ShowRole(RoleID)
	if RoleID=1 then
		RoleID="管理员"
	elseif RoleID=2 then
		RoleID="超级组长"
	elseif RoleID=3 then
		RoleID="注册窝友"
	else
		RoleID=Conn.Execute("Select Name From [Wo_Roles] where RoleID="&RoleID&"")(0)
	end if
	ShowRole=RoleID
End Function
''''''''''''''''''
Sub ShowRank(experience)
	sql="Select top 1 * From [Wo_Ranks] where PostingCountMin<="&experience&" order by PostingCountMin Desc"
	Set UserRank=Conn.Execute(sql)
		if UserRank.eof then
			RankName="未知等级"
			RankIconUrl="images/level/0.gif"
		else
			RankName=UserRank("RankName")
			RankIconUrl=UserRank("RankIconUrl")
		end if
	Set UserRank = Nothing
End Sub
''''''''''
function Zodiac(birthday)
	if IsDate(birthday) then
		birthyear=year(birthday)
		ZodiacList=array("猴","鸡","狗","猪","鼠","牛","虎","兔","龙","蛇","马","羊")		
		Zodiac=ZodiacList(birthyear mod 12)
	end if
end function
''''
function constellation(birthday)
	if IsDate(birthday) then
		ConstellationMon=month(birthday)
		ConstellationDay=day(birthday)
		if Len(ConstellationMon)<2 then ConstellationMon="0"&ConstellationMon
		if Len(ConstellationDay)<2 then ConstellationDay="0"&ConstellationDay
		MyConstellation=ConstellationMon&ConstellationDay
		if MyConstellation < 0120 then
			constellation="<img src=images/Constellation/g.gif title='魔羯座 Capricorn'>"
		elseif MyConstellation < 0219 then
			constellation="<img src=images/Constellation/h.gif title='水瓶座 Aquarius'>"
		elseif MyConstellation < 0321 then
			constellation="<img src=images/Constellation/i.gif title='双鱼座 Pisces'>"
		elseif MyConstellation < 0420 then
			constellation="<img src=images/Constellation/^.gif title='白羊座 Aries'>"
		elseif MyConstellation < 0521 then
			constellation="<img src=images/Constellation/_.gif title='金牛座 Taurus'>"
		elseif MyConstellation < 0622 then
			constellation="<img src=images/Constellation/`.gif title='双子座 Gemini'>"
		elseif MyConstellation < 0723 then
			constellation="<img src=images/Constellation/a.gif title='巨蟹座 Cancer'>"
		elseif MyConstellation < 0823 then
			constellation="<img src=images/Constellation/b.gif title='狮子座 Leo'>"
		elseif MyConstellation < 0923 then
			constellation="<img src=images/Constellation/c.gif title='处女座 Virgo'>"
		elseif MyConstellation < 1024 then
			constellation="<img src=images/Constellation/d.gif title='天秤座 Libra'>"
		elseif MyConstellation < 1122 then
			constellation="<img src=images/Constellation/e.gif title='天蝎座 Scorpio'>"
		elseif MyConstellation < 1222 then
			constellation="<img src=images/Constellation/f.gif title='射手座 Sagittarius'>"
		elseif MyConstellation > 1221 then
			constellation="<img src=images/Constellation/g.gif title='魔羯座 Capricorn'>"
		end if
	end if
end function
'''''''
Sub HtmlTop
IsResponseTop=1
%>
<body><%=GenericHeader%>
<script language="JavaScript">
	if(typeof(WoTop)=="undefined")
	{
		document.cookie = "skin=<%=SiteConfig("DefaultSiteStyle")%>;path=<%=DomainPath%>";
	}else{
   		WoTop()
	}
</script>
<script language="javascript" src="js/menu.js"></script>
<div id="menu"  onmouseout="outmouse(-1)" onmouseover="outmouse(1)" class="gsmymenu">
  <a href="SrcSubmit.asp" class="pogood">发布分享信息</a>
  <hr><a href="Profile.asp?UserName=<%=CookieUserName%>" title="我的主页">我的主页</a>
  <a href="group.asp" title="一起聊聊好东东">去圈子讨论</a>
  <hr>
<a href="MyFavorites.asp">我的收藏</a>
<a href="EditProfile.asp">修改资料</a>
<a href="EditProfile.asp?menu=pass">修改密码</a>
<a href="MyUpFiles.asp">上传管理</a>
<a href="MyMessage.asp">短信服务</a>
<a href="help.asp">帮助中心</a>
</div> 
<div id="webmastermenu"  onmouseout="outmouse(-2)" onmouseover="outmouse(2)" class="gsmymenu">
  <a href=Moderation.asp?checkbox=1>主题管理</a>
  <hr>
  <a href=Moderation.asp?menu=Censorship&checkbox=1>主题审核</a>
  <hr>
<a href=Moderation.asp?menu=Recycle&checkbox=1>回 收 站</a>
</div> 
<DIV id="CommonHeader">
<div id="nav">
  <div id="navmain">
    <div id="navlogo"><a href="Default.asp" title="返回首页"><h1>返回首页</h1></a></div>   
    <div id="navuserbar">
<%if CookieUserName=empty then%>
      <ul class="welcome">
      	<li class="barleft"><b></b></li>
      	<li>欢迎您，</li>
      	<li>请你<a href="login.asp">登录</a></li>
      	<li>或者<a href="CreateUser.asp">注册</a></li>
      	<li class="barright"><b></b></li>
      </ul>
<%else%>
<form name=LoginOut method=Post action=Login.asp><input type=hidden name=Menu value=OUT></form>
<ul class="welcome">
      	<li class="barleft"><b></b></li>
        <li><a href="javascript:;" onmouseout="outmouse(-1)" onmouseover="show('menu',this);" class="mmenu">菜单</a>|</li>
<%
	menu(0)
	response.write "<li><a onclick='return log_out()'>退出</a></li>"
	if BestRole=1 then
%>
<li><a href="javascript:;" onmouseout="outmouse(-1)" onmouseover="show('webmastermenu',this);">审核</a></li>
<%
	end if
	if UserRoleID = 1 then response.write "  <li><a href=admin/admin.html target=_top>管理</a></li>"
end if
%>
<li class="barright"><b></b></li> </ul></div>
<div id="navsubject"><ul>
<li><a href="Default.asp" title="网站首页">首页</a></li>
<li><span class="wula"><a href="jiuoo.asp" title="分享信息聚合">分享</a></span></li>
<li><span class="qunzu"><a href="group.asp" title="秘友群体圈子">圈子</a></span></li>
<%if CookieUserName<>empty then %>
<li><a href="Profile.asp?UserName=<%=CookieUserName%>" title="我的地盘">我的地盘</a></li>
<li><a href="tags.asp" title="标签"><span>标签(Tags)</span></a></li>
<%else%>
<li><a href="tags.asp" title="标签"><span>标签(Tags)</span></a></li>
<%end if%>
<li><a href="search.asp" title="搜索秘密"><span>搜索秘密</span></a></li>
<li><a href="isay.asp" title="更多评论"><span>评论</span></a></li>
<li><a href="ViewOnline.asp" title="查看在线的秘友"><span>Online</span></a></li>
      </ul></div> </div>
  <%
Str_Child = ""
	Set Rs_Child=Server.CreateObject("adodb.recordset")
	Sql_Child = "Select * from Wo_SrcChild Where Child_TypeID="&Session("_WTypeID")&" and Child_IsUse=true Order By Child_OrderBy"
	Rs_Child.Open Sql_Child,conn
	if not Rs_Child.eof then
		while not Rs_Child.eof
			Str_Child = Str_Child & "| <a href='jiuoo.asp?Src_Child="&Rs_Child("Child_ID")&"'><font color=#2F5FA1>" & Rs_Child("Child_Name") & "</font></a>"
			Rs_Child.MoveNext
		wend
	end if
	Rs_Child.Close
	Set Rs_Child = Nothing
%>
<div id="navsub">
<ul class="tdl">
<li><a href="jiuoo.asp">分类</a><%=Str_Child%></font></li>
</ul>
 <ul class="tdr">
<li><a href="SrcSubmit.asp" title="发布分享秘密"><img src="images/SrcSubmit.gif" border="0" align="absmiddle" /></a></li>
</ul>
</div>
</div>

<div id="CommonBody">
<%
'''如果有短讯息'''
if NewMessage>0 then
	response.Write("<table width='100%'><tr><td width='100%' align='right'><a href='MyMessage.asp'><img src='images/NewMail.gif' border='0' /><font color='#900000'>您有 "&NewMessage&" 条新讯息，请注意查收</font></a></td></tr></table>")
end if
'''''''''''''
End Sub
'''''''''
Sub HtmlBottom
	ProcessTime=FormatNumber((timer()-startime))
	if ProcessTime<1 then ProcessTime="0"&ProcessTime
%>
</div>
	
<div id="foot"><div class="so"><%=GenericBottom%></div>
</div>
<script language="JavaScript">WoBottom()</script>
</body>
<title><%=SiteConfig("SiteName")%> - 绵阳秘密网,发现,体验,分享,快乐</title>
</html>
<%
	Response.End
End Sub
Sub AdminTop
	response.write "<body><div id=CommonListCell  style='PADDING-TOP:15px; PADDING-RIGHT:5px; PADDING-LEFT:5px; PADDING-BOTTOM:15px;text-align:center;'>"
End Sub
Sub AdminFooter
	ProcessTime=FormatNumber((timer()-startime))
	if ProcessTime<1 then ProcessTime="0"&ProcessTime
	response.write "<hr width=80% SIZE=0 id=CommonListArea />Powered by MyMMS &nbsp;&copy; 2005-"&year(now)&"<br>Server Time "&now()&"<br>Processed in "&ProcessTime&" second(s)</div></body></html>"
End Sub
''''''''''''''''''''''''''''''''
Function succeed(Message,Url)
if IsResponseTop<>1 then HtmlTop
if Left(Message,4)<>"<li>" then Message="<li>"&Message
%>
<table width="900" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td><div id="CommonBreadCrumbArea"><%ClubTree%> → 提示信息</div></td>
  </tr>
</table>
<table cellspacing="1" cellpadding="0" width=900 id=CommonListArea align="center">
<tr id=CommonListTitle3>
<td width="100%" align="center">提示信息</td></tr>
<tr id=CommonListCell>
<td valign="top" align="Left" height="122">
<table cellspacing="0" cellpadding="0" width=900 border="0">
<tr><td width="83%" valign="top">
<b><span id="yu">0</span>秒钟后系统将自动返回...</b>
<ul>
<%=Message%>
<li><a href=Default.asp>返回首页</a></li>
<%if ReturnUrl<>"" then%><li><a href=<%=ReturnUrl%>><%=ReturnUrl%></a></li><%end if%></ul>
</td>
<td width="17%"></td>
</tr></table></td></tr>
</table>
<script language="JavaScript">
function countDown(secs){
	document.getElementById("yu").innerHTML=secs;
	if(--secs>0) {
		setTimeout("countDown("+secs+")",1000);
	}
	else {
		window.location.href="<%=Url%>";
	}
}
countDown(5);
</script>
12

⌨️ 快捷键说明

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