reditsave.asp

网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理 公文 车辆 通知 档案 值班 人事 审批 仓库 主界面 软件下载 个

<!--#include file="bkconn.asp"-->
<% 
'获取数据
id=request.form("id")
sguestname=request.form("guestName")
	     sdomainname=request.form("domainname")
	     sretime=request.form("retime")
	     snx=trim(request.form("yearltd"))
             saddress=request.form("address")
             stel=request.form("tel")
             sfax=request.form("fax")
             semail=request.form("email")
             slinkpeople=request.form("linkpeople")
             sserverlist=request.form("serverlist")
             scost=request.form("cost")
             sremark=request.form("remark")
             sip = Request.ServerVariables("REMOTE_ADDR")
'if hideip="1" then ip=""
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
ssj1=n & "年" & y & "月" & r & "日" & " " & weekdayname(weekday(date())) & " " & s & ":" & f & ":" & m

'检验数据合法性
if sguestname="" or sdomainname="" or sretime="" or snx="" or saddress="" or stel="" or sfax="" or semail="" or slinkpeople="" or sserverlist="" or scost="" or sremark=""  then
response.write "<fieldset style=width:300 align=center><legend><b><font color=#0000FF>错误代码1321，提交错误，请重提交！</font></b></legend><ol>" &chr(13)
response.write "<li>输入不能有空,请仔细检查所填表单" &chr(13)
response.write "<li><a href='javascript:history.go(-1)'><font color=#FF0000>单击此处返回</font></a>" &chr(13)
response.write "</ol></fieldset>"
end if
'修改记录形式一
conn.execute("update book set guestname='" &request.form("guestname") &"' where id="  &clng(request.form("id")))  
'修改记录形式二
conn.execute"update book set domainname='" &sdomainname&"' where id="&id
conn.execute"update book set retime='" &sretime&"' where id="&id
conn.execute"update book set nx='" &snx&"' where id="&id
conn.execute"update book set address='" &saddress&"' where id="&id
conn.execute"update book set tel='" &stel&"' where id="&id
conn.execute"update book set fax='" &sfax&"' where id="&id
conn.execute"update book set email='" &semail&"' where id="&id
conn.execute"update book set linkpeople='" &slinkpeople&"' where id="&id
conn.execute"update book set serverlist='" &sserverlist&"' where id="&id
conn.execute"update book set cost='" &scost&"' where id="&id
conn.execute"update book set remark='" &sremark&"' where id="&id
conn.execute"update book set ip='" &sip&"' where id="&id
conn.execute"update book set sj1='" &ssj1&"' where id="&id

response.write "<fieldset style=width:400 align=center><legend><b><font color=#0000FF>数据提交成功</font></b></legend><ol>" &chr(13)
response.write "<li>你刚才修改的信息已成功加入客户域名数据库！" &chr(13)
response.write "<li><a href=javascript:history.go(-1)><font color=#FF0000>继续录入其他数据</font></a>" &chr(13)
response.write "<li><a href=index.asp><font color=#FF0000>查看数据库中全部信息</font></a>" &chr(13)
response.write "<li><a href=javascript:window.close()><font color=#FF0000>关闭本页，推出数据库</font></a>" &chr(13)
Response.write("<br>")
Response.write("<hr width='90%' color='#FF0000'>")
Response.write("以下是你修改的详细资料")
Response.write("<br>")
Response.write("客户名称："&sguestname)
Response.write("<br>")
Response.write("所注域名："&sdomainname)
Response.write("<br>")
Response.write("注册时间："&sretime)
Response.write("<br>")
Response.write("所注年限："&snx)
Response.write("<br>")
Response.write("地址："&saddress)
Response.write("<br>")
Response.write("电话："&stel)
Response.write("<br>")
Response.write("传真："&sfax)
Response.write("<br>")
Response.write("电子邮件："&semail)
Response.write("<br>")
Response.write("联系人："&slinkpeople)
Response.write("<br>")
Response.write("服务器目录："&sserverlist)
Response.write("<br>")
Response.write("注册费用："&scost)
Response.write("<br>")
Response.write("备注："&sremark)
Response.write("<br>")
conn.close
set conn=nothing

%>