<% function chkhtm(stra) stra=replace(stra,"<","<") stra=replace(stra,">",">") stra=replace(stra,"'","") stra=replace(stra,"(","(") stra=replace(stra,")",")") stra=replace(stra,";",";") stra=replace(stra,",",",") stra=replace(stra,"%","%") stra=replace(stra,"+","+") chkhtm=stra end function %>
 


朝夕天露国际酒业(北京)有限公司
Consistent Wine (Beijing) Co.ltd

  北京:北京市东城区东直门外大街48号
电话:(0086)010-84477805/6/7 13301060369
传真:(0086)010-84477801
邮箱:webmaster@steprd.com.cn
网址:www.steprd.com.cn
 
     
     
  上海:上海市卢湾区巨鹿路254号
电话:(0086)021-32020696
邮箱:webmaster@steprd.com.cn
网址:www.steprd.com.cn
 
     
  广州:广州市天河区长兴路美景街20号201室
电话:(0086)020-37210259 13902247733
邮箱:webmaster@steprd.com.cn
网址:www.steprd.com.cn
 
     
  郑州:郑州市紫荆山路72号裕鸿花园C-24F
电话:(0086)0371-88886646 13513718525
传真:(0086)0371-88886649
邮箱:webmaster@steprd.com.cn
网址:www.steprd.com.cn
 
     
 
<% username=chkhtm(trim(Request("username"))) email=chkhtm(trim(Request("email"))) sex=chkhtm(trim(Request("sex"))) lb=chkhtm(trim(request("lb"))) title=chkhtm(trim(Request("title"))) content=chkhtm(trim(Request("content"))) bm=chkhtm(trim(request("bm"))) lyyzmm=trim(Request("lyyzmm")) lyyzm=trim(Request("lyyzm")) if lyyzmm<>"" and lyyzm<>"" then if int(lyyzmm)<>int(lyyzm) then Response.Write "" Response.Write "" Response.end end if end if if username="" or email="" or sex="" or title="" or content="" or lb="" then %>

 

你的姓名  
电子邮件  
性  别  
留言类型  
验证码 <% Randomize an="" an= int((99999-22222+1) * RND +22222) %>   <% Response.Write an %>
留言标题  
留言内容  
是否保密   保密  不保密  (仅工作人员可以查看)

>

 
 
 
Copyright © Steprd.com.cn Inc. All rights reserved. 版权所有朝夕天露国际酒业(北京)有限公司
Tel:(86)010-84477805/06/07   Email: webmaster@steprd.com.cn
<% else sh=chkhtm(trim(request("sh"))) userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") Randomize an= int((10-1+1) * RND +1) if sex="男" then tx="images/lylan-"&an&".gif" else tx="images/lynv-"&an&".gif" end if addtime=date() content=replace(content,chr(13),"
") conn.Execute "insert into [ly] ([adduser],[email],[sex],[tx],[title],[content],[ip],[addtime],[bm],[lb],[sh]) values('"&username&"','"&email&"','"&sex&"','"&tx&"','"&title&"','"&content&"','"&userip&"','"&addtime&"','"&bm&"','"&lb&"',"&sh&")" conn.close:set conn=nothing if sh=1 then er=1 end if Response.Redirect "ly.asp?er="&sh end if %> <% 'rs.close:set rs=nothing conn.close:set conn=nothing %>