p.asp

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

<!--#include file="../../../INC/conn.asp"-->
<%

function HTMLEncodeStr(fString)
    'fString = Replace(fString, CHR(32), "&nbsp;")
	if fString <> "" and Not isnull(fString) Then
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
	fString = Replace(fString,"<IMG","<BR><IMG onload=""javascript:if(this.width>screen.width-300)this.width=screen.width-300""")
	end if 
    HTMLEncodeStr = fString
end function

function HTMLEncodeNO(fString)
	if fString <> "" and Not isnull(fString) Then
    fString = Replace(fString, "<", ",")
    fString = Replace(fString, "/>", ",")
    fString = Replace(fString, ">", ",")
	End IF
		HTMLEncodeNO = fString
end function


Dim ProductNumberID
    ProductNumberID = Trim(Request.QueryString("ID"))

'======================================================商品
Set rs=server.CreateObject("adodb.recordset")
	SQL = "Select * From Product where ProductNumberID = '"& ProductNumberID &"'"
	rs.open SQL,Conn,1,3
	IF rs.bof and rs.bof Then
	Else
	Rs("LookCount") = Rs("LookCount")+1
	Rs.UpDate
	ProductName         = Rs("ProductName")
	Goods_Key           = Rs("Goods_Key")
	Brand               = Rs("Brand")
	Unit                = Rs("Unit")
	Spec                = Rs("Spec")
	Content             = Rs("Content")
	Market_Price        = Rs("Market_Price")
	Price               = Rs("Price")
	Trade_Price         = Rs("Trade_Price")
	Surrogate_Price     = Rs("Surrogate_Price")
	Stock               = Rs("Stock")
	LookCount           = Rs("LookCount")
	ClassStr            = Rs("Class")
	ProductPic          = Rs("ProductPic")
	DateTime            = Rs("DateTime")
	Delivered           = Rs("Delivered")
	Fork_out            = Rs("Fork_out")
	NeworOld            = Rs("NeworOld")
	invoice             = Rs("invoice")
	Repair              = Rs("Repair")
	Freight             = Rs("Freight")
	Fashion             = Rs("Fashion")
	In_effect           = Rs("In_effect")
	ShopNumberID        = Rs("ShopNumberID")
	Parameter_depict    = Rs("Parameter_depict")
	EditTime            = Rs("EditTime")	
	
	IF Rs("Commonly")<>"" and Not Isnull(Rs("Commonly")) Then 
	Commonly            = FormatCurrency(Rs("Commonly"))
	Else
	Commonly            = "无"
	End IF

	IF Rs("Express")<>"" and Not Isnull(Rs("Express")) Then 
	Express             = FormatCurrency(Rs("Express"))
	Else
	Express             = "无"
	End IF
	
	IF Rs("Visits")<>"" and Not Isnull(Rs("Visits")) Then 
	Visits             = FormatCurrency(Rs("Visits"))
	Else
	Visits             = "无"
	End IF

	End IF
	Rs.Close

'=========================================================卖家	
Set rs=server.CreateObject("adodb.recordset")
	SQL = "Select * From Shop where ShopNumberID = '"& ShopNumberID &"'"
	rs.open SQL,Conn,1,1
	IF Not (rs.bof and rs.bof) Then
	UserNumberID        = Rs("UserNumberID")
	ShopName            = Rs("ShopName")
	City                = Rs("City")
	ShopKey             = Rs("ShopKey")
	ShopTitle           = Rs("ShopTitle")
	ShopContent         = Rs("ShopContent")
	Flag                = Rs("Flag")
	RegTime             = Rs("RegTime")
	ShopURL             = Rs("ShopURL")
	Authentication      = Rs("Authentication")
	
	ShopDomain_Name     = Trim(rs("ShopDomain_Name"))
					
	IF DomainStr = 1 Then
					
		ShopURL = ThenURLName &"?Url="& ShopDomain_Name
					
	End IF
		
	CompanyName         = Rs("CompanyName")
	CompanyType         = Rs("CompanyType")
	RealName            = Rs("RealName")
	CompanyAddress      = Rs("CompanyAddress")
	CompanyPC           = Rs("CompanyPC")
	CompanyTEL          = Rs("CompanyTEL")
	CompanyFax          = Rs("CompanyFax")
	CompanyURL          = Rs("CompanyURL")
	CompanyMT           = Rs("CompanyMT")
	ProductCount        = Rs("ProductCount")

	
	End IF
	Rs.Close
	
'=======================================分类
ClassName = "<a href=../../../Search/ class=none1 target=_blank>引擎首页</a>"
    IF Not Isnull(ClassStr) and ClassStr <> "" Then
N = len(ClassStr)/3
x = 0
	For i = 1 to N
x = x + 3
Set Rs = Conn.Execute("Select * From Class where NumberID = '"& Left(ClassStr,x) &"'")
		IF Not (rs.bof and rs.bof) Then
			IF x <= 6 Then
			ClassName = ClassName &" >>> <a href=../../../Search/C"& Left(ClassStr,x) &".Html target=_blank class=none1>"& Rs("Class") &"</a>"
			Else
			ClassName = ClassName &" >>> <a href=../../../Search/sSearch.asp?C="& Left(ClassStr,x) &" target=_blank class=none1>"& Rs("Class") &"</a>"
			End IF
		End if
	Next
	End IF

'====================================================城市
    IF Not Isnull(City) and City <> "" Then
N = 2

	IF len(City)/3 < 2 Then
N = len(City)/3
	End IF

V = len(City)-6

	IF V =< 0 Then
V = 0
	End IF

x = V

	For i = 1 to N
x = x + 3
Set Rs = Conn.Execute("Select * From City where NumberID = '"& Left(City,x) &"'")
	IF Not (rs.bof and rs.bof) Then
	CityName = CityName &"<a href=../../../Search/sSearch.asp?q="& Rs("City") &" target=_blank class=none1 title=搜索互联之光消费引擎上与["& Rs("City") &"]的相关卖家>"& Rs("City") &"</a> "
	End IF
	Next
	End IF

'=============================================会员
Set rs=server.CreateObject("adodb.recordset")
	SQL = "Select * From [User] where UserNumberID = '"& UserNumberID &"'"
	rs.open SQL,Conn,1,1
	IF Not (rs.bof and rs.bof) Then
    UserName            = Rs("UserName")
	DateTime            = Rs("DateTime")
	Credit              = Rs("Credit")
	End IF
	Rs.Close

'===============================================关键词
IF Goods_Key<>"" and not isnull(Goods_Key) then

	Goods_Key = replace(Goods_Key,"	、",",")
	Goods_Key = replace(Goods_Key,"|",",")
	Goods_Key_1 = Split(Trim(Goods_Key), ",")
		For a = 0 to ubound(Goods_Key_1)
			Goods_KeyStr = Goods_KeyStr & "<a href=../../../Search/Search.asp?q="& Goods_Key_1(a) &" target=_blank class=none1 title=搜索互联之光消费引擎上与["& Goods_Key_1(a) &"]的相关商品>"& Goods_Key_1(a) &"</a>&nbsp;"
		Next

End IF

'=================================================型号
IF Spec<>"" and not isnull(Spec) then

	Spec = replace(Spec,"、",",")
	Spec = replace(Spec,"|",",")
	Spec_1 = Split(Trim(Spec), ",")
		For a = 0 to ubound(Spec_1)
			SpecStr = SpecStr & "<a href=../../../Search/Search.asp?q="& Spec_1(a) &" target=_blank class=none1 title=搜索互联之光消费引擎上与["& Spec_1(a) &"]的相关商品>"& Spec_1(a) &"</a>&nbsp;"
		Next

End IF

'=================================================销售方式
IF Fashion<>"" and not isnull(Fashion) then

	Fashion_1 = Split(Trim(Fashion), ",")
		For a = 0 to ubound(Fashion_1)
			FashionStr = FashionStr &"<a href=../../../Search/Search.asp?q="& ProductName &"&F="& Trim(Fashion_1(a)) &" target=_blank class=none1 title=搜索互联之光消费引擎上与["& Fashion_1(a) &"]的相关商品>"& Trim(Fashion_1(a)) &"</a>&nbsp;"
		Next

End IF

'=================================================支付方式
IF Fork_out<>"" and not isnull(Fork_out) then

	Fork_out_1 = Split(Trim(Fork_out), ",")
		For a = 0 to ubound(Fork_out_1)
			Fork_outStr = Fork_outStr &"<a href=../../../Search/Search.asp?q="& ProductName &"&FO="& Trim(Fork_out_1(a)) &" target=_blank class=none1 title=搜索互联之光消费引擎上与["& Fork_out_1(a) &"]的相关商品>"& Trim(Fork_out_1(a)) &"</a>&nbsp;"
		Next

End IF

%>
<html>
<head>

<script type="text/javascript">
 //** iframe自动适应页面 **//

 //输入你希望根据页面高度自动调整高度的iframe的名称的列表
 //用逗号把每个iframe的ID分隔. 例如: ["myframe1", "myframe2"]，可以只有一个窗体，则不用逗号。
 //定义iframe的ID
 var iframeids=["ask","Goos"]

 //如果用户的浏览器不支持iframe是否将iframe隐藏 yes 表示隐藏，no表示不隐藏
 var iframehide="yes"

 function dyniframesize() 
 {
  var dyniframe=new Array()
  for (i=0; i<iframeids.length; i++)
  {
   if (document.getElementById)
   {
    //自动调整iframe高度
    dyniframe[dyniframe.length] = document.getElementById(iframeids[i]);
    if (dyniframe[i] && !window.opera)
    {
     dyniframe[i].style.display="block"
     if (dyniframe[i].contentDocument && dyniframe[i].contentDocument.body.offsetHeight) //如果用户的浏览器是NetScape
      dyniframe[i].height = dyniframe[i].contentDocument.body.offsetHeight; 
     else if (dyniframe[i].Document && dyniframe[i].Document.body.scrollHeight) //如果用户的浏览器是IE
      dyniframe[i].height = dyniframe[i].Document.body.scrollHeight;
    }
   }
   //根据设定的参数来处理不支持iframe的浏览器的显示问题
   if ((document.all || document.getElementById) && iframehide=="no")
   {
    var tempobj=document.all? document.all[iframeids[i]] : document.getElementById(iframeids[i])
    tempobj.style.display="block"
   }
  }
 }

 if (window.addEventListener)
 window.addEventListener("load", dyniframesize, false)
 else if (window.attachEvent)
 window.attachEvent("onload", dyniframesize)
 else