📄 上机日志查阅.asp

📁 校园网综合信息管理系统!实现校园管理的基本功能.
💻 ASP
字号:

<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl("用户模块添加")
%>

<!--#include virtual="/school/public/CheckUrl.asp"-->

<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="../images/Bkg35.jpg">

<p><font size="6" color="#ff0000">上机记录查阅</font><br><img src="../images/Slidbar.gif" width="760">
<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>
<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>
</p>


<script language="vbscript">
   public  text11
   PUBLIC L_MKMC
   L_INS=TRUE
   L_DEL=TRUE  
    
    RDS1.Server ="http://<%=request.servervariables("server_name")%>"

    RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"

    RDS1.SQL = "select * from login_log"
    RDS1.ExecuteOptions = 1

    RDS1.Refresh

    RDS2.Server = "http://<%=request.servervariables("server_name")%>"

    RDS2.Connect = "database=school;uid=sa;pwd=;dsn=school"
    
    
    
</script>
<div align="center"><center>

<table border="1" width="62%" bgcolor="#FED5C9">
  <tr>
    <td valign="top" width="63%"><p align="center">
    <OBJECT align=baseline classid="clsid:00028CD1-0000-0000-0000-000000000046"
     CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
	dataSrc=#rds1 height=329 id=grid1 name=grid1 style="LEFT: 0px; TOP: 0px" width=307 
	border = 0 VIEWASTEXT></OBJECT>
    </td>
    <td>
    <p align="center"><input type="button" NAME="DEL" value="删  除" onclick="recorddelete()"
    style="font-family: 隶书; font-size: 17"></p>
    <p align="center"><input type="button" value="保  存" NAME="SUB" onclick="SubmitChanges()"
    style="font-family: 隶书; font-size: 17"></p>
    <p align="center"><input type="button" value="退  出" NAME="return" onclick="returning()"
    style="font-family: 隶书; font-size: 17"></td>
  </tr>
</table>
</center></div>

<script language="vbscript">

    '  Grid1.AllowAddnew = true
	'  Grid1.AllowUpdate = true
	'  Grid1.AllowDelete = true
	'  Grid1.AllowArrows = true


   
sub grid1_BeforeColEdit()

   'grid1.editactive = true

end sub


Sub SubmitChanges()

  if grid1.row > 1 then

         grid1.row = grid1.row -1
     
	else

		grid1.row =grid1.row +1
	
		moveflag = false
	
	end if
 
 
   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 recorddelete()

     l_ok = msgbox("你真的要删除此项目吗!",1,"提示")
   
     
      if l_ok  = 1 then
     
       
 	    	       
 	    
	    rds1.recordset.delete

        grid1.rebind
       

   end if
 
end sub





Sub MoveFirst()

  RDS1.Recordset.MoveFirst

End Sub

Sub MovePrevious()
   If Not RDS1.Recordset.BOF Then
      RDS1.Recordset.MovePrevious
   End If
End Sub

Sub MoveNext()
   If Not RDS1.Recordset.EOF Then
      RDS1.Recordset.MoveNext
   End If
End Sub

Sub MoveLast()
   RDS1.Recordset.MoveLast
End Sub

sub returning()
    history.go(-1)
end sub    

</script>
</body>
</html>
⌨️ 快捷键说明

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