📄 index.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 ASP
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请保证此行在最前面
Conn = hdobj.WeekaaConn()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META HTTP-EQUIV="luxiaoqing" CONTENT="no-cache">
<STYLE TYPE="text/css">
<!--
BODY {
	background-image: url(../Image/bg.gif);
	background-position: center;
	background-repeat: repeat;
	background-attachment: fixed;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #3399FD;
} 

.style4 {
	color: #FFFFFF;
	font-size: 14px;
}
.style12 {
	color: #FFFFFF;
	font-size: 16px;
	font-family: "黑体"; 

}
.style5 {color: #FF0000}
body,td,th {
	font-size: 12px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;

}
.STYLE13 {color: #000000; font-size: 12px;}
-->
</STYLE>
<script language="JavaScript" type="text/JavaScript">
function delpay()
{
   if(confirm("确定要删除此吗？"))
     return true;
   else
     return false;	 
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>

</head>

<body onmouseover="self.status='红笛软件[http://weekaa.com/red]';return true">
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="150" align="center" valign="bottom"><img src="../Image/bigbga.jpg" width="1003" height="150"></td>
  </tr>
  <tr>
    <td height="28" align="center" valign="bottom" background="../Image/bg01a.jpg">&nbsp;</td>
  </tr>
  <tr>
    <td height="600" align="center" valign="top" bgcolor="#3399fd">

<%
La=Request.form("La")
Lb=Request.form("Lb")

Set rs = Server.CreateObject("ADODB.RecordSet")

if La="" then
if Lb="" then
sqls = "Select * From [Tespec] order by c asc"
else
sqls = "Select * From [Tespec] where c like '%"&Lb&"%'  order by a asc"
end if
else
if Lb="" then
sqls = "Select * From [Tespec] where b like '%"&La&"%'  order by c asc"
else
sqls = "Select * From [Tespec] where b like '%"&La&"%' and c like '%"&Lb&"%' order by a asc"
end if
end if
rs.Open Sqls,Conn,1,3
'=========================================================
Dim i, text, checkpage, page, MaxPerPage, CurrentPage
MaxPerPage = Request.Form("pages")
If MaxPerPage = "" Then
MaxPerPage = 12
End If
If MaxPerPage < 1 Or MaxPerPage > 1000 Then
MaxPerPage = 12
End If
MaxPerPage = MaxPerPage * 1
text = "0123456789"
rs.PageSize = MaxPerPage
GoPage = Request.Form("pagee")
For i = 1 To Len(GoPage)
checkpage = InStr(1, text, Mid(GoPage, i, 1))
If checkpage = 0 Then
Exit For
End If
Next
If checkpage <> 0 Then
If Not IsEmpty(GoPage) Then
CurrentPage = CInt(GoPage)
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount
Else
CurrentPage = 1
End If
If Not rs.EOF Then
rs.AbsolutePage = CurrentPage
End If
Else
CurrentPage = 1
End If
RsSum = CStr(rs.RecordCount) '记录总条数
pageOn = CStr(CurrentPage) '当前第几页
pageSum = CStr(rs.PageCount) '总共几页
NextPage = pageOn + 1
pageSum=pageSum + 0
If NextPage > pageSum Then
NextPage = 1
End If
'==============================================================
i=0
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF">
  <tr>
    <td height="25" colspan="9">&nbsp;</td>
  </tr>
  
  <tr><form name="form1" method="post" action="">
    <td height="60" colspan="9" align="center" bgcolor="#FFFFFF" class="STYLE2">名称
      <input name="La" type="text" id="La" size="10">      
      类别
        <input name="Lb" type="text" id="Lb" size="10">      
        <input type="submit" name="Submit" value="查">
    　[<a href='#' onClick="MM_openBrWindow('specadd.asp','红笛软件','status=no,scrollbars=no,top=10,left=200,width=580,height=350')">增加</a>]  </td>
    </form>
  </tr>
  <tr>
    <td height="40" colspan="9" align="center" class="style12">共享资料管理</td>
</tr></table>
  
  
  <table width="90%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF">
  <tr>
    <td height="28" colspan="9" align="center" background="../Image/bg01.jpg">&nbsp; </td>
  </tr>
  
  <tr>
    <td width="12%" height="28" align="center" valign="middle" bgcolor="#F4F8FA">编号</td>
    <td width="22%" align="center" valign="middle" bgcolor="#F4F8FA">共享资料名称</td>
    <td width="18%" align="center" valign="middle" bgcolor="#F4F8FA">类别</td>
    <td width="11%" align="center" valign="middle" bgcolor="#F4F8FA">文件格式</td>
    <td width="11%" align="center" valign="middle" bgcolor="#F4F8FA">作者</td>
    <td width="6%" align="center" valign="middle" bgcolor="#F4F8FA">详情</td>
    <td width="8%" align="center" valign="middle" bgcolor="#F4F8FA">相关资料</td>
    <td width="6%" align="center" valign="middle" bgcolor="#F4F8FA">修改</td>
    <td width="6%" align="center" valign="middle" bgcolor="#F4F8FA">删除</td>
  </tr>
<%
do while not rs.eof
%>
  <tr>
    <td height="28" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("a")%></td>
    <td align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("b")%></td>
    <td align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("c")%></td>
    <td align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("d")%></td>
    <td align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("e")%></td>
    <td align="center" valign="middle" bgcolor="#FFFFFF"><a href='#' onClick="MM_openBrWindow('specedit.asp?ID=<%=rs("ID")%>','红笛软件','status=no,scrollbars=no,top=10,left=200,width=580,height=350')">详情</a></td>
    <td align="center" valign="middle" bgcolor="#FFFFFF"><a href='#' onClick="MM_openBrWindow('files/UPA.asp?ID=<%=rs("ID")%>','红笛软件','status=no,scrollbars=no,top=10,left=200,width=400,height=200')">上传</a>|<a href='#' onClick="MM_openBrWindow('files/HFa.asp?ID=<%=rs("ID")%>','红笛软件','status=no,scrollbars=yes,top=10,left=200,width=620,height=300')">资料</a></td>
	
	
    <td align="center" valign="middle" bgcolor="#FFFFFF"><a href='#' onClick="MM_openBrWindow('specadd.asp?ID=<%=rs("ID")%>','红笛软件','status=no,scrollbars=no,top=10,left=200,width=580,height=350')">修改</a></td>
    <td align="center" valign="middle" bgcolor="#FFFFFF"><a href="?deln=del&ID=<%=rs("ID")%>" onClick="return delpay();">删除</a></td>
  </tr>
<%
i=i+1
if i >= MaxPerpage then exit do  
rs.movenext
loop
NextP=NextPage
if NextPage>pageSum then
NextP=1
end if

if i<MaxPerPage then
for j=1 to MaxPerPage - i

%>
  <tr>
    <td height="28" align="center" valign="middle" bgcolor="#FFFFFF">　</td>
    <td align="center" valign="middle" bgcolor="#FFFFFF">　</td>
    <td align="center" valign="middle" bgcolor="#FFFFFF">　</td>
    <td align="center" valign="middle" bgcolor="#FFFFFF">　</td>
    <td align="center" valign="middle" bgcolor="#FFFFFF">　</td>
    <td align="center" valign="middle" bgcolor="#FFFFFF">&nbsp;</td>
    <td align="center" valign="middle" bgcolor="#FFFFFF">　</td>
    <td align="center" valign="middle" bgcolor="#FFFFFF">　</td>
    <td align="center" valign="middle" bgcolor="#FFFFFF">　</td>
  </tr>
<%
next
end if
If Request.QueryString("deln") = "del" Then
call hdobj.Deler("Tespec","k")
end if
%>
  <form name='form2' method='post' action=''>
  <tr>
    <td height="28" colspan="9" align="center" background="../Image/bg01.jpg" bgcolor="#FFFFFF"><%
Response.Write "<input type='hidden' name='La' value='" & La & "'><input type='hidden' name='Lb' value='" & Lb & "'>"
Response.Write "第" & pageOn & "/" & pageSum & "页　共" & RsSum & "条记录 每页"
Response.Write "<input name='pages' type='text' id='pages' value='" & MaxPerPage & "'"
Response.Write " size='2' style='background-color: #DEE7FF; border-color: #FFFFFF; border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #003399'>"
Response.Write "条记录　转到</span>"
Response.Write "<input name='pagee' type='text' id='pagee' value='" & NextP & "' size='2' style='background-color: #DEE7FF; border-color: #FFFFFF;"
Response.Write " border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #003399'>"
Response.Write "<input name='Submit' type='submit' class='STYLE10' value='Go'>"

%></td>
  </tr>
</form>
</table>
 </td>
  </tr>
  <tr>
    <td height="25" align="center" valign="top" bgcolor="#3399FD">&nbsp;</td>
  </tr>
  <tr>
    <td height="25" align="center" valign="top" background="../Image/bg01a.jpg">&nbsp;</td>
  </tr>
</table>

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

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