?? index.asp
字號:
<!--#include file="Conn.asp"-->
<!--#include file=inc.asp-->
<%Call Top("教學課件","index.asp")%>
<TABLE style="BORDER-RIGHT: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid"
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#f7f7f7 border=0>
<TBODY>
<TR>
<TD vAlign=top width=220>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD
background=images/side_bg_r1_c1.gif
height=34>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=10></TD>
<TD width=20><IMG height=14
src="images/ico_015.gif"
width=13 border=0></TD>
<TD width=100>用戶登陸</TD>
<TD width=85></TD>
<TD width=5></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD
background=images/side_bg_r2_c1.gif>
<TABLE cellSpacing=0 cellPadding=0 width=200 align=center
border=0><TBODY>
<TR>
<TD align="center"><%If Session("UserName")="" OR Session("UserId")="" Then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="Login.asp">
<tr>
<td width="34%" align="right">用戶ID：</td>
<td width="66%">
<input name="UserId" type="text" id="UserId" size="15" maxlength="20" style="height:20px;width:120px"> </td>
</tr>
<tr>
<td align="right">密 碼：</td>
<td>
<input name="UserPwd" type="password" id="UserPwd" size="15" maxlength="20" style="height:20px;width:120px"> </td>
</tr>
<tr>
<td height="3" colspan="2"></td>
</tr>
<tr>
<td><input name="action" type="hidden" id="action" value="login" /></td>
<td>
<input name="Login" type="submit" id="Login" value="登陸">
<input name="Reg" type="button" id="Reg" value="注冊" onClick="location.href='Reg.asp'"> </td>
</tr>
</form>
</table>
<%Else%>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="34%" align="right">歡 迎 您：</td>
<td width="66%"><%=Session("UserName")%></td>
</tr>
<tr>
<td align="right">登陸次數：</td>
<td><b><%=Session("UserLogins")%></b></td>
</tr>
<tr>
<td align="right">上傳課件：</td>
<td><font color=red>
<%If Not IsObject(Conn) Then ConnectionDatabase()%>
<%=Conn.execute("Select UpFiles from Users Where UserId='"&Session("UserId")&"'")(0)%>
</font>個</td>
</tr>
<tr>
<td align="right">相關操作：</td>
<td><a href="UpLoad.asp"><font color=red>上傳課件</font></a>
<a href="Edit.asp?Id=<%=Session("UserId")%>">修改資料</a>
<%If Session("UserAdmin") Then Response.Write"<a href=Admin.asp>添加用戶</a>"%></td>
</tr>
<tr>
<td height="3" colspan="2"></td>
</tr>
<tr>
<td></td>
<td align="right"><input name="Logout" type="button" id="Logout" value="退出" onClick="location.href='Login.asp?action=logout'"> </td>
</tr>
</table>
<%End If%>
</TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD
background=images/side_bg_r3_c1.gif
height=4></TD></TR></TBODY></TABLE>
</TD>
<TD width=1 bgColor=#b4b4b4></TD>
<TD width=1 bgColor=#ffffff></TD>
<TD width=1></TD>
<TD vAlign=top width=553>
<TABLE cellSpacing=0 cellPadding=0 width=553 align=center border=0>
<TBODY>
<TR>
<TD width=2 rowSpan=2></TD>
<TD width=548>
<TABLE cellSpacing=0 cellPadding=0 width=548 border=0>
<TBODY>
<TR>
<TD width=120
background=images/ad_title.gif
height=30>
<TABLE cellSpacing=0 cellPadding=0 width=120 border=0>
<TBODY>
<TR>
<TD colSpan=2 height=6></TD></TR>
<TR>
<TD width=10></TD>
<TD noWrap>▍教學課件</TD>
</TR>
<TR>
<TD colSpan=2 height=0></TD></TR></TBODY></TABLE></TD>
<TD align=middle width=428
background=images/ad_title_bg.gif
height=30></TD>
</TR></TBODY></TABLE></TD>
<TD width=3 rowSpan=2></TD></TR>
<TR>
<TD width=548>
<TABLE cellSpacing=0 cellPadding=0 width=548 border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=548 border=0>
<TBODY>
<TR>
<TD width=1 bgColor=#d4d4d4></TD>
<TD width=1 bgColor=#ffffff></TD>
<TD align=middle width=544 height=100>
<%Dim Rs,Sql
Sql="Select * From Files order by id desc"
set Rs=server.CreateObject("adodb.recordset")
If Not IsObject(Conn) Then ConnectionDatabase()
Rs.open sql,conn,1,1
If Not Rs.Eof Then
Response.Write("<TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0><TBODY>")
Response.Write("<TR align=center><TD height=20>標題</TD><Td width=80>上傳者</td><td width=110>上傳時間</td><Td width=60>文件大小</td><TD width=60>下載次數</TD>")
If Session("UserAdmin") Then Response.Write"<td width=30>操作</td>"
Response.write("</TR>")
Do Until Rs.Eof
Response.Write("<TR><TD height=20><li><a href=down.asp?id="&Rs("Id")&" target=_blank>"&getTopic(RS("FileTitle"),30)&"</a></TD><Td width=80 align=center>"&Conn.execute("Select UserName from Users Where UserId='"&Rs("UserId")&"'")(0)&"</td><td align=center width=110>"&Rs("FileUpTime")&"</td><Td align=right width=60>"&myfilesize(Rs("FileSize"))&"</td><TD align=center width=60>"&Rs("FileDowns")&"</TD>")
If Session("UserAdmin") Then Response.Write"<td width=30 align=center><a href=Admin.asp?action=del&id="&Rs("Id")&" onClick=""return confirm('您確定要刪除嗎？\n刪除后不可恢復！')"">刪除</a></td>"
Response.write("</TR>")
Rs.movenext
loop
Response.Write("</TBODY></TABLE>")
End If
Rs.close
Set Rs=nothing
%>
</TD>
<TD width=1 bgColor=#ffffff></TD>
<TD width=1 bgColor=#d4d4d4></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=548 border=0>
<TBODY>
<TR>
<TD width=1 bgColor=#d4d4d4></TD>
<TD bgColor=#ffffff height=1></TD>
<TD width=1 bgColor=#d4d4d4></TD></TR>
<TR>
<TD bgColor=#d4d4d4 colSpan=3
height=1></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE
style="BORDER-TOP-WIDTH: 1px; BORDER-RIGHT: #c0c0c0 1px solid; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT: #c0c0c0 1px solid"
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD bgColor=#dbe2e8 height=1></TD></TR>
<TR>
<TD bgColor=#ffffff height=1></TD></TR>
<TR>
<TD bgColor=#c5cfd9 height=1></TD></TR>
<TR>
<TD bgColor=#dbe2e8 height=1></TD></TR></TBODY></TABLE>
<%Call Bottom()%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -