<!--#include file="conn.asp"-->
<%
Function Text2Html(Str1)
    If isNULL(Str1) Then
       Text2Html=""
       Exit Function
    End If
     Str1=Replace(Str1,"&","&amp;")
     Str1=Replace(Str1,"<","&lt;")
     Str1=Replace(Str1,">","&gt;")
     Str1=Replace(Str1,VBcrlf,"<br>")
     Str1=Replace(Str1,chr(34),"&quot;")
     Str1=Replace(Str1,chr(9),"&nbsp;&nbsp;&nbsp;")
     Str1=Replace(Str1," ","&nbsp;")      
     Text2Html=Str1
End Function
hquyu=Trim(request.Form("hquyu"))
djieshao=Trim(request.Form("djieshao"))
lxr=Trim(request.Form("lxr"))
tel=Trim(request.Form("tel"))
fax=Trim(request.Form("fax"))
mobile=Trim(request.Form("mobile"))
company=Trim(request.Form("company"))
website=Trim(request.Form("website"))
email=Trim(request.Form("email"))
address=Trim(request.Form("address"))
zip=Trim(request.Form("zip"))
kind=Trim(request.Form("kind"))
if hquyu="" or lxr="" or mobile="" then
Response.Write ("<script>alert('信息不完整！\n\n请仔细检查带有""*""号的表单');history.back()</script>")
else
Dim Str
	Str="希望代理区域："&hquyu&vbcrlf&_
	"代理商介绍："&djieshao&vbcrlf&_
	"－－－－－－－－－－－－－－－－－－－"&vbcrlf&_
	"联系人："&lxr&"　　　电话："&tel&vbcrlf&_
	"传真："&fax&"　　　　手机："&mobile&vbcrlf&_
	"单位名称："&company&"　　网址："&website&vbcrlf&_
	"Ｅ_mail："&email&"　　　联系地址："&address&vbcrlf&_
	"邮编："&zip&"　　　　身份："&kind&vbcrlf&_
	"－－－－－－－－－－－－－－－－－－－"&vbcrlf
Str=Text2Html(Str)
rs.open "zhaoshang",conn,1,3,2
	rs.addnew()
	rs("jobname")=hquyu
	rs("content")=str
	rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
Response.Write("<script language=""JavaScript"">alert(""您的信息已经发布！！"");history.go(-2);</script>")
end if
%>

