Accessories: ANDREW GPS Timing Reference Antenna R-232 connector cables Antenna connector cables Power Cord SatStat50 software
Function & Characteristic
GPS Time and Frequency Receiver,10MHZ 1PPS
Specification
<%
call SiteInfo
dim Products
dim mMemID,mRealName,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail
if session("MemName")<>"" and session("MemLogin")="Succeed" then
call MemInfo()
else
mSex="先生"
mMemID=0
end if
%>
<%
function WebLocation()
WebLocation=" 公司产品 - 购物车"&VbCrLf
end Function
function NoList()
if request("UpdateOrder")="更新选择" then
Session("NoList")=""
end if
dim ProductNo,NoArray,i
if trim(request("ProductNo"))<>"" then ProductNo=trim(request("ProductNo"))&","
if session("NoList")="" and trim(request("ProductNo"))="" then
NoList=""
exit function
end if
if instr(ProductNo,",")>0 then
NoArray=split(ProductNo, ",")
for i = 0 to ubound(NoArray)
if not instr(session("NoList"),NoArray(i)&",")>0 then session("NoList")=session("NoList")&NoArray(i)&","
next
end if
for i = 0 to ubound(split(session("NoList"), ","))
NoList=NoList&"’"&trim(split(session("NoList"),",")(i))&"’,"
next
NoList=left(NoList,len(NoList)-4)
end Function
function ProductList()
Response.Write "
"&VbCrLf
end function
sub MemInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from LiangjingCms_Members where MemName=’"&session("MemName")&"’"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "
暂无相关信息
"
else
mMemID=rs("ID")
if not rs("RealName")="" then
mRealName=rs("RealName")
else
mRealName=rs("MemName")
end if
mSex=rs("Sex")
mCompany=rs("Company")
mAddress=rs("Address")
mZipCode=rs("ZipCode")
mTelephone=rs("Telephone")
mFax=rs("Fax")
mMobile=rs("Mobile")
mEmail=rs("Email")
end if
rs.close
set rs=nothing
end sub
%>
Packing Details
Copyright 漏 2006-2009 Yixun Tesy Equipment (HK) Ltd All rights reserved.
Product List
