"& Languagech7 &""
end if
do while not rs.eof
If ISHTML = 1 Then
AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
Else
AutoLink = "ProductList.asp?SortID="&rs("ID")&""
End If
response.write "

"
i=i+1
if i"&Languagech20&" >> "&Languagech226&" >> "&Languagech180&""&VbCrLf
end Function
function NoList()
if request("UpdateOrder")=Languagech185 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
Response.Write " "&VbCrLf
Response.Write "

"&VbCrLf
Response.Write "

"&Languagech186&"：

"&VbCrLf
Response.Write "

"&VbCrLf
if Nolist()="" then
Response.Write "

"&VbCrLf
Response.Write "

"&Languagech186&"

"&VbCrLf
Response.Write "

"&VbCrLf
else
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Qianbo_Products where ProductNo in ("&NoList()&") order by id"
rs.open sql,conn,1,1
while not rs.eof
If ISHTML = 1 Then
AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&""
Else
AutoLink = "ProductView.asp?ID="&rs("ID")&""
End If
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
%>