addinfo.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 75 行

<!--#include file="../inc/conn.asp"-->
<%
 function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","") 
   changechr=replace(replace(replace(replace(changechr,"'",""),"and",""),"insert",""),"set","") 
    changechr=replace(replace(replace(replace(changechr,"select",""),"update",""),"delete%20from",""),chr(34),"&quot;") 
end function

company=changechr(trim(request("company")))

opendataconn
set rs=server.createobject("adodb.recordset")
sql="select * from hyedetail where company='"&company&"'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<script language="javascript">
alert ('该公司黄页已存在！');
history.back();
</script>
<%
response.end 
end if
rs.close
set rs=nothing
%>
<%
type1=changechr(trim(request("lb")))
company=changechr(trim(request("company")))
address=changechr(trim(request("address")))
pc=changechr(trim(request("pc")))
ren=changechr(trim(request("ren")))
tel=changechr(trim(request("tel")))
fax=changechr(trim(request("fax")))
email=changechr(trim(request("email")))
http=changechr(trim(request("http")))
jianjie=trim(request("jianjie"))
jianjie=changechr(replace(jianjie,vbcrlf,"<br>"))
hy=changechr(trim(request("hy")))
sheng=changechr(trim(request("sheng")))
city=changechr(trim(request("city")))


	set rdsInfo = Server.CreateObject("ADODB.Recordset")
	rdsInfo.Open "hyedetail",Conn,3,3
	rdsInfo.AddNew
	rdsInfo("type") =type1
	rdsInfo("company") =company
	rdsInfo("address") =address
	rdsInfo("pc") =pc
	rdsInfo("tel") =tel
	rdsInfo("fax") =fax
	rdsInfo("email") =email
	rdsInfo("http") =http
	rdsInfo("jianjie") =jianjie
	rdsInfo("ren") =ren
	rdsInfo("hy") =hy
	rdsInfo("sheng") =sheng
	rdsInfo("city") =city
		rdsInfo.Update
	rdsInfo.Close
	set rdsInfo = nothing


	set rdsInfo1 = Server.CreateObject("ADODB.Recordset")
	rdsInfo1.Open "hyetype where type='"&type1&"'",Conn,3,3
	rdsInfo1("number") =number+1
		rdsInfo1.Update
	rdsInfo1.Close
	set rdsInfo1 = nothing


response.redirect "huangye.asp"
closedataconn
%>