setup.asp

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

	strsplit(2)=Trim(strsplit(2))
%>
	<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" >
	<tr>
	<td  height="25" background=images/title_sub.gif >
	　■<b> </b>您的个人状态</td>
	</tr>
	</table>

	<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" >
	<tr>
	<td align="middle" width="35" bgColor="#ecf5ff" >
	<img src="images/mystate.gif"></td>
	<td bgColor="#f2f8ff" >
		<table cellSpacing="0" cellPadding="3" width="100%" border="0" >
		<tr>
		<td >
			<table border="0" cellpadding="0" cellspacing="0" width="100%" >
			<%if Request.Cookies("User")<>"" Then
			Sql="Select UserPrestige,UserMoney,UserID From UserInfo where UserID="&Request.Cookies("User")
			Set rs = Conn.Execute(Sql)
			%>
			<tr>
			<td width="188" ><%=conn.execute("Select UserName_1 from UserInfo where UserID="&Request.Cookies("User"))(0)%> - 有 <font face="Georgia, Times New Roman, Times, serif"><%=Rs("UserPrestige")%>                   条新留言</font></td>
			<td width="169" >用户类型：<%=USleve%></td>
			<td width="137" >预付款:<%=FormatCurrency(Rs("UserMoney"))%></td>
			<td  width="120">订单数:<%=conn.execute("Select count(Ordersingle) from OrderList where OrderUserID="&Request.Cookies("User"))(0)%></td>
			<td  width="111">用户号码:<%= Rs("UserID") %></td>
			</tr>
			<% 
			Conn.Close
			Set Rs = Nothing
			End If %>

			<tr>
			<td width="25%">您的ＩＰ：<font face="Georgia, Times New Roman, Times, serif"><%=Request.ServerVariables("REMOTE_ADDR")%></font></td>
			<td width="20%">端口：<font face="Georgia, Times New Roman, Times, serif"><%=Request.ServerVariables("REMOTE_PORT")%></font></td>
			<td width="20%">操作系统：<%=strsplit(2)%></td>
			<td colspan="2">浏览器：<%=strsplit(1)%></td>
			
			</tr>
			
			</table>
		</td>
		</tr>
		</table>
	</td>
	</tr>
	</table>
<%

End Sub


Sub Online%>
	<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; BORDER-COLLAPSE: collapse">
	<tr>
	<td height="25" background=images/title_sub.gif >
	<b>&nbsp;■ 在线统计</b>
	</td>
	</tr>
	</table>
	<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="4" width="100%" border="1" >
	<tr>
	<td align="middle" width="35" bgColor="#ecf5ff" >
	<img src="images/online.gif"></td>
	<td vAlign="top" bgColor="#f2f8ff" ><img loaded="no" src="images/plus.gif" id="followImg9" style="CURSOR:hand" onclick="loadThreadFollow(9)" border="0">
	目前商城总共有 <font color="#ff0000"><%= Application(registered&"OR") %></font>
	人在线。其中注册用户 <font color="#ff0000"><%= Application(registered&"OR1") %></font> 人，访客 
	<font color="#ff0000"><%= Application(registered&"OR2") %></font> 人。<br>
    </td>
	</tr>
	<tr style="DISPLAY:none" id="follow9"> 
    <td colspan="5" id="followTd9" >
		<div onclick="loadThreadFollow(9)">
		<table width="100%" cellpadding="0">
		<tr>
		<td width="100%">加载中，请稍等....</td>
		</tr>
		</table>
		</div>
	</td>
	</tr>
	</table>
<%End Sub
'----------------------------------------------分类输出--------------------------------------------
Sub listsort
	sql="select SortID,SortCnName,SortSon From Product_Sort where SortDad=0 order by SortNum"
		Set Rs=Conn.Execute(sql)
		do while not rs.eof
			Response.write " <option value="&rs("SortID")&">&nbsp;&nbsp;"&rs("SortCnName")&"</option>"
			if rs("SortSon")<>0 then sort(rs("SortID"))
			rs.movenext
		loop
	rs.close
Set Rs = Nothing
end sub

