📄 -+-
字号:
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl("图书增加")
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>图书增加 欢迎使用欣科软件</title>
</head>
<body background="Bkg35.jpg">
<p><img src="../images/soft.gif" width="45" height="30"><font color="#ff0000" ><FONT
size=6><FONT>图书卡片输入</FONT></FONT></font><FONT><FONT size=6>
<OBJECT align=left classid=CLSID:BD96C556-65A3-11D0-983A-00C04FC29E33 height=7
id=RDS1 width=16 border = 0>
<PARAM NAME="ExecuteOptions" VALUE="2">
<PARAM NAME="FetchOptions" VALUE="3">
<PARAM NAME="SortDirection" VALUE="-1">
<PARAM NAME="InternetTimeout" VALUE="300000">
</OBJECT>
</FONT></FONT><hr color="#ff0000">
<div align="center"><center>
<table border="1" cellpadding="2" width="730">
<tr>
<td width="105"><p align="center"><strong><big>项目名称</big></strong></p></td>
<td width="438"><p align="center"><strong><big>内 容</big></strong></p></td>
<td rowspan="12" width="156" valign="center">
<p align="center"><input type="button" value="保存数据" name="save" onclick="t_save()"
style="FONT-FAMILY: 隶书; FONT-SIZE: 16px"></p>
<p align="center"><input type="button" value="取消数据" name="CANCLE" onclick="t_cancle()"
style="FONT-FAMILY: 隶书; FONT-SIZE: 16px">
<p align="center"><input type="button" value="退 出" name="back" onclick="backing()"
style="FONT-FAMILY: 隶书; FONT-SIZE: 16px"></p>
<p> </p>
<br> <br><br> <br> <br>
<br><br>
<p align="center"><img src="../images/xkrj.gif"> </p></td>
</tr>
<tr>
<td width="105" align="middle"><p align="center">分类编号</p></td>
<td width="100"><input id="flbh" name="flbh" onblur="flbh_sofus()" size="44" style="FONT-FAMILY:
宋体; FONT-SIZE: 14px" ></td>
</tr>
<tr>
<td width="105" align="middle">类别名称</td>
<td width="438"><input id="lbmc" name="lbmc" size="44" style="FONT-FAMILY:
宋体; FONT-SIZE: 14px" ></td>
</tr>
<tr>
<td width="105" align="middle">种次号</td>
<td width="438"><input id="jxh" name="jxh" size="44" style="FONT-FAMILY:
宋体; FONT-SIZE: 14px" ></td>
</tr>
<tr>
<td width="105" align="middle">次序号</td>
<td width="438"><input id="cxh" name="cxh" onblur="cxh_sofus()" size="44"
style="FONT-FAMILY: 宋体; FONT-SIZE: 14px"></td>
</tr>
<tr>
<td width="105" align="middle">书名</td>
<td width="438"><input id="xm" name="xm" size="44" style="FONT-FAMILY:
宋体; FONT-SIZE: 14px" ></td>
</tr>
<tr>
<td width="105" align="middle">作者</td>
<td width="438"><input id="zz" name="zz" size="44" style="FONT-FAMILY:
宋体; FONT-SIZE: 14px" ></td>
</tr>
<tr>
<td width="105" align="middle">译者</td>
<td width="438"><input id="yz" name="yz" size="44" style="FONT-FAMILY:
宋体; FONT-SIZE: 14px" ></td>
</tr>
<tr>
<td width="105" align="middle">入库数量</td>
<td width="438"><input id="rksl" name="rksl" onblur="rksl_sofus()" size="44"
style="FONT-FAMILY: 宋体; FONT-SIZE: 14px"></td>
</tr>
<tr>
<td width="105" align="middle">单价</td>
<td width="438"><input id="jg" name="jg" size="44" onblur="jg_sofus()" style="FONT-FAMILY:
宋体; FONT-SIZE: 14px" ></td>
</tr>
<tr>
<td width="105" align="middle">出版社名称</td>
<td width="438"><input id="cbsmc" name="cbsmc" size="44" style="FONT-FAMILY:
宋体; FONT-SIZE: 14px" ></td>
</tr>
<tr>
<td width="105" align="middle">登记号</td>
<td width="438"><input id="djh" name="djh" size="44" style="FONT-FAMILY:
宋体; FONT-SIZE: 14px" ></td>
</tr>
<tr>
<td width="105" align="middle">开本</td>
<td width="438"><input id="kb" name="kb" size="44" style="FONT-FAMILY:
宋体; FONT-SIZE: 14px" ></td>
</tr>
<tr>
<td width="105" align="middle">版次</td>
<td width="438"><input id="bc" name="bc" size="44" style="FONT-FAMILY:
宋体; FONT-SIZE: 14px" ></td>
</tr>
<tr>
<td width="105" align="middle">页数</td>
<td width="438"><input id="cs" name="cs" size="44" onblur="cs_sofus()" style="FONT-FAMILY:
宋体; FONT-SIZE: 14px" ></td>
</tr>
<script language="vbscript">
public l_YN
public l_update
rds1.server="http://<%=request.servervariables("server_name")%>"
RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"
cxh.value = 0
</script>
<script language="vbscript">
sub flbh_sofus()
' if flbh.value="" or len(trim(flbh.value))=0 then
rds1.sql="select * from tfl where rtrim(ltrim(分类编号))='"&rtrim(ltrim(flbh.value))&"' and rtrim(ltrim(类别编号))='"&rtrim(ltrim(<%=session("lbbh")%>))&"'"
rds1.executeoptions=1
rds1.refresh
if rds1.recordset.recordcount<=0 then
msgbox "没有此分类编号!"
flbh.focus
else
lbmc.value=rds1.recordset.fields(1)
jxh.focus
end if
' end if
end sub
'==========================================
sub cxh_sofus()
rds1.sql="select * from ttsml where rtrim(ltrim(分类编号))='"&rtrim(ltrim(flbh.value))&"' and rtrim(ltrim(主序号))='"&rtrim(ltrim(jxh.value))&"' and rtrim(ltrim(次序号))='"&rtrim(ltrim(cxh.value))&"'"
rds1.executeoptions=1
rds1.refresh
if rds1.recordset.recordcount>0 then
msgbox "此图书类别编号已存在!请重新输入"
cxh.focus
end if
end sub
sub rksl_sofus()
if len(trim(rksl.value))=0 or rksl.value="" then
msgbox "请输入入库数量!"
rksl.focus
elseif IsNumeric(rksl.value) then
else
msgbox "数据格式错误!"
rksl.focus
end if
end sub
'===============================================
sub jg_sofus()
if len(trim(jg.value))=0 or jg.value="" then
msgbox "请输入图书价格!"
jg.focus
elseif IsNumeric(jg.value) then
else
msgbox "数据格式错误!"
jg.focus
end if
end sub
'==============================================
sub cs_sofus()
if len(trim(cs.value))=0 or cs.value="" then
msgbox "请输入入库册数!"
cs.focus
elseif IsNumeric(cs.value) then
else
msgbox "数据格式错误!"
cs.focus
end if
end sub
'================================================
sub t_save()
dim l_rksl,l_jg,l_cs
if rksl.value="" or len(trim(rksl.value))=0 then
msgbox "请输入入库数量!"
exit sub
end if
if jg.value="" or len(trim(jg.value))=0 then
msgbox "请输入价格!"
exit sub
end if
if cs.value="" or len(trim(cs.value))=0 then
msgbox "请输入册数!"
exit sub
end if
l_rksl=clng(rtrim(ltrim(rksl.value)))
l_jg=cdbl(rtrim(ltrim(jg.value)))
l_cs=clng(rtrim(ltrim(cs.value)))
'rds1.sql="insert into ttsml(分类编号,主序号,次序号,册数,书名,作者,译者,出版社名称,价格,入库数量,库存数量,类别编号) "&_
' "values('"&rtrim(ltrim(flbh.value))&"','"&rtrim(ltrim(jxh.value))&"','"&rtrim(ltrim(cxh.value))&"',"&l_cs&",'"&rtrim(ltrim(xm.value))&"','"&rtrim(ltrim(zz.value))&"',"&_
' "'"&rtrim(ltrim(yz.value))&"','"&rtrim(ltrim(cbsmc.value))&"',"&l_jg&","&l_rksl&","&l_rksl&",'"&rtrim(ltrim(<%=session("lbbh")%>))&"')"
rds1.sql="insert into ttsml(分类编号,主序号,次序号,页数,书名,作者,译者,出版社名称,单价,入库数量,库存数量,登记号,开本,版次,类别编号) "&_
"values('"&rtrim(ltrim(flbh.value))&"','"&rtrim(ltrim(jxh.value))&"','"&rtrim(ltrim(cxh.value))&"',"&l_cs&",'"&rtrim(ltrim(xm.value))&"','"&rtrim(ltrim(zz.value))&"',"&_
"'"&rtrim(ltrim(yz.value))&"','"&rtrim(ltrim(cbsmc.value))&"',"&l_jg&","&l_rksl&","&l_rksl&","&_
"'"&rtrim(ltrim(djh.value))&"','"&rtrim(ltrim(kb.value))&"','"&rtrim(ltrim(bc.value))&"','"&rtrim(ltrim(<%=session("lbbh")%>))&"')"
rds1.executeoptions=1
rds1.refresh
If Err.Number <> 0 Then
else
MsgBox "图书增加成功保存!",,"提示窗口"
flbh.value = ""
jxh.value = ""
cxh.value =""
cs.value =""
xm.value=""
zz.value = ""
yz.value =""
cbsmc.value =""
jg.value = ""
rksl.value =""
djh.value = ""
kb.value = ""
bc.value =""
lbmc.value = ""
End If
end sub
'=====================================
sub t_cancle()
flbh.value=""
lbmc.value=""
jxh.value=""
cxh.value=""
xm.value=""
zz.value=""
rksl.value=""
cbsmc.value=""
jg.value=""
yz.value=""
cs.value=""
end sub
'=======================================================
SUB GRID1_BeforeColUpdate(colindex,oldvalue,cancle)
L_YN=TRUE
end sub
'=====================================================
sub backing()
if l_yn = true then
if l_update=false then
l_OK=msgbox ("数据已被修改,是否保存!",1,"提示窗口")
IF L_ok=1 then
l_yn=TRUE
exit sub
else
l_yn=false
history.go(-1)
end if
else
history.go(-1)
end if
else
history.go(-1)
end if
end sub
</script>
</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -