<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
	data_path="../" 'ACC连接数据库路径，对SQL无效
	numid="no"
	dir="no" 
  %>
<!--#include file="../conn/conn.asp" -->
<!--#include file="../inc/safe.asp"-->
<!--#include file="../inc/classcount.asp"-->
<!--#include file="../manage/makehtml/index/temp_inc.asp"-->
<!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">
	
<%

remoteip=Request.ServerVariables("REMOTE_ADDR") 
'response.write remoteip remoteip 为客户端IP 
lkllll=Request.ServerVariables("local_ADDR") 
'response.write remoteip myip为服务器IP



Function HOPE_Class(whoid,xiaolei,numed,Num) 
		
		     HOPE_Class1_2="<script src='"&remoteip&"autokind/autokind.js'></script><input type='text' id='installurltr'  style='display:none; width:12;height:1' "
 		 If xiaolei=1 Then
		 	 If whoid=1 Then
 	     	 HOPE_Class1_2=HOPE_Class1_2&" value="&remoteip&"autokind/com_2.asp"
 			 ElseIf whoid=2 Then
			 HOPE_Class1_2=HOPE_Class1_2&" value="&remoteip&"autokind/pro_2.asp"
			 ElseIf whoid=3 Then
			 HOPE_Class1_2=HOPE_Class1_2&" value="&remoteip&"autokind/seller_2.asp"
			 Else
			  HOPE_Class1_2=HOPE_Class1_2&" value="&remoteip&"autokind/trade_2.asp"
            End If
		 End If
		  HOPE_Class1_2=HOPE_Class1_2&" ><script language='javascript' src="&remoteip&"autokind/autokind_index.js></script><input type='text' id='installurltri'  style='display:none; width:12;height:1'   "
		  If whoid=1 Then
					HOPE_Class1_2=HOPE_Class1_2&"value="&remoteip&"autokind/com_1.asp"
				Elseif whoid=2 Then
					HOPE_Class1_2=HOPE_Class1_2&"value="&remoteip&"autokind/pro_1.asp"
				Elseif whoid=3 Then
					HOPE_Class1_2=HOPE_Class1_2&"value="&remoteip&"autokind/seller_1.asp"	
				Else
					HOPE_Class1_2=HOPE_Class1_2&"value="&remoteip&"autokind/trade_1.asp"
			 End If
		  
		HOPE_Class1_2=HOPE_Class1_2&"  />"
		  if Num=0 then
		  sortsql="select * from Websen_class_1" 
 		  else
		  sortsql="select top " & Num &" * from WebSen_class_1"
         end if   
		Set rssort=Server.CreateObject("ADODB.Recordset")
		rssort.open sortsql,conn,1,1
		If rssort.Eof Then
			HOPE_Class1_2=""
		Else
			HOPE_Class1_2=HOPE_Class1_2&"<table width='98%' border='0' cellspacing='0' cellpadding='0' align=center><TR>" 
			HOPE_Class1_2=HOPE_Class1_2&"<td height=2></td></tr><tr>"
			j=1
		Do While Not rssort.Eof
				If whoid=1 Then
					HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><A href="&remoteip&"corporation/trade/"&rssort("sortid")&".html  onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:13px'><b>"&rssort("sort")&"</b></font></A>"
				Elseif whoid=2 Then
					HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><A href="&remoteip&"productshow/trade/"&rssort("sortid")&".html  onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:13px'><b>"&rssort("sort")&"</b></font></A>"
				Elseif whoid=3 Then
					HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><A href="&remoteip&"seller/trade/"&rssort("sortid")&".html   onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:13px'><b>"&rssort("sort")&"</b></font></A>"	
				Else
					HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><A href="&remoteip&"tradeinfo/trade/"&rssort("sortid")&".html  onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:13px'><b>"&rssort("sort")&"</b></font></A>"
				End If
				If xiaolei=1 Then
					HOPE_Class1_2=HOPE_Class1_2&"<table width='96%'  border='0' cellspacing='0' cellpadding='0'><tr><td>"
 					typesql1="select * from Websen_class_2 where sortid="&rssort("sortid")&"  and [Top]=1"
 					Set rstype1=Server.CreateObject("ADODB.Recordset")
					 rstype1.open typesql1,conn,1,1
 					If rstype1.Eof   Then
						HOPE_Class1_2=HOPE_Class1_2&""
					End If
					If Not rstype1.Eof Then
						Dim m
						m=1
 						Do While Not rstype1.Eof
							If m>1 Then	HOPE_Class1_2=HOPE_Class1_2&" <font class=listtopwd>|</font> "
							If whoid=1 Then
								HOPE_Class1_2=HOPE_Class1_2&"<A href='"&remoteip&"corporation/trade/"&rstype1("sortid")&"-"&rstype1("typeid")&".html'  onclick='AjaxSearchtr("&rstype1("typeid")&")'>"&rstype1("typename")&"</A>"
							Elseif whoid=2 Then
								HOPE_Class1_2=HOPE_Class1_2&"<A href='"&remoteip&"productshow/trade/"&rstype1("sortid")&"-"&rstype1("typeid")&".html'  onclick='AjaxSearchtr("&rstype1("typeid")&")'>"&rstype1("typename")&"</A>"
							Elseif whoid=3 Then
								HOPE_Class1_2=HOPE_Class1_2&"<A href='"&remoteip&"seller/trade/"&rstype1("sortid")&"-"&rstype1("typeid")&".html' onclick='AjaxSearchtr("&rstype1("typeid")&")'>"&rstype1("typename")&"</A>"	
							Else
								HOPE_Class1_2=HOPE_Class1_2&"<A href='"&remoteip&"tradeinfo/trade/"&rstype1("sortid")&"-"&rstype1("typeid")&".html' onclick='AjaxSearchtr("&rstype1("typeid")&")'>"&rstype1("typename")&"</A>"
							End If
							m=m+1
							rstype1.Movenext
						Loop
						rstype1.close
					End If
				HOPE_Class1_2=HOPE_Class1_2&"</td></tr></table>" 
			End If
			HOPE_Class1_2=HOPE_Class1_2&"</TD>"
			If j Mod numed = 0 Then HOPE_Class1_2=HOPE_Class1_2&"</TR><tr><td height=2></td></tr><tr>"	
			rssort.Movenext
			j=j+1
		Loop
		HOPE_Class1_2=HOPE_Class1_2&"</table>"
		End If
  	 HOPE_Class=HOPE_Class1_2
 	End Function
	
	

%>

		<%
dim con,strview
con=Replace_Text(request.QueryString("con"))

con="#"&con&"#"
connet=con
strview=Hope_htmlAll(con)

 %>
		<head>
			<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
			<title>预览</title>
		</head>
		<body>
			<table width="<%

if con="HOPE_ShowUsernLogin(1)" then
response.Write("40%")
elseif con="HOPE_ShowUsernLogin(2)" then
response.Write("100%")
end if
%>" border="0" cellpadding="0" cellspacing="0">
				<tr>
					<td height="30">
						<%

if connet="#HOPE_Announce#" and weboff_on=0 then 
response.Write("此时后台设置的是：网站运行正常！")
end if
 
response.Write(strview)

%>
					</td>
				</tr>
				<tr>
					<td align="center"></td>
				</tr>
			</table>
			
		</body>
</html>
