conn.asp

程序为自主开发ASP+SQL大型购物搜索网站,系统管理、商铺、会员三种会员唯一帐号管理。目前已有数据条商品数据与数万条商铺信息

<!--#include File="../../../INC/Conn.asp"-->
<%
Dim Conn_s,Connstr,db
db="./Shop.asp"
Set Conn_s = Server.CreateObject("ADODB.Connection")
Connstr    ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn_s.Open Connstr


function HTMLEncodeNO(fString)
	if fString <> "" and Not isnull(fString) Then
	
			fStringlen_1 = len(fString)
			fStringlen_2 = len(Replace(fString,"<",""))
			fStringlen_3 = fStringlen_1 - fStringlen_2
			
			For i = 0 to fStringlen_3
			fStringlen  = len(fString)
			fStringopen = instr(fString,"<")
			fStringend  = instr(Right(fString,fStringlen-fStringopen),">")
			IF fStringopen > 0 and fStringend > 0 Then
			fString_1   = Mid(fString,fStringopen,fStringend+1)
			End IF
			IF fString_1 <> "" Then
			fString     = Replace(fString,fString_1,"")
			End IF
			Next
			
	End IF
		HTMLEncodeNO = fString
end function

function Is_odd(num)
n=num mod 2
if n=1 then
Is_odd=true
else
Is_odd=false
end if
end function

'===================判断ShopNumberID是否存在，不存在时首页
Dim ShopNumberID

Set Rs = Conn_s.Execute("Select * From Shop")

	IF Not (Rs.eof and Rs.bof) Then
	
		ShopNumberID = Trim(Rs("ShopNumberID"))
							
	End IF
	
	Rs.Close
Set Rs = Nothing
	
	
		IF ShopNumberID = "" or Isnull(ShopNumberID) Then
		
			ID =  Trim(Request.QueryString("ID"))

			IF ID = "" or Isnull(ID) Then
			
			ShopNumberID = Session("XiaBoleMouldShopNumberID")
			
			Else
			
			ShopNumberID = Trim(Request.QueryString("ID"))
			
			Session("XiaBoleMouldShopNumberID") = Trim(Request.QueryString("ID"))
			
			End IF
			
		End IF

'========================================================卖家信息
Dim ShopName
Dim ShopTitle
Dim ShopKey
Dim ShopLogo
Dim ShopURL
Dim ShopContent
Dim ClassStr

	Set Rs = Conn.Execute("Select Shop.*,Shop.UserNumberID,[User].UserNumberID,[User].Credit From Shop,[User] Where Shop.UserNumberID=[User].UserNumberID AND ShopNumberID = '"& ShopNumberID &"'")
	
			IF Not(Rs.Eof And Rs.Bof) Then
			
				ShopName       = Rs("ShopName")
				ShopURL        = Rs("ShopURL")
				ShopTitle      = Rs("ShopTitle")
				ShopKey        = Rs("ShopKey")
				ShopLogo       = Rs("ShopLogo")
				ShopContent    = Rs("ShopContent")
				ClassStr       = Rs("ClassNumberID")
				UserNumberID   = Rs("UserNumberID")
				Authentication = Rs("Authentication")
				ShopAuditing   = Rs("ShopAuditing")
				Credit         = Rs("Credit")
				Flag           = Rs("Flag")
				LastTime	   = Rs("LastTime")
				LookCount      = Rs("LookCount")
				IF LookCount = "" or Not IsNumeric(LookCount) Then
				   LookCount = 0
				End IF
				
				ShopDomain_Name     = Trim(rs("ShopDomain_Name"))
								
				IF DomainStr = 1 Then
								
					ShopURL = ThenURLName &"?Url="& ShopDomain_Name
								
				End IF
			
			End IF
	
		Rs.Close
	
	Set Rs = Nothing

IF ShopAuditing = 0 or LastTime < Now() Then

Response.Write("<table width=100% height=100% border=0 cellpadding=0 cellspacing=0>")
Response.Write("<tr>")
Response.Write("<td><table width=60% border=0 align=center cellpadding=0 cellspacing=0>")
Response.Write("<tr>")
Response.Write("<td align=center style='font-size: 14px;font-weight: bold; color: #FF0000;'>您的卖场未通过审核或已到期，请咨询本站服务人员！</td>")
Response.Write("</tr>")
Response.Write("</table></td>")
Response.Write("</tr>")
Response.Write("</table>")
Response.End()

End IF

'===============================================模板参数

