<!--#include file="../Inc/Cls_Main.Asp" -->
<!DOCTYPE HTML>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>选择表</title>
<script src="../Scripts/jquery/jquery.js?t=20140522"></script>
<script src="../Scripts/jquery/plugins/artdialog/artdialog.js?skin=default"></script>
<script src="../Scripts/jquery/plugins/artdialog/plugins/iframeTools.js?t=20140522"></script>
<script type="text/javascript" src="common.js?t=20140522"></script>
<style type="text/css">
body{font-family: Verdana,Arial,Helvetica,微软雅黑2,宋体,sans-serif;font-size:12px;padding:0;margin:0; background:#fff}
body,div,ul,ol,li,h1,h2,h3,h4,h5,h6,form,input,p{padding:0;margin:0}
li,ul,ol,dl,dt,dd{list-style-type:none;float:left;margin:0;padding:0}
a:visited,a:link{text-decoration:none}
img{border:0}
</style>
</head>

<body>
<p style="text-align:center; font-size:14px; margin-top:15px;">
<%
Dim Conn, oRs
Set Conn = Easp.db.Conn
Set oRs = Conn.OpenSchema(20)
Do Until oRs.EOF
    If LCase(oRs(3)) = "table" Then
        If oRs(2) <> "nodownload" Then
            Easp.WN "<a href=""javascript:void(0);"" onclick=""ReturnDialogVal('TalbeName','"& Replace(oRs(2) & "","HL_","") &"');return false;"">"& oRs(2) &"</a>"
        End If
    End If
    oRs.MoveNext
Loop
Set oRs = Nothing
Set Conn = Nothing
%>
</p>
</body>
</html>