adslsave.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 52 行

<%
if Session("ljl_liujinlu")="" or Session("ljl_grad")="" then%>
<script language=vbscript> 
MsgBox "错误：非法用户！"
location.href = "login.asp"
</script>
<%end if%>
<!--#include file="bkconn.asp"-->
<% 
'获取数据
sgonghao=Session("ljl_liujinlu")
sdianhuahuming=request.form("dianhuahuming")
sdianhuahaoma=request.form("dianhuahaoma")
sip = Request.ServerVariables("REMOTE_ADDR")
syonghuzhanghao=request.form("yonghuzhanghao")
schexiaoyuanyin=request.form("chexiaoyuanyin")
sbeizhuxinxi=request.form("beizhuxinxi")
szhuanxianbianhao=request.form("zhuanxianbianhao")
sshoujuhaoma=request.form("shoujuhaoma")
sjiaofeiriqi=request.form("jiaofeiriqi")
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
ssj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m

'检验数据合法性
if sdianhuahaoma="" or syonghuzhanghao="" then
%>
<script language=vbscript> 
MsgBox "错误：提交的表单中不能有空，请返回核对！"
location.href = "ADSL.asp"
</script>
<%else
'写入记录	     
conn.execute("insert into adsl(dianhuahuming,dianhuahaoma,yonghuzhanghao,chexiaoyuanyin,beizhuxinxi,gonghao,ip,zhuanxianbianhao,shoujuhaoma,jiaofeiriqi,sj)  values('" &sdianhuahuming &"','" &sdianhuahaoma&"','" &syonghuzhanghao &"','" &schexiaoyuanyin &"','" &sbeizhuxinxi &"','" &sgonghao &"','" &sip &"','" &szhuanxianbianhao &"','" &sshoujuhaoma &"','" &sjiaofeiriqi &"','" &ssj &"')")
%>
<script language=vbscript> 
MsgBox "保存成功！"
location.href = "ADSL.asp"
</script>
<%end if
conn.close
set conn=nothing
%>