<% Option Explicit %>
<!--#include file="../../Inc/Const.asp" -->
<!--#include file="../../Inc/Cls_DB.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
<html>
<head>
<link href="../../CSS/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<%
Dim DBC,Conn,RsJsObj,ID,SQLStr
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
Set ID = Request("ID")
%>
<!--#include file="../../Inc/Session.asp" -->
<!--#include file="../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P109") then Call ReturnError()
%><body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <%
if ID = "" then
%>
  <tr> 
    <td>参数传递错误</td>
  </tr>
  <%
else
SQLStr = "Select Info from FreeJS Where ID="&ID
Set RsJsObj=Conn.Execute(SQLStr)
%>
  <tr> 
    <td nowrap><% = RsJsObj("Info") %></td>
  </tr>
  <%
end if
%>
</table>
</body>
</html>
<%
Set RsJsObj = Nothing
Set Conn = Nothing
%>
