⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 xgsm.bak

📁 一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.
💻 BAK
字号:
🔍 
<!--#include file="pwd.asp" -->
<!--#include file="tsgl_conn.inc" -->
<%
cbh=request("tbh")
cfl=left(cbh,2)
sql="select * from flk where fldm='"&cfl&"'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, tsgl_Conn
if rs.eof then
	rs.close
	set rs=nothing
	response.write("图书分类代码：“"&cfl&"”错误！")
%>
	<p align=center>
	<a href="xgsm0.asp">返回</a></p>
<%
	response.end
else
	tmc=rs("flmc")
end if
rs.close
sql="select * from "&cfl&" where bh='"&cbh&"'"
RS.Open sql, tsgl_Conn
if rs.eof then
	rs.close
	set rs=nothing
	response.write ("“"&tmc&"("&cfl&")”分类图书中的编号“"&cbh&"”不存在！")
%>
	<p align=center>
	<a href="xgsm0.asp">返回</a></p>
<%
	response.end
end if
%>
<HTML>
<HEAD><title>修改图书目录</TITLE></HEAD>
<BODY  bgcolor="#C0C0C0">

<h3 align=center>修改图书目录&nbsp&nbsp
<a href="xgsm0.asp">返回</a>
</h3>
<form name="myform" action="xgsm1.asp" method="POST">

<input type="hidden" name="tbh" value=<%=cbh%>>
&nbsp&nbsp&nbsp&nbsp编号：<%=cbh%><br>
&nbsp&nbsp&nbsp&nbsp书名：<input type="text" name="tsm"  size=60 value=<%=rs("sm")%>><br>
&nbsp&nbsp作者名：<input type="text" name="tzzm"  size=8 value=<%=rs("zzm")%>>
&nbsp&nbsp出版社：<input type="text" name="tcbs"  size=30 value=<%=rs("cbs")%>><br>
出版日期：<input type="text" name="tcbrq" value=<%=rs("cbrq")%> size=10>
&nbsp&nbsp单价：<input type="text" name="tdj" value=<%=rs("dj")%> size=6>
&nbsp&nbsp册数：<input type="text" name="tcs" value=<%=rs("cs")%> size=3>
&nbsp&nbsp库存数：<input type="text" name="tkcs" size=3 value=<%=rs("kcs")%>><br>
内容简介：<br>&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp<textarea name="tlrjj" rows="5" cols="60">
<%=rs("lrjj")%>
</textarea>
<p>
<%
	rs.close
	set rs=nothing
%>
<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
skcs=oform.tkcs.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 "必须输入册数!",,"修改书目"
elseif not isnumeric(skcs) then
	msgbox "必须输入库存数!",,"修改书目"

else
	tt=msgbox ("确定修改吗?",4,"修改书目")
	if tt="6" then
		oform.submit
	end if
end if
end sub
</script>
<p align=center>
<a href="xgsm0.asp">返回</a></p>

</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -