📄 -+-
字号:
<%
vServer="http://" & Request.ServerVariables("Server_name")
categoryid=Request("categoryid")
lbmc=request("lbmc")
response.write Request("categoryid")
response.write "ok"
%>
<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="B01.jpg">
<p>
<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 size="5">图书分类输入<script language="vbscript">
public text11
RDS1.Server = "http://220.220.220.250"
RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"
RDS1.SQL = "select 分类编号,分类名称,类别编号 from tfl"
rds1.executeoptions=1
RDS1.Refresh
RDS2.Server = "http://220.220.220.250"
RDS2.Connect = "database=school;uid=sa;pwd=;dsn=school"
</script></font></p>
<hr>
<div align="left">
<table border="1" width="100%" height="235">
<tr>
<td valign="top" width="78%" height="229">
<object id="grid1" name="grid1" classid="clsid:00028CD1-0000-0000-0000-000000000046"
align="baseline" border="0" width="562" height="328" datasrc="#rds1">
<param name="allowaddnew" value="0">
<param name="allowupdate" value="0">
</object>
</td>
<td ></p>
<h5 align="center"><input type="button" value="添加数据" name="insert"
onclick="addrecord()" style="font-family: 宋体; font-size: 18"></h5>
<p align="center"><input type="button" value="删除数据" name="delete"
onclick="delrecord()" style="font-family: 宋体; font-size: 18"></p>
<p align="center"><input type="button" value="保存数据" name="save"
onclick="SubmitChanges()" style="font-family: 宋体; font-size: 18"></p>
<p align="center"><input type="button" value="取消修改" name="cancle"
onclick="cancelupdate()" style="font-family: 宋体; font-size: 18"></p>
<p> </td>
</tr>
</table>
</div><script language="vbscript">
'grid1.AllowAddnew = true
' grid1.AllowDelete = true
' grid1.AllowUpdate = true
</script>
<p><script language="vbscript">
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()
'grid1.setfocus
grid1.EditActive = true
rds1.recordset.addnew
msgbox session("categoryid")
' grid1.columns.item(1).value=session("lbmc")
grid1.col = 0
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 tjsz where rtrim(ltrim(借书证号))='"&rtrim(ltrim(new_value))&"'"
rds2.ExecuteOptions = 1
rds2.refresh
if rds2.recordset.recordCount>0 then
msgbox "借书证号重复！请重新输入"
cancle = true
end if
case 1
rds2.sql = "select 编号 from tbj where rtrim(ltrim(编号))='"&rtrim(ltrim(new_value))&"'"
rds2.ExecuteOptions = 1
rds2.refresh
if rds2.recordset.recordCount>0 then
msgbox "编号重复! 请重新输入"
cancle = true
end if
case 3
rds2.sql="select ic号 from tjsz where rtrim(ltrim(IC号))='"&rtrim(ltrim(new_value))&"'"
rds2.executeoptions=1
rds2.refresh
if rds2.recordset.recordcount>0 then
msgbox "I C 卡号重复!请重新输入"
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
</script> </p>
<OBJECT classid=CLSID:F9043C85-F6F2-101A-A3C9-08002B2F49FB id=PhotoDlg
style="HEIGHT: 68px; LEFT: 151px; POSITION: center; TOP: 288px; WIDTH: 124px">
<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="FileName" 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="FontName" VALUE="">
<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="HelpFile" VALUE=""><PARAM NAME="HelpKey" VALUE="">
<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>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -