'-----------ݿ
dim membersoonhost,ident
allclass=split(memberclase,"|")
'------printident
Function DeCrypt(strEncrypted)
	Dim strChar, iKeyChar, iStringChar, I
	for I = 1 to Len(strEncrypted)
	iKeyChar = (Asc(mid(g_Key,I,1)))
	iStringChar = Asc(mid(strEncrypted,I,1))
	iDeCryptChar = iKeyChar Xor iStringChar
	strDecrypted = strDecrypted & Chr(iDeCryptChar)
	next
	DeCrypt = strDecrypted
End Function
ident = DeCrypt(Request.Cookies("soonhostmember")("ident"))
if not isnumeric(""&ident&"") then
	ident = 21
else
	ident=clng(ident-EnCryptmember)
end if
'-------end print
if Request.Cookies("supportcookie")="" then
Response.Cookies("supportcookie")="0"
Response.Cookies("supportcookie").Expires=date+3650
end if
if Request.Cookies("supportcookie")<>"0" then
Response.Cookies("supportcookie")=""
Response.Write "½С<br><br>ϵͳҪʹCOOKIES, COOKIES, ܵ¼ϵͳ"
Response.Redirect index.asp
response.end
end if
'---------------------------------------
dim mailfoot
soonver="汾:"&nowver&" <a href=http://soonhost.com target=_blank>鿴°汾!</a>"
power="<a href=http://www.soonhost.com>>> ǰ汾 "&nowver&"</a>"
mailfoot=mailfoot &"--------------------------------------------"& vbcrlf
mailfoot=mailfoot &"ע,,ҵ,վƹ,"& vbcrlf
mailfoot=mailfoot &"75Ԫ/,,⸶!"& vbcrlf
mailfoot=mailfoot &"ַ:http://www.soonhost.com"& vbcrlf

dim conn
sub conned()
	Set conn= Server.CreateObject("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&mymdbpath
end sub
'-------------------------------------------------top
dim isadmin 'if isadmin=true then body ùģ
sub admin()
Response.Write ""&_
"<DIV id='branding' style='Z-INDEX: 2; LEFT: 628px; WIDTH: 170px; POSITION: absolute; TOP: 201px; HEIGHT: 75px'>"&_ 
"<table class=admin width='100%' border='1' cellspacing='0' cellpadding='0'  bordercolor='#000000'>"&_
  "<tr align=center>"&_       
    "<td  width='33%'><A HREF='../member/ad_main.asp'>Ա</A></td>"&_      
    "<td  width='33%'><A HREF='../message/index.asp'>Թ</A></td>"&_
	"<td width='33%'><A HREF='../vote/ad_view.asp'></A></td>"&_
    "</tr>"&_
    "<tr align=center>"&_
    "<td><A HREF='../link/ad_view.asp'>ӹ</A></td>"&_  
    "<td><a href=../member/successed.asp><B></B></a></td>"&_
    "<td><A HREF='../new/ad_view.asp'>¹</A></td>"&_
    "</tr>"&_
    "<tr align=center>"&_       
    "<td><A HREF='../supply/index.asp'>Ϣ</A></td>"&_
      "<td><A HREF='../sell/ad_view.asp?action=admin'>۹</A></td>"&_          
	  "<td><A HREF='../form/ad_view.asp'></A></td>"&_
    "</tr>"&_
  "</table>"&_
"</DIV>"
end sub
'--------------------
sub top()
Response.Write ""&_
	"<html>"&_
	"<head>"&_
	"<title>"&state&"</title>"&_
	"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"&_
	"<meta name='keywords' content='Ѹhttp://www.soonhost.com'>"&_
	"<meta name='description' content='Ѹhttp://www.soonhost.com'>"&_
	"<link rel='stylesheet' type='text/css' href='../sys/inc/soonhost.css'>"&_
	%>
	<SCRIPT src="../sys/inc/template_set.js"></SCRIPT>
	<SCRIPT language=JavaScript>	
	function MM_goToURL() {
	var I, args=MM_goToURL.arguments; document.MM_returnValue = false;
	for (I=0; I<(args.length-1); I+=2) eval(args[I]+".location='"+args[I+1]+"'");
	}	
	function openScript(url, width, height){
		var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',' );
	}
	</SCRIPT>
	<%
	Response.Write "</head>"
	if session("membersoonhost")=true then membersoonhost=true
	if membersoonhost=true and isadmin=true then 	'
	Response.Write "<BODY  leftMargin=0 topMargin=8 onload='setVariables(); checkLocation();' marginheight='0' marginwidth='0'>"
	else
	Response.Write "<BODY  leftMargin=0 topMargin=8 >"
	end if
	'----------------------------------------------------------------------------topnav
	Response.Write ""&_
	"<table width=758 align=center cellpadding=0 cellspacing=0 class=tatd1px >"&_
	  "<tr id=tdtoplink>"&_ 
		"<td class=tdtop colspan='2'>&nbsp;<b>&gt;&gt;</b>"&_
		  "ӭ <b>"&session("memberusername")&"</b> ݣ"
		  select case ident
			case "20"	response.write allclass(0)
			case "21"	response.write allclass(1)
			case "22"	response.write allclass(2)
			case "23"	response.write allclass(3)
			case "24"	response.write allclass(4)
			case "25"	response.write allclass(5)
			case "26"	response.write allclass(6)
			case else	response.write "ο"
		  end select			
		  Response.Write ""&_		  
		  "| <a href='../member/chkout.asp?methord=2'>µ½</a> "&_
		  "| <a href='../member/reg.asp'>עԱ</a>"&_
		  "| <a href='../member/changeinfo.asp'>Ϣ</a>"&_
		  "| <a HREF=JavaScript:openScript('../net/link.asp',500,400)>ϵʽ</a>"&_
		  "| <a href='../member/successed.asp'></a>"&_
		  "| <a href='../member/chkout.asp'>˳</a> "&_		  
		  "| <a HREF=JavaScript:openScript('../about.htm',300,200)></a>"&_
	"</td></tr>"&_
	  "<tr>"&_ 
		"<td width='499' height='80'> <table width='98%' align='center' cellpadding='0' cellspacing='0'>"&_
			"<tr>"&_ 
			  "<td>"&banner&"</td>"&_
			"</tr>"&_
		  "</table></td>"&_
		"<td width='259' height='80'><div align='center'><a href=http://www.soonhost.net target=_blank><img src='../sys/image/domain.gif' width='150' height='50' border=0></a></div></td>"&_
	  "</tr>"&_
	  "<tr>"&_ 
		"<td colspan='2'><table cellspacing=0 cellpadding=1 width=758 align=center>"&_
			  "<tr>"&_
				"<td height=1 class='tdtatd1px'></td>"&_
			  "</tr>"&_
			  "<tr>"&_ 
				"<td class='tdnav'>"&_
	"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"&_
					"<tr>"&_ 
					  "<td width='65%'>&nbsp;"&navbar&" </td>"&_
					  "<td width='35%'><div align='right'>"&navbar2&"</div></td>"&_
					"</tr>"&_
				  "</table>"&_				  
				"</td>"&_
			  "</tr>"&_
		  "</table></td>"&_
	  "</tr>"&_
	"</table>"
	Response.Write "<!-- nav -->"&_
	"<BR>"&_
	"<table width='758'  align='center' cellpadding='0' cellspacing='0'>"&_
	  "<tr>"&_ 
		"<td width='29'><img src='../sys/image/lip.gif' width='21' height='21'> </td>"&_
		"<td width='729'><strong>"&navstate&"</strong></td>"&_
	  "</tr>"&_
	"</table>"&_
	"<!-- nav -->"
end sub
sub topjava()
	Response.Write "<html>"&_
	"<head>"&_
	"<title>"&state&"</title>"&_
	"<meta http-equiv=Content-Type content=ext/html; charset=gb2312>"&_
	"<link rel=stylesheet type=text/css href=../sys/inc/soonhost.css>"&_
	"<body>"
end sub
function foot
Response.Write "<br>"&_
"<table width=758 align=center cellpadding=0 cellspacing=0>"&_
  "<tr>"&_ 
    "<td width=20><img src=../sys/image/url.gif ></td>"&_
	"<td width=60> վƼ </td>"&_
    "<td width=683><img src=../sys/image/bar1.gif width=100% height=3 border=0 alt=վƼ></td>"&_
  "</tr>"&_
  "<tr>"&_ 
    "<td colspan=3>"&_
"<A HREF=http://soonhost.com/ title=ע,,,߿ͨ,⸶ target=blank>Ѹ</A>&nbsp;"
Response.Write hotsite&"</td>"&_
"</tr>"&_
"</table>"&_
"<div align=center><hr width=758 size=1><p>"&made&"&nbsp;ϵͳά<a href=http://soonhost.com target=_blank  title=ע,,ҳ,ű>"&homename&"</a>  "&power&"</p></div></body></html>"
end function
sub recpage
	'dim howmanyfields,totalput,CurrentPage,n,k,sendvalue 'nʾҳ kʾǰҳ
	howmanyfields=rs.Fields.Count-1
	totalput=rs.RecordCount
	rs.pagesize=maxperpage
	If  isnumeric(""&Request("Page")&"")=true then 
		CurrentPage= CLng(request("Page")) 
		If CurrentPage > rs.PageCount then  
			CurrentPage = rs.PageCount
			if currentpage=0 then currentpage=1
		End If 
	Else 
		CurrentPage= 1 
	End If 	
	if (totalPut mod MaxPerPage)=0 then  
		n= totalPut \ MaxPerPage
	else  
		n= totalPut \ MaxPerPage + 1  
	end if
	k=currentPage
	if CurrentPage > 1 then 
		if (currentPage-1)*MaxPerPage < totalPut then 	rs.move(currentPage-1)*MaxPerPage 
	end if
end sub
sub nextpage(filename,sendvalue)
'sendvalue="&value1="&a&"&value2="&b
	if k<>1 then
		response.write "[<b><a href="&filename&"?page=1"&sendvalue&">ҳ</a></b>] "&_
					   "[<b><a href="&filename&"?page="&cstr(k-1)&sendvalue&">һҳ</a></b>] "
	else
		Response.Write "[ҳ] [һҳ]"
	end if
	if k<n then
		response.write "[<b><a href="&filename&"?page="&cstr(k+1)&sendvalue&">һҳ</a></b>] "&_
		               "[<b><a href="&filename&"?page="&cstr(n)&sendvalue&">βҳ</a></b>] "
	else
		Response.Write "[һҳ] [βҳ]"
	end if	
end sub
sub jumpage(filename,sendvalue)
	dim soonhost
	soonhost=0
	Response.Write "<select size='1' name='D1' onChange="&chr(34)&"MM_goToURL('parent',this.value);return document.MM_returnValue"&chr(34)&">"&_
	               "<option>תҳ</option>"	
	DO WHILE NOT soonhost = rs.pageCount
	Response.Write "<option value="&filename&"?Page="&(soonhost+1)&sendvalue&">"&(soonhost+1)&"</option>"
	soonhost=soonhost+1
	loop
	Response.Write "</select>"
end sub
%>