📄 -+-
字号:
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl("图书目录维护")
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<%
vServer="http://" & Request.ServerVariables("Server_name")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="tjh" content="Microsoft FrontPage Express 2.0">
<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="#0000ff">图书目录维护
<object id="RDS1" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="25" height="4">
<param name="AllowAddnew" value="true">
<param name="AllowDelete" value="true">
<param name="AllowUpdate" value="true">
<param name="allowarrows" value="true">
</object>
<object id="RDS2" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="26" height="12">
<param name="AllowAddnew" value="true">
<param name="AllowDelete" value="true">
<param name="AllowUpdate" value="true">
<param name="allowarrows" value="true">
</object></font><hr size="2" color="#0000ff">
<script language="vbscript">
public text11
RDS1.Server ="http://<%=Request.ServerVariables("Server_name")%>"
RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"
RDS1.SQL = "select 分类编号,种次号=主序号,次序号,页数,书名,作者,译者,备注书号,出版社名称,单价,购买日期,入库数量,"&_
" 库存数量,限借天数=限制天数,图书内容,登记号,开本,版次 from ttsml where rtrim(ltrim(类别编号))='"&rtrim(ltrim(<%=session("lbbh")%>))&"' order by 分类编号" ' 分类编号,主序号,次序号,书名,作者,入库数量,出版社名称,价格,译者,册数,图书内容 from ttsml where rtrim(ltrim(类别编号))='"&rtrim(ltrim(<%=session("lbbh")%>))&"'"
rds1.executeoptions=1
RDS1.Refresh
RDS2.Server ="http://<%=Request.ServerVariables("Server_name")%>"
RDS2.Connect = "database=school;uid=sa;pwd=;dsn=school"
</script>
<div align="left">
<table border="1" width="100%" height="235">
<tr>
<td valign="top" width="78%" height="229">
<OBJECT align=baseline classid="clsid:00028CD1-0000-0000-0000-000000000046"
CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
dataSrc=#rds1 height=328 id=grid1 name=grid1 style="LEFT: 0px; TOP: 0px" width=562
border = 0 VIEWASTEXT></OBJECT>
</td>
<td><p align="center"><input type="button" value="添加数据" name="insert" disabled
onclick="addrecord()" style="font-family: 宋体; font-size: 14"></p>
<p align="center"><input type="button" value="删除数据" name="delete"
onclick="delrecord()" style="font-family: 宋体; font-size: 14"></p>
<p align="center"><input type="button" value="保存数据" name="save"
onclick="SubmitChanges()" style="font-family: 宋体; font-size: 14"></p>
<p align="center"><input type="button" value="取消修改" name="cancle"
onclick="cancelupdate()" style="font-family: 宋体; font-size: 14"></p>
<p align="center"><input type="button" value="退出返回" name="return"
onclick="returning()" style="font-family: 宋体; font-size: 14"></p>
<p align="center">查询条件:<input type="text" id="findfast" name="findfast" size="8"
style="font-family: 宋体; font-size: 14"></p>
<p align="center"><input type="button" value="查 询" name="return"
onclick="ffast()" style="font-family: 宋体; font-size: 14"></p>
</td>
</tr>
</table>
</div><script language="vbscript">
' grid1.AllowAddnew = true
'grid1.AllowDelete = true
'grid1.AllowUpdate = true
</script>
<p><script language="vbscript">
sub ffast()
if len(trim(findfast.value))<>0 then
RDS2.SQL="select * from ttsml where 分类编号 like '"&trim(findfast.value)&"'+'%' and 类别编号='"&rtrim(<%=session("lbbh")%>)&"' "
RDS2.ExecuteOptions = 1
RDS2.Refresh
if RDS2.Recordset.recordcount>0 then
RDS1.SQL = "select 分类编号,种次号=主序号,次序号,书名,作者,译者,出版社名称,单价,出版日期=购买日期,入库数量,"&_
" 库存数量,限借天数=限制天数,图书内容,登记号,开本,版次,页数 from ttsml where 分类编号 like '"&trim(findfast.value)&"'+'%' and 类别编号='"&rtrim(<%=session("lbbh")%>)&"' order by 分类编号" ' 分类编号,主序号,次序号,书名,作者,入库数量,出版社名称,价格,译者,册数,图书内容 from ttsml where 类别编号))='"&rtrim<%=session("lbbh")%>))&"'"
rds1.executeoptions=1
RDS1.Refresh
end if
else
msgbox "请输入查询条件",,"提示窗口"
end if
end sub
Sub SubmitChanges()
moveflag = true
if grid1.row > 0 then
grid1.row = grid1.row - 1
else
grid1.row =grid1.row +1
moveflag = false
end if
grid1.Editactive = False
On Error resume next
RDS1.SubmitChanges
If Err.Number <> 0 Then
'RDS1.CancelUpdate
MsgBox "无法更新数据！"
End If
if moveflag then
grid1.row = grid1.row +1
else
grid1.row = grid1.row -1
end if
End Sub
Sub CancelUpdate()
On Error Resume Next
RDS1.CancelUpdate
If Err.Number <> 0 Then
'RDS1.CancelUpdate
MsgBox "无法恢复原来数据！"
End If
Grid1.Rebind
End Sub
sub addrecord()
msgbox rds1.recordset.recordcount
End sub
sub delrecord()
IF NOT rds1.recordset.EOF and NOT rds1.recordset.BOF then
rds1.recordset.delete
grid1.Rebind
else
msgbox "已经到数据库的末尾或开始！不能删除！"
end if
end sub
sub grid1_BeforeColUpdate(colindex,oldvalue,cancle)
new_value = grid1.columns.item(colindex)
select case colindex
case 0
rds2.sql = "select * from tfl where rtrim(ltrim(分类编号))='"&rtrim(ltrim(new_value))&"'"
rds2.ExecuteOptions = 1
rds2.refresh
if rds2.recordset.recordCount>0 then
msgbox "分类编号重复！请重新输入"
cancle = true
end if
end select
end sub
sub field_Gotfocus()
if len(trim(condition_id.value)) = 0 then
field_select = false
compare_select = false
express_select = false
logic_select = false
end if
if colcount > 0 then
exit sub
end if
colcount = grid1.columns.count
fieldname(0)="学号"
for i=1 to colcount-1
colcaption = grid1.columns.item(i).caption
fieldname(i) = colcaption
set oOption = document.createElement("OPTION")
oOption.text = colcaption
oOption.value = cstr(i+1)
document.all.field_id.add(oOption)
next
end sub
sub field_getSelect()
if field_select then
exit sub
end if
condvalue = condition_id.value
condition_id.value = condvalue + fieldname(field_id.selectedindex)
field_select = true
compare_select = false
express_select = false
logic_select = false
end sub
sub compare_getSelect()
if compare_select then
msgbox "已经输入比较操作符!"
exit sub
end if
condvalue = condition_id.value
if len(trim(condvalue)) = 0 then
condvalue = "学号"
end if
select case compare_id.selectedindex
case 0
condvalue = condvalue + "="
case 1
condvalue = condvalue + ">"
case 2
condvalue = condvalue + "<"
case 3
condvalue = condvalue + "<="
case 4
condvalue = condvalue + ">="
case 5
condvalue = condvalue + "<>"
case 6
condvalue = condvalue + " like "
end select
condition_id.value = condvalue
compare_select = true
end sub
sub logic_getfocus()
if len(trim(express_id.value))=0 then
msgbox "条件不能为空,请先输入条件表达式!"
end if
end sub
sub logic_getSelect()
if logic_select then
exit sub
end if
condvalue = condition_id.value
select case logic_id.selectedIndex
case 0
condvalue = condvalue + " and "
case 1
condvalue = condvalue + " or "
end select
condition_id.value=condvalue
logic_select = true
field_select = false
end sub
sub express_input()
condvalue = condition_id.value
if not compare_select then
msgbox "请先输入比较操作符！"
exit sub
end if
if len(trim(condvalue))=0 then
condvalue = "学号="
end if
if len(trim(express_id.value))>0 and compare_id.selectedindex <> 6 then
condvalue = condvalue + "'" + express_id.value + "'"
condition_id.value = condvalue
elseif len(trim(express_id.value))>0 and compare_id.selectedindex = 6 then
condvalue = condvalue + "'%" + express_id.value + "%'"
condition_id.value = condvalue
else
msgbox "条件不能为空,请重新输入条件表达式!"
end if
end sub
sub freeOrder()
end sub
sub freeSearch()
if len(trim(condition_id.value))=0 then
msgbox "请先输入查询条件！"
exit sub
end if
rds1.sql =savesql + " where " + condition_id.value
'msgbox rds1.sql
on error resume next
rds1.ExecuteOptions = 1
rds1.refresh
if rds1.recordset.recordcount = 0 then
msgbox "对不起！没有找到符合条件的记录！"
rds1.sql = saveSQL
rds1.refresh
else
msgbox "总共找到 " + cstr(rds1.recordset.recordcount) +" 条符合条件的记录！"
search_flag = true
end if
end sub
sub backing()
if search_flag then
rds1.sql = saveSQL
rds1.refresh
end if
end sub
sub grid1_BeforeColEdit(colindex,keyascii,cancel)
set colsel = grid1.columns.item(colindex)
select case colsel.caption
case "图片"
photodlg.showopen
if len(trim(photodlg.filename))>0 then
'msgbox photodlg.filename
grid1.columns.item(colindex).value = photodlg.filename
end if
cancel = true
end select
end sub
sub returning()
history.go(-1)
end sub
</script> </p>
<p align="right"><img src="../images/xkrj.gif">
<p>
<object classid="CLSID:F9043C85-F6F2-101A-A3C9-08002B2F49FB" id="PhotoDlg"
style="HEIGHT: 68px; LEFT: 151px; POSITION: center; TOP: 288px; WIDTH: 124px" width="32"
height="32">
<param name="_ExtentX" value="847">
<param name="_ExtentY" value="847">
<param name="_Version" value="393216">
<param name="CancelError" value="0">
<param name="Color" value="0">
<param name="Copies" value="1">
<param name="DefaultExt" value="*.jpg;*.bmp;*.gif">
<param name="DialogTitle" value="选择学生相片文件">
<param name="Filter" value="图形文件 (*.jpg;*.bmp;*.gif)">
<param name="FilterIndex" value="0">
<param name="Flags" value="0">
<param name="FontBold" value="0">
<param name="FontItalic" value="0">
<param name="FontSize" value="8">
<param name="FontStrikeThru" value="0">
<param name="FontUnderLine" value="0">
<param name="FromPage" value="0">
<param name="HelpCommand" value="0">
<param name="HelpContext" value="0">
<param name="InitDir" value="..\images">
<param name="Max" value="0">
<param name="Min" value="0">
<param name="MaxFileSize" value="260">
<param name="PrinterDefault" value="1">
<param name="ToPage" value="0">
<param name="Orientation" value="1">
</object>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -