?? index3.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請保證此行在最前面
Conn = hdobj.WeekaaConn()
dim stv,sqstv,La,Lb
La=Request("La")
Lb=Request("Lb")
Set rs = Server.CreateObject("ADODB.RecordSet")
if Lb="" or La="" then
sqls = "Select * From [Student] order by c asc"
else
sqls = "Select * From [Student] where "&La&" like '%"&Lb&"%' order by a asc"
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
%>
<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;
}
.style5 {color: #FF0000}
.STYLE12{
color: #FFFFFF;
font-size: 16px;
font-family: "黑體";
}
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;
}
.B A:link {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:visited {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:hover {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:active {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.STYLE2 { font-size: 18px;
font-family: "黑體";
}
-->
</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="middle" background="../Image/bg01a.jpg" class="B"><a href="index.asp">畢業審核</a> <a href="index2.asp">離校手續</a> <a href="index3.asp">實習考評</a></td>
</tr>
<tr>
<td height="60" align="center" valign="top" bgcolor="#3399fd"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#3399FD">
<tr>
<td height="35" colspan="10"> </td>
</tr>
<tr>
<td height="40" colspan="10" align="center" class="STYLE12">在校生社會實踐、專業實習考評</td>
</tr>
<tr><form name="form1" method="post" action="">
<td height="60" colspan="10" align="center" valign="middle" bgcolor="#FFFFFF"><%call hdobj.Solist("student", "La")%>
<input name="Lb" type="text" id="Lb" size="10">
<input type="submit" name="Submit" value="查"></td> </form>
</tr>
<tr>
<td height="10" colspan="10" align="center" valign="middle" bgcolor="#3399FD" class="STYLE2"> </td>
</tr>
</table>
<table width="90%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#DFEFFF">
<tr>
<td height="28" colspan="10" background="../Image/bg01.jpg"> </td>
</tr>
<tr>
<td width="86" height="28" align="center" valign="middle" bgcolor="#F4F8FA">學 號</td>
<td width="86" align="center" valign="middle" bgcolor="#F4F8FA">姓 名</td>
<td width="61" align="center" valign="middle" bgcolor="#F4F8FA">實習成績</td>
<td width="182" align="center" valign="middle" bgcolor="#F4F8FA">實習評價</td>
<td width="60" align="center" valign="middle" bgcolor="#F4F8FA">論文成績</td>
<td width="152" align="center" valign="middle" bgcolor="#F4F8FA">論文評語</td>
<td width="45" align="center" valign="middle" bgcolor="#F4F8FA">修改</td>
<td width="45" align="center" valign="middle" bgcolor="#F4F8FA">刪除</td>
<td width="45" align="center" valign="middle" bgcolor="#F4F8FA">上傳</td>
<td width="141" align="center" valign="middle" bgcolor="#F4F8FA">論文、實習報告管理</td>
</tr>
<%
do while not rs.eof
rsc=rs("c")
if len(rsc)=2 then
rsc=mid(rsc,1,1)&" "&mid(rsc,2,1)
end if
rsID=rs("ID")
Set rv = Server.CreateObject("ADODB.RecordSet")
sqlv = "Select * From [Papers] where a = '"&rsID&"' "
rv.Open Sqlv,Conn,1,3
if not rv.eof then
rvID=rv("ID")
rvc=rv("c")
rvd=rv("d")
rve=rv("e")
rvf=rv("f")
rvdd=mid(rvd,1,12)
rvff=mid(rvf,1,12)
else
rvID=""
rvc="-"
rvd="-"
rve="-"
rvf="-"
end if
%>
<tr>
<td height="28" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("a")%></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%=rsc%></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%=rvc%></td>
<td align="left" valign="middle" bgcolor="#FFFFFF"><a href='#' title="<%=rvd%>"><%=rvdd%></a></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%=rve%></td>
<td align="left" valign="middle" bgcolor="#FFFFFF"><a href='#' title="<%=rvf%>"><%=rvff%></a></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><a href='#' onClick="MM_openBrWindow('Papersadd.asp?ID=<%=rs("ID")%>&Nam=<%=rs("c")%>&XH=<%=rs("a")%>&IDD=<%=rvID%>','紅笛軟件','status=no,scrollbars=no,width=900,height=150')">修改</a></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><a href="?deln=del&ID=<%=rs("ID")%>" onClick="return delpay();">刪除</a></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><a href='#' onClick="MM_openBrWindow('../Papers/UPA.asp?ID=<%=rs("ID")%>','紅笛軟件','status=no,scrollbars=no,width=400,height=200')">上傳</a></td>
<td align="left" valign="middle" bgcolor="#FFFFFF"> <a href="../Papers/UPD.asp?ID=<%=rs("ID")%>&Nam=<%=rs("c")%>" target="_self">論文、資料管理</a></td>
</tr>
<%
rvdd="_"
rvff="_"
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"> </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="left" valign="middle" bgcolor="#FFFFFF"> </td>
</tr>
<%
next
end if
If Request.QueryString("deln") = "del" Then
call hdobj.Deler("Papers","k")
end if
%>
<form name='form2' method='post' action=''>
<tr>
<td height="28" colspan="10" 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"> </td>
</tr>
<tr>
<td height="25" align="center" valign="top" background="../Image/bg01a.jpg"> </td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -