<% dim web_Comment Set web_Comment=Server.CreateObject("Adodb.RecordSet") SQL="SELECT * from Web_Goods where Goods_Class=1 ORDER BY Goods_PostTime desc" web_Comment.Open SQL,Conn,1,1 while not web_Comment.eof %> <% web_Comment.movenext wend web_Comment.close set web_Comment=nothing %>

<% Set web_Comment=Server.CreateObject("Adodb.RecordSet") SQL="SELECT * from Web_Goods where Goods_Class=2 ORDER BY Goods_PostTime desc" web_Comment.Open SQL,Conn,1,1 while not web_Comment.eof %> <% web_Comment.movenext wend web_Comment.close set web_Comment=nothing %>

<%if request.Form("action")="Addorder" then dim Menname,Email,country,company,tel,fox,add,code,Message Menname=checkURL(CheckStr(Request.form("Menname"))) Email=checkURL(CheckStr(Request.form("Email"))) country=checkURL(CheckStr(Request.form("country"))) company=checkURL(CheckStr(Request.form("company"))) tel=checkURL(CheckStr(Request.form("tel"))) fox=checkURL(CheckStr(Request.form("fox"))) add=checkURL(CheckStr(Request.form("add"))) code=checkURL(CheckStr(Request.form("code"))) Message=checkURL(CheckStr(Request.form("Message"))) if len(Menname)=0 then response.Write "Import your full name please！
Shan strike comes back to" elseif len(Menname)<2 or len(Menname)>24 then response.Write "The full name can not be smaller than 2 or greater than 24 characters！
Shan strike comes back to" elseif IsValidUserName(Menname)=false then response.Write "The illegal consumer invites trial usage other consumer！
Shan strike comes back to" elseif len(Email)=0 then response.Write "Import your electron mailbox please！
Shan strike comes back to" elseif len(Email)>0 and IsValidEmail(email)=false then response.Write "The wrong email address is filled in please again！
Shan strike comes back to" elseif len(Message)=0 then response.Write "Fill in MSG|WTG content please！
Shan strike comes back to" else dim weblog,PubTime Set weblog=Server.CreateObject("ADODB.RecordSet") weblog.Open "select * from Web_Order",Conn,1,3 weblog.addNew PubTime = DateToStr(now(),"Y-m-d H:I:S") weblog("Order_name")=Menname weblog("Order_email")=Email weblog("Order_country")=country weblog("Order_company")=company weblog("Order_tel")=tel weblog("Order_fox")=fox weblog("Order_add")=add weblog("Order_code")=code weblog("Order_msg")=Message weblog("Order_PostTime")=PubTime weblog.update weblog.close set weblog=nothing response.Write "提交成功！我们会尽快给您答复！
单击返回" end if else %>

Full name：	*
E-mail：	*
country：
Company name：
Telephone：
Fax：
Address：
Zip code：
MSG|WTG：	*

<%end if%>

Address：Potang industrial park, Tiantai , Zhejiang , China
Tel：0086-576-83980381
Mobile phone：13958508467 （Ms.Xu）

Mirror