?? default.asp
字號:
<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="content-type" content="text/html;charset=gb2312">
<TITLE>NTKO Office文檔控件ASP示例</TITLE>
</HEAD>
<BODY>
<CENTER>
<h1>NTKO Office文檔控件ASP示例</h1>
<TABLE width=500 border=0 cellpadding=2 cellspacing=2>
<TR height="25">
<TD bgcolor="#9cc3de" align="middle"><A href="createdoc.asp" target=_blank>創建新文檔</a>
<TD bgcolor="#9cc3de" align="middle"><button class = "op" onclick = ' var selobj = document.all("template");if(0 == selobj.selectedIndex )window.open("createdoc.asp");else {var temid=selobj.options[selobj.selectedIndex].value;window.open("createbytemplate.asp?tid="+temid)} ';>由模板創建</button>
<select size = "1" id = "template" style="WIDTH: 150px">
<option value=0>請選擇摸板</option>
<%
set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "templates", conn, adOpenForwardOnly, adLockReadOnly 'forward only,read only
while not RS.EOF
response.write "<option value =" & RS("tid") & ">" & RS("tname") & "</option>"
RS.MoveNext
wend
RS.Close
Set Rs= Nothing
%></select></TD>
<TD bgcolor="#9cc3de" align="middle"><A href="createtemplate.asp" target=_blank>創建模板</a>
</TR></TABLE><BR>
<button onclick="window.location.reload();">刷新</button>
<H3></H3>
<% response.write "<td><a href=" & Chr(34) & "seals.asp" & chr(34) & "target=_blank>印章管理</a></td>" %>
</table>
<hr width="80%"><B>以下是數據庫中保存的文檔</B><hr width="80%">
<table width=700 border=1 cellpadding=0 cellspacing=0>
<tr bgcolor="#9cc3de"><td width=150>標題</td><td width=150>大小</td><td width=150>操作</td></tr>
<%
'讀取數據庫中的文件列表
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "files", conn, adOpenForwardOnly, adLockReadOnly 'forward only,read only
while not RS.EOF
response.write "<tr><td>" & RS("title") & _
"</td><td>" & RS("fsize") & _
"字節</td><td><a href=" & Chr(34) & "editdoc.asp?id=" & _
RS("fid") & chr(34) & "target=_blank>編輯</a> <a href="&_
Chr(34) & "readword.asp?id="&RS("fid") & chr(34) & "target=_blank>閱讀</a></td><tr>"
RS.MoveNext
wend
RS.Close
Set Rs= Nothing
%>
</table>
<hr width="80%"><B>以下是html目錄中保存的文件</B><hr width="80%">
<table width=700 border=1 cellpadding=0 cellspacing=0>
<tr bgcolor="#9cc3de"><td width=300>文件名</td><td width=150>操作</td></tr>
<%
'讀取HTML目錄中的HTML文件列表
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "htmls", conn, adOpenForwardOnly, adLockReadOnly 'forward only,read only
while not RS.EOF
response.write "<tr><td>" & RS("title") & "</td><td><a href=" & Chr(34) & "readhtml.asp?id=" &_
RS("fid") & chr(34) & "target=_blank>瀏覽</a></td><tr>"
RS.MoveNext
wend
RS.Close
Set Rs= Nothing
Closeconn()
%>
</table>
<BR><BR><BR>
<h3>@版權所有：軟航科技,千航網絡</h3>
<h3><a href="http://www.ntko.com" target="_blank">http://www.ntko.com</h3>
<h3><A href="mailto:tanger@ntko.com">tanger@ntko.com</a></h3>
</CENTER>
</BODY>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -