save.asp

蓝芒3.0A最新所有功能完整破解版

<!-- #include file="OpenDB.inc" -->
<!-- #include file="adovbs.inc" -->
<%
name1=request("name")
pwa=request("pwa")
com=request("com")
domain=request("domain")
add=request("add")
tel=request("tel")
fax=request("fax")
post=request("post")
'效验用户名和内容
If name1="" or com="" or add="" or tel="" or fax="" Then
response.write "SORRY <br>"
response.write "输入各栏不能为空"
response.end
end if

Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from webmail where domain='"&domain&"'"
rs1.open sql1,conn
if not rs1.eof then
response.write"域名重复，请重新输入一个用户名！"
response.end
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from webmail"
rs.open sql,conn,adopendynamic,adlockpessimistic
rs.addnew
rs("name")=name1
rs("pwa")=pwa
rs("com")=com
rs("add")=add
rs("tel")=tel
rs("domain")=domain
rs("fax")=fax
rs("post")=post
rs.update
rs.close 
%>
<script language=javascript>
alert("添加成功")
history.go(-1)
</script>
<%end if%>