setup.asp

1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数 据 库：Access2000

<!-- #include file="inc/App.asp" -->
<!-- #include file="Conn.asp" -->
<meta name=keywords content="电子商务,Shop,玩具,终身保修工具,网上购物,B to B,B to C,电子商务程序,购买,ShopII.com">
<% 
if Request.Cookies("eremite")="" then
	Response.Cookies("eremite")="0"
	Response.Cookies("eremite").Expires=date+3650
	Response.write "<title>Shopii电子商务社区</title>"
	Response.write "<meta HTTP-EQUIV=REFRESH CONTENT=3>登陆中...<br><br>本Shop系统要求使用COOKIES, 如果您的浏览器禁用COOKIES, 您将不能登录本电子商务系统..."
	Response.end
end if

if cstr(Request.Cookies("now"))>cstr(now-0.00001) then
	Response.Cookies("now")=now
	Response.write "<title>Shopii电子商务社区</title>"
	response.write "<meta HTTP-EQUIV=REFRESH CONTENT=1>本电子商务系统采用了防刷新机制...请稍等..."
	response.end
end if


Response.Cookies("now")=now
Dim BadIp,YouIP,startime,datafile,Conn,rs,Community,BuyNum
Session.TimeOut=30
Server.ScriptTimeout=30
'On Error Resume Next
Response.write "<base onmouseover=""window.status='"&Community&"';return true"">"
BadIp=conn.execute("Select FunctionInfo from Functions where FunctionID=7")(0)
YouIP=Request.ServerVariables("remote_addr")
if instr(BadIp,YouIP)>0 Then Error 1,"对不起，您已经被禁止进入该社区！",""


Community=conn.execute("Select FunctionInfo from Functions where FunctionID=3")(0)
registered=conn.execute("Select FunctionInfo from Functions where FunctionID=16")(0)
Application(registered&"AllBody")=conn.execute("Select count(UserID)from UserInfo")(0)
Var=conn.execute("Select FunctionInfo from Functions where FunctionID=12")(0)
if Application(registered&"BbsMenu")="" Then BbsMenu
if Application(registered&"SortTop")="" Then SortTop
if Application(registered&"SortPl")="" Then SortPlay
if Application(registered&"Friend")="" Then FriendLink
if Application(registered&"ProductI")="" or Application(registered&"ProductII")="" or Application(registered&"ProductIII")=""  Then app
if Application(registered&"bottom")="" Then Application(registered&"bottom")=conn.execute("Select FunctionInfo from Functions where FunctionID=2")(0)
if Ubound(Split(Request.Cookies("OrderProduct"),",")) < 0 then
	BuyNum=0
else
	BuyNum=Ubound(Split(Request.Cookies("OrderProduct"),","))
end if


if Request.Cookies("Product")<>"" Then
Select case Request.Cookies("Product")
	case 0
	USleve="普通用户"
		MoneyN=conn.execute("Select FunctionInfo from Functions where FunctionID=14")(0)
		ProductN="ProductII"
	case 1
	USleve="普通用户"
		MoneyN=conn.execute("Select FunctionInfo from Functions where FunctionID=14")(0)
		ProductN="ProductII"
	case 2
	USleve="VIP会员"
		MoneyN=conn.execute("Select FunctionInfo from Functions where FunctionID=15")(0)
		ProductN="ProductIII"
	case 3
	USleve="社区管理员"
		MoneyN=conn.execute("Select FunctionInfo from Functions where FunctionID=15")(0)
		ProductN="ProductIII"
	case 4
	USleve="商城管理员"
		MoneyN=conn.execute("Select FunctionInfo from Functions where FunctionID=15")(0)
		ProductN="ProductIII"
	case 5
	USleve="总管理员"
		MoneyN=conn.execute("Select FunctionInfo from Functions where FunctionID=15")(0)
		ProductN="ProductIII"
	case 6
	USleve="商城站长"
		MoneyN=conn.execute("Select FunctionInfo from Functions where FunctionID=15")(0)
		ProductN="ProductIII"
End Select
End if


'----------------------------------------------将在线人员信息放入内存--------------------------------------------
if Application(registered&"TTime")="" Then Application(registered&"TTime")=Now - 1
if Request.Cookies("User")="" or DateDiff("n",Application(registered&"TTime"),Now) > (conn.execute("Select FunctionInfo from Functions where FunctionID=24")(0)) Then OnlineRen
'----------------------------------------------出错信息--------------------------------------------
Function error(reaction,message,link)
	message=message
	link=link
	select case reaction
		case 1
			reac="setTimeout('window.top.close()',100 );"
		case 2
			Reac="history.back();"
		case 3
			Reac="location.href='"&link&"';"
	end select
	Response.write "<script language=javascript>alert('"&message&"');javascript:"&reac&"</script>"
	Response.end
End Function
'----------------------------------------------简化输出--------------------------------------------
Function writeln(message)
	Response.write message&"<br>"
