serversave.asp

天创商务网客户资源管理系统 v1,asp+Access,iis5

<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<%

set rs=server.createobject("ADODB.Recordset")

comname=request.form("comname")
bigclass=request.form("bigclass")
smallclass=request.form("smallclass")
server1=replace(request.form("serverid")," ","")
tel=request.form("tel")
fax=request.form("fax")
lianxi=request.form("lianxi")
owner=request.form("owner")
webhost=request.form("webhost")
address=request.form("address")
date1=request.form("date")
connet=request.form("connet")
level=request.form("level")
finder=request.form("finder")
resources=request.form("resources")
other=request.form("other")

set rs = server.createobject("adodb.recordset")
sql="select * from news where (comname='"&comname&"' or tel='"&tel&"') order by newsid desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
if not(rs.eof or rs.bof) then
response.write"<SCRIPT language=JavaScript>alert('对不起，企业名称已存在,请核实！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
rs.close

    sql= "select * from news"
    rs.open sql,conn,1,3
rs.addnew
rs("comname")=comname
rs("bigclass")=bigclass
rs("smallclass")=smallclass
rs("server")=server1
rs("tel")=tel
rs("fax")=fax
rs("lianxi")=lianxi
rs("owner")=owner
rs("webhost")=webhost
rs("address")=address
rs("date")=date1
rs("connet")=connet
rs("level")=level
rs("finder")=finder
rs("resources")=resources
rs("other")=other
rs.update
url="NewsAdd.asp?SmallClass="&smallclass&"&BigClass="&bigclass&""
response.write "<br><br><br><center><font size=-1>资料已经成功添加,本页1秒钟后返回.<br><br>谢谢您使用本系统</font></center>"
response.write "<meta http-equiv=refresh content=1;url=" & url & ">"
response.end
%>