<%
if not (session("MemName")<>"" and session("MemLogin")="Succeed") then
response.redirect "MemberCenter.asp"
response.end
end if
dim ProductName,ProductNo,Amount,Remark
dim mLinkman,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,mAddTime,ReplyContent,ReplyTime
call OrderInfo()
%>
"
end function
sub OrderInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Ameav_Order where ID="&request.QueryString("ID")
rs.open sql,conn,1,1
ProductName=rs("ProductName")
ProductNo=rs("ProductNo")
Amount=rs("Amount")
Remark=HtmlStrReplace(rs("Remark"))
mLinkman=rs("Linkman")
mSex=rs("Sex")
mCompany=rs("Company")
mAddress=rs("Address")
mZipCode=rs("ZipCode")
mTelephone=rs("Telephone")
mFax=rs("Fax")
mMobile=rs("Mobile")
mEmail=rs("Email")
mAddTime=rs("AddTime")
ReplyContent=HtmlStrReplace(rs("ReplyContent"))
ReplyTime=rs("ReplyTime")
rs.close
set rs=nothing
end sub
%>
色诱久久av_亚洲一卡二卡三卡四卡无卡麻豆_国产成人综合久久亚洲精品_免费大黄网站