End Function
'----------------------------------------------页眉--------------------------------------------
Sub top
	Dim UsName,UsPsd
	UsName=Request.Cookies("User")
	UsPsd=Request.Cookies("password")
	if UsName="" or UsPsd="" or Request.Cookies("Product")="" Then
	TopMenu="<FONT color=#ffffff><A href=login.asp><FONT color=#FFFFFF>请先登陆</FONT></A>&nbsp;|&nbsp;<a href=register.asp><FONT color=#FFFFFF>注册</FONT></a>&nbsp;|&nbsp;<a href=fotgetpsd.asp><FONT color=#FFFFFF>忘记密码</FONT></a>&nbsp;|&nbsp;<a href=search.asp><FONT color=#ffffff>搜索</FONT></a>&nbsp;|&nbsp;<a href=help.asp><FONT color=#ffffff>帮助</FONT></a>"
	else
	NewMessage=conn.execute("Select UserPrestige from UserInfo where UserID="&Request.Cookies("User"))(0)
	TopMenu=conn.execute("Select UserName_1 from UserInfo where UserID="&Request.Cookies("User"))(0)&"&nbsp;<FONT color=#ffffff>|&nbsp;<a href=login.asp><FONT color=#ffffff>更换用户</font></a>&nbsp;|&nbsp;<a href=Usercp.asp><FONT color=#FFFFFF>控制面板</FONT></a>&nbsp;|&nbsp;<a href=search.asp><FONT color=#ffffff>搜索</FONT></a>&nbsp;|&nbsp;<a href=help.asp><FONT color=#ffffff>帮助</FONT></a>"
	End if
	OnlineUs
	%>
	<META http-equiv="Content-Type" content="text/html; charset=GB2312">
	<link href="css.css" rel=stylesheet>
	<script langiage='javascript' src='mouse_on_title.js'></script>
	<body topmargin=0 >
	<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="BORDER-COLLAPSE: collapse"><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=#ffffff>&gt;&gt;&nbsp;欢迎您，</FONT> <%= TopMenu %> </TD>
	<% If NewMessage > 0 Then %>
	<script language="JavaScript">window.open('friend.asp?menu=look','','width=320,height=170')</script>
	<bgsound src="images/msg.mid" balance=0 volume=-90>
	<TD align="right"><a style="TEXT-DECORATION: none" href="message.asp"><img src="images/newmail.gif" border=0> <font color=#990000>您有新的短讯息，请注意查收</font></a></TD>

	<% 
	conn.execute("update UserInfo set UserPrestige=0 where UserID="&Request.Cookies("user"))
	End If %></TR></TBODY>
	</TABLE></TD></TR></TBODY></TABLE><br>
	<%
end sub
'----------------------------------------------页面告栏--------------------------------------------
sub table()%>
	<table width="100%" border="0" style="BORDER-COLLAPSE: collapse" bordercolor="#111111" cellpadding="0">
	<tr>
	<td vAlign="top" width="84" align="center">
	<a href="register.asp"><img src="images/hyzc.gif" border="0"></a></td>
	<td vAlign="center" align="center" width="84" ><p>
	<a href="Usercp.asp">
	<img src="images/kzmb.gif" border="0" width="51" height="70"></a></p></td>
	<td vAlign="center" align="center" width="84" >
	<a href="Quote.asp?menu=Quote">
	<img src="images/cpbj.gif" border="0" width="51" height="70"></a></td>
	<td vAlign="center" align="center" width="85" >
	<a href="search.asp"><img src="images/xxss.gif" border="0"></a></td>
	<td vAlign="center" align="center" width="85" >
	<a href="ShowNew.asp?Menu=BbsList"><img src="images/swsq.gif" border="0"></a></td>
	<td vAlign="center" align="center" width="85" >
	<a href="OrderList.asp?menu=Confirm"><img src="images/gwl.gif" border="0"></a></td>
	<td vAlign="center" align="center" width="85" >
	<a href="Quote.asp?menu=distribution">
	<img src="images/xsph.gif" border="0" width="51" height="70"></a></td>
	<td vAlign="center" align="center" width="86" ><a href="ForcedList.asp"><img src="images/paimai.gif" border="0"></a>　</td>
	<td vAlign="center" align="center" width="84" >
	<a href="help.asp"><img src="images/bzxx.gif" border="0"></a></td>
	</tr>
	</table>
<%end sub

'----------------------------------------------页脚--------------------------------------------
sub htmlend%>
	<hr color="#c4d4e5" size="1" width="60%">
	<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center>
	<TBODY>
	<TR><TD align=middle>
	<br>
	<strong><font color="#990000">Shop</font>II</strong><%=Var%></FONT>&nbsp;页面执行时间：<%=Round(((timer()-startime)*1000),2)%> 毫秒<br>Copyright &copy; 2002 - 2005  <FONT color=#333333>ShopII <a href="http://www.yuzi.net" target="_blank">Yuzi工作室</a> 版权所有</FONT> <br> <%=Application(registered&"bottom")%>
	</TD></TR></TBODY></TABLE>
	<%
	'Conn.Close
	Set Conn = Nothing	
	response.end
end sub
'----------------------------------------------用户状态--------------------------------------------
Sub Userinfo()
	strsplit=split(Request.Servervariables("HTTP_USER_AGENT"),";")
	strsplit(1)=replace(strsplit(1),"MSIE","Internet Explorer")
	strsplit(2)=replace(strsplit(2),")","")
	strsplit(2)=replace(strsplit(2),"NT 5.0","2000")
	strsplit(2)=replace(strsplit(2),"NT 5.1","XP")
	strsplit(2)=replace(strsplit(2),"NT 5.2","2003")
	strsplit(1)=Trim(strsplit(1))