📄 seals.asp.bak
字号:
<%@ 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="createseal.asp" target=_blank>创建新印章</a>
</TR></TABLE><BR>
<button onclick="window.location.reload();">刷新</button>
<H3></H3>
</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 "seals", conn, adOpenForwardOnly, adLockReadOnly 'forward only,read only
while not RS.EOF
response.write "<tr><td>" & RS("sname") & _
"</td><td>" & RS("user") & _
"</td><td><a href=" & Chr(34) & "viewseal.asp?fid=" & _
RS("sid") & chr(34) & "target=_blank>浏览</a></td><tr>"
RS.MoveNext
wend
RS.Close
Set Rs= Nothing
%>
</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 + -