📄 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 + -