📄 -
字号:
<%
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="50" height="35"><font size="6" color="#ff0000">图书内容输入</font>
<hr color="#ff0000" size="2"></p>
<object id="RDS1" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="5" height="14">
<param name="AllowAddnew" value="true">
<param name="AllowDelete" value="true">
<param name="AllowUpdate" value="true">
<param name="allowarrows" value="true">
</object>
<div align="center"><center>
<table border="2" cellpadding="3" cellspacing="4" width="671" height="184">
<tr>
<td width="151" height="16"><font color="#0000FF">分类编号</font></td>
<td width="651" height="16"><input type="text" name="flbh" onblur="flbh_sofus()" size="28"></td>
</tr>
<tr>
<td width="151" height="16"><font color="#0000FF">种次号</font></td>
<td width="651" height="16"><input type="text" name="jxh" onblur="jxh_sofus()" size="23"></td>
</tr>
<tr>
<td width="151" height="16"><font color="#0000FF">次序号</font></td>
<td width="651" height="16"><input type="text" name="cxh" onblur="cxh_sofus()" size="23"></td>
</tr>
<tr>
<td width="151" height="60"><font color="#0000FF">图书内容</font></td>
<td width="651" height="60" valign="top"><textarea rows="8" name="memo" cols="60"></textarea></td>
</tr>
<tr>
<td width="663" colspan="2" height="16">
<input type="button" value="保存数据" name="save" onclick="save_click()"
style="font-family: 宋体; font-size: 15"> <input type="button"
value="浏览图书内容" name="find" onclick="look_click()" style="font-family: 宋体; font-size: 15">
<input type="button" value="取消数据" name="cancle" onclick="cancle_click()"
style="font-family: 宋体; font-size: 15"> <input type="button" value="退 出" name="back" onclick="backing()"
style="font-family: 宋体; font-size: 15"></td>
</tr>
<script language="vbscript">
RDS1.Server = "http://<%=request.servervariables("server_name")%>"
RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"
cxh.value = 0
</script>
<script language="vbscript">
public l_YN
public l_update
public l_save
l_save=false
sub flbh_sofus()
rds1.sql="select * from ttsml where rtrim(ltrim(分类编号))='"&rtrim(ltrim(flbh.value))&"'"
rds1.executeoptions=1
rds1.refresh
if rds1.recordset.recordcount<=0 then
msgbox "没有此分类编号!"
end if
end sub
sub jxh_sofus()
rds1.sql="select * from ttsml where rtrim(ltrim(分类编号))='"&rtrim(ltrim(flbh.value))&"' and rtrim(ltrim(主序号))='"&rtrim(ltrim(jxh.value))&"'"
rds1.executeoptions=1
rds1.refresh
if rds1.recordset.recordcount<=0 then
msgbox "没有此主序号!"
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 "没有此次序号!"
end if
end sub
sub save_click()
l_save=false
if flbh.value="" or len(trim(flbh.value))=0 or jxh.value="" or len(trim(jxh.value))=0 or cxh.value="" or len(trim(cxh.value))=0 then
msgbox "分类编号,主序号,次序号不能为空!"
else
if memo.value<>"" or len(trim(memo.value))<>0 then
rds1.sql="update ttsml set 图书内容='"&rtrim(ltrim(memo.value))&"' where rtrim(ltrim(分类编号))='"&rtrim(ltrim(flbh.value))&"' and rtrim(ltrim(主序号))='"&rtrim(ltrim(jxh.value))&"'"
rds1.executeoptions=1
rds1.refresh
If Err.Number = 0 Then
msgbox "保存图书内容成功!",,"提示窗口"
flbh.value =""
jxh.value =""
cxh.value =0
memo.value =""
l_save=true
end if
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 "没有此次序号!"
end if
end sub
sub look_click()
if flbh.value="" or len(trim(flbh.value))=0 or jxh.value="" or len(trim(jxh.value))=0 or cxh.value="" or len(trim(cxh.value))=0 then
msgbox "分类编号,主序号,次序号不能为空!"
else
rds1.sql="select 图书内容 from ttsml where rtrim(ltrim(分类编号))='"&rtrim(ltrim(flbh.value))&"' and rtrim(ltrim(主序号))='"&rtrim(ltrim(jxh.value))&"'"
rds1.executeoptions=1
rds1.refresh
memo.value=rds1.recordset.fields(0)
end if
end sub
sub cancle_click()
flbh.value=""
jxh.value=""
cxh.value=""
memo.value=""
end sub
SUB GRID1_BeforeColUpdate(colindex,oldvalue,cancle)
L_YN=TRUE
end sub
sub backing()
if l_save = false and trim(flbh.value)<>"" then
l_OK=msgbox ("数据已被修改,是否保存!",1,"提示窗口")
IF L_ok=1 then
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 + -