Dim Mould_Setup

	Mould_Setup = 0

	Set Rs = Conn_s.Execute("Select * From Mould_Setup order by NumberID")
	
		While Not Rs.eof
		
		Mould_Setup_1 = Mould_Setup_1 & "|" & Rs("IntID")
	
		Rs.MoveNext
		Wend
		Rs.Close
		
		Mould_Setup = Split(Mould_Setup_1,"|")		

'===============================================首页分类

'Dim n
'Dim ClassStr_1
'Dim ClassArr

'	n        = 0
'	ClassArr = ""
'	l        = 0
'
'	C = Trim(Request.QueryString("C"))
'	
'
'	IF Not Isnull(ClassStr) AND ClassStr <> "" Then
'	
'				ClassStr_1 = Split(ClassStr,",")
'								
'					For i = 0 to Ubound(ClassStr_1)
'										
'						IF Not Isnull(Trim(ClassStr_1(i))) and Trim(ClassStr_1(i)) <> "" Then
'							
'							IF Not Isnull(C) AND C <> "" Then
'							
'							Set Rs = Conn.Execute("Select * From MyClass Where ShopNumberID = '"& ShopNumberID &"' and NumberID like '"& C &"%' and NumberID = '"& Trim(ClassStr_1(i)) &"'")
''							
	'						Else
	'						
	'						Set Rs = Conn.Execute("Select * From MyClass Where ShopNumberID = '"& ShopNumberID &"' and NumberID = '"& Trim(ClassStr_1(i)) &"'")
	'						
	'						End IF
	'						
	'						IF Not(Rs.eof and Rs.bof) Then
	'						
	'									'当转到下一个类别时，上级分类只小于2个时，全清空
	'									
	'									IF l <> Int(Rs("LagID")) Then
	'										
	'										IF  n < 2 Then
	'											n        = 0
	'											ClassArr = ""
	'										Else
	'										
	'											ok = 1
	'										
	'										end if
	'									
	'									End IF
	'									
	'								IF ok <> 1 and n < Mould_Setup(5) Then
	'																										
	'									ClassArr = ClassArr & " · <a href = Products.asp?C="& Rs("NumberID") &">"& Rs("Class") &"</a><br>"
	'								
	'									n = n + 1
	'							
	'								End IF
	'								
	'							l = Int(Rs("LagID"))
	'						
	'						End IF
	'				
	'					End IF
	'					
	'				Next
'
'	End IF

'===============================================首页分类

Dim ClassArr

	ClassArr = ""

	C = Trim(Request.QueryString("C"))

IF C = "" Then
	
	Set Rs = Conn.Execute("Select * From MyClass Where ShopNumberID = '"& ShopNumberID &"' AND LagID=0")

Else
	
	Set Rs = Conn.Execute("Select * From MyClass Where ShopNumberID = '"& ShopNumberID &"' and PartID = '"& C &"'")
	
End IF

	While Not Rs.eof

		ClassArr = ClassArr & " · <a href = Products.asp?C="& Rs("NumberID") &">"& Rs("Class") &"</a><br>"

	Rs.MoveNext
	
	Wend
	
	Rs.Close
	
	Set Rs = Nothing

function KeyArr(KeyString)
KeyString    = Rtrim(LTrim(KeyString))
KeyString    = replace(KeyString,"'"," ")
KeyString    = replace(KeyString,"”"," ")
KeyString    = replace(KeyString,"："," ")
KeyString    = replace(KeyString,","," ")
KeyString    = replace(KeyString,"`"," ")
KeyString    = replace(KeyString,"~"," ")
KeyString    = replace(KeyString,"^"," ")
KeyString    = replace(KeyString,"("," ")
KeyString    = replace(KeyString,")"," ")
KeyString    = replace(KeyString,"（"," ")
KeyString    = replace(KeyString,"）"," ")
KeyString    = replace(KeyString,"+"," ")
KeyString    = replace(KeyString,"_"," ")
KeyString    = replace(KeyString,"-"," ")
KeyString    = replace(KeyString,"="," ")
KeyString    = replace(KeyString,"\"," ")
KeyString    = replace(KeyString,"/"," ")
KeyString    = replace(KeyString,"、"," ")
KeyString    = replace(KeyString,"["," ")
KeyString    = replace(KeyString,"]"," ")
KeyString    = replace(KeyString,"{"," ")
KeyString    = replace(KeyString,"}"," ")
KeyString    = replace(KeyString,"。"," ")
KeyString    = replace(KeyString,"，"," ")
KeyString    = replace(KeyString,"|"," ")
KeyString    = replace(KeyString,"  "," ")

   KeyArr    = trim(KeyString)
   
end function
%>