sub sort(id)
	sql="Select SortID,SortCnName,SortSon From Product_Sort where SortDad="&id&" order by SortNum"
	Set Rs1=Conn.Execute(sql)
	do while not rs1.eof 
	Response.write " <option value="&rs1("SortID")&">&nbsp;&nbsp;&nbsp;&nbsp;"&rs1("SortCnName")&"</option>"
	Uid=rs1("SortID")
	if rs1("SortSon")<>0 then sort(Uid)
	rs1.movenext
	loop
	Set Rs1 = Nothing
end sub


'----------------------------------------------产品所在类别--------------------------------------------
Function SortA(ID,SortName)
	Sql="Select SortID,SortCnName,SortDad From Product_Sort where SortID="&ID
	Set Rs = Conn.Execute(Sql)
	if Not Rs.Eof Then
	SortName=SortName&"&nbsp;&nbsp;<a href=SortList.asp?SortId="&Rs("SortID")&"><font color=#004080>"&Rs("SortCnName")&"→</font></a>,"
	Dadid=Rs("SortDad")
	Rs.Close
		if Dadid>0 Then 
			SortA Dadid,SortName 
		Else
			SortN=Split(SortName,",")
			For i=Ubound(SortN) to 0 step -1
			Response.write SortN(i)
			next
		End if
	End if
	Set Rs = Nothing
End Function

'----------------------------------------------登陆验证--------------------------------------------
Function validate(leap,leve)
	if Request.Cookies("User")="" or Request.Cookies("password")="" or Request.Cookies("Product")="" Then
	response.redirect leap
	else
	Userid=Replace(Replace(Request.Cookies("User")," ",""),"'","")
	password=Replace(Replace(Request.Cookies("password")," ",""),"'","")
	if IsNumEric(Userid)=False then error 1,"非法操作!\n您的IP已被记录！",""
	Sql="Select UserPsd,UserGrade From UserInfo where UserID="&Userid&" and UserPsd = '"&password&"' and DelThis=False"
	Set Rs = Conn.Execute(Sql)
	if Rs.eof or Rs.bof then Error 2,"错误的登陆信息！\请重新登陆！",""
'	if trim(Rs("UserPsd")) <> password Then Error 2,"错误的登陆信息！\请重新登陆！",""
	if trim(Request.Cookies("Product")) <> trim(rs("UserGrade")) Then Response.Cookies("Product")=trim(rs("UserGrade"))
	if Cint(Request.Cookies("Product")) < Cint(leve) then Error 2,"您没有权限进入！",""
	rs.close
	Set Rs = Nothing
	end if
end function
'----------------------------------------------在线人员--------------------------------------------
Sub OnlineUs
	dim rs,Sql
	Set rs = Server.CreateObject("ADODB.Recordset")
	Sql="Select UsSessionid,UsID,UsName,UsIP,UsHead,UsOTime,UsUTime From Online Where UsSessionid = "&session.sessionid&" or UsIP='"&Request.ServerVariables("remote_addr")& "' and UsID='"&Request.Cookies("User")&"'"
	Rs.Open Sql,Conn,1,3
	if Request.Cookies("User")="" Then
	  UsID=-1
	  UsName="游客"
	  Head=""
	Else
	  UsID=Request.Cookies("User")
	  Head=conn.execute("Select UserHead from UserInfo where UserID="&UsID)(0)
	  UsName=conn.execute("Select UserName_2 from UserInfo where UserID="&UsID)(0)
	  if UsName="" Then UsName=conn.execute("Select UserName_1 from UserInfo where UserID="&UsID)(0)
	End if
	
	If Rs.Eof Then
	Rs.Addnew
	  Rs("UsSessionid")=session.sessionid
	  Rs("UsID")=UsID
	  Rs("UsName")=UsName
	  Rs("UsIP")=Request.ServerVariables("remote_addr")
	  Rs("UsHead")=Head
	  Rs("UsUTime")=Now
	  Rs.Update
	Else
	  Rs("UsHead")=Head
	  Rs("UsID")=UsID
	  Rs("UsName")=UsName
	  Rs("UsUTime")=Now
	  Rs.Update
	End if
	Rs.Close
	Set Rs = Nothing
End Sub
%></body>