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

'===================判断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")
				LastTime	   = Rs("LastTime")
				Credit         = Rs("Credit")
				Flag           = Rs("Flag")
				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,"|")		

'===============================================首页分类
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
%>