<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="jmconfig.asp"-->
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"

zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"

mdbsj="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("zgzm.asp")
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open mdbsj
set rs1=conn.execute("select * from lb")
%>
<html>
<head>
<title>周公解梦</title>
</head>
<script language="JavaScript">
<!--
function check()
{
	var locat=document.searchs.locat.value;
	if(locat=="" || locat==null)
	{
		window.alert("请输入要搜索的关键字！");
		document.searchs.locat.focus;
		return false;
	}
else
	{return true;}
}
// -->
</script>
<body bgcolor="#bfac9b" text="#000000" >
<p align="center"><font size="4" face="楷体_GB2312"><b class="3d"><font size="5">[非凡国度] 
  之 周公解梦</font></b></font></p>
<div align="center"><table border="0" width="85%" cellpadding="0" cellspacing="0">
  <tr><form method="POST" action="search.asp" target=_blank name="searchs">
        <td width="100%"> 
           <a href="javascript:this.location.reload()">【刷新】</a> <a href="javascript:history.go(-1)">【返回】</a> <p align="center">输入关键字（支持模糊查询） 
            <input type="text" name="locat" size="35" class="input">
            <input type="button" value="搜索" name="B1" style="border-style: solid; border-width: 1" class="input" onclick="javascript:if (check()==true){this.document.searchs.submit('search.asp')}">
            <input type="reset" value="清除" name="B2" class="input">
          </p>
      
    </td></form>
  </tr>
</table>
<br>

  <table width="716" cellspacing="0" cellpadding="0" height="62" bordercolor="#000000" bordercolorlight="#000000" style="border: 1 solid #000000" bordercolordark="#000000">
    <tr > 
      <td width="93" height="29" bgcolor="#CC6600"> 
        <div align="center"><b><font size="2">类别</font></b></div>
    </td>
      <td width="621" height="29" bgcolor="#CC6600"><b><font size="2">解梦内容(每条收取 
        银两:<%=jmyin%>，金币:<%=jmjb%>)</font></b></td> 
  </tr>
  <%do while not(rs1.eof or rs1.bof)%>
  <tr> 
      <td width="93" height="24" valign="middle" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#000000" style="border-right: 1 solid #000000; border-bottom: 1 solid #000000"> 
        <div align="center"><font size="2"><%=rs1("lb")%></font></div>
    </td>
    <%rs.open "select id,a,b from zgjm where a="&rs1("id"),conn%>
      <td width="621" height="24" style="border-bottom: 1 solid #000000"> <font size="2" color="#000000"> 
        <p style="line-height: 150%"> 
        <%if rs.eof or rs.bof then
			response.write "<font color=red><b>此类别暂无任何内容！</b></font>"
		else
			do while not (rs.eof or rs.bof)
				response.write "<a href='#' onClick=window.open('jm.asp?id="&rs("id")&"','','scrollbars=yes,resizable=yes,width=640,height=420')>"&rs("b")&"</a> "
				rs.movenext
			loop
			rs.close
		end if%>
      </font></td>
  </tr>
  <%rs1.movenext
  loop
  rs1.close
  set rs1=nothing
  set rs=nothing
  conn.close
  set conn=nothing%>
</table>
  
</div>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
