📄 zjsm1.asp
字号:
<!--#include file="pwd.asp" -->
<!--#include file="tsgl_conn.inc" -->
<%
if session("sfl")="" then
session("sfl")=request("fl")
end if
tmc=session("sfl")
%>
<HTML>
<HEAD><TITLE>增加“<%=tmc%>”类图书目录</TITLE></HEAD>
<BODY bgcolor="#C0C0C0">
<%
sql="select * from flk where flmc='"&tmc&"'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, tsgl_Conn
tdm=rs("fldm") '分类代码
rs.close
set rs=nothing
%>
<H3 align=center>
增加“<%=tmc%>(<%=tdm%>)”类图书目录  <a href="zjsm.asp">返回</a>
</H3>
<form name="myform" action="zjsm2.asp" method="POST">
<input type="hidden" name="mc" value=<%=tmc%>>
<input type="hidden" name="tbh" value=<%=tdm%>>
<% if session("smc")=true then %>
    已输入图书编号：<%=session("scbh")%><br>
<% end if %>
    书名：<input type="text" name="tsm" size=60><br>
  作者名：<input type="text" name="tzzm" size=8>
  出版社：<input type="text" name="tcbs" size=30><br>
出版日期：<input type="text" name="tcbrq" size=10>
  单价：<input type="text" name="tdj" size=10>
  册数：<input type="text" name="tcs" size=10 value=1><br>
内容简介：<br>          <textarea name="tlrjj" rows="5" cols="60">
</textarea>
<p>
<center>
<input type="button" name="cmd" value=" 增 加 ">
<input type="reset" name="cmd2" value=" 取消">
</center>
</form>
<script language="vbs">
sub cmd_onclick
set oform=document.myform
ssm=oform.tsm.value
scbrq=oform.tcbrq.value
sdj=oform.tdj.value
scs=oform.tcs.value
if trim(ssm)="" then
msgbox "必须输入书名!",,"增加书目"
elseif not (scbrq="") and not isdate(scbrq) then
msgbox "日期输入错误!"
elseif not (sdj="") and not isnumeric(sdj) then
msgbox "必须输入单价!"
elseif not isnumeric(scs) then
msgbox "必须输入册数!"
else
oform.submit
end if
end sub
</script>
<p align="center"><a href="zjsm.asp">返回</a></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -