<%
Function WebLocation()
WebLocation = " 所有产品 - 询价单 "&vbCrLf
End Function
Function NoList()
If request("UpdateOrder") = "Update choice" 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 Qianbo_Members where MemName='"&session("MemName")&"'"
rs.Open sql, conn, 1, 1
If rs.bof And rs.EOF Then
response.Write "
No relevant information
"
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
%>
