<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0

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"
name=zhbg_name
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("global.asa")
Conn.Open Connstr
set rs=conn.execute("select * from 航海物品 where 拥有者='"& name &"'")
%>
<html>
<head>
<title>商品一缆</title>
<link href="../../../css.css" rel="stylesheet" type="text/css">
</head>
<body >
<table width="60%" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <tr align="center"> 
    <td height="22">你现有商品</td>
  </tr>
</table>
<table width="60%" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <tr align="center" bgcolor="#660000"> 
    <td width="25%">丝绸</td>
    <td width="25%">人参</td>
    <td width="25%">珠宝</td>
    <td width="25%">瓷器</td>
  </tr>
  <% do while not rs.eof %>
  <tr align="center"> 
    <td width="25%"><%=rs("丝绸")%></td>
    <td width="25%"><%=rs("人参")%></td>
    <td width="25%"><%=rs("珠宝")%></td>
    <td width="25%"><%=rs("瓷器")%></td>
  </tr>
  <%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<table width="60%" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <tr align="center"> 
    <td height="32"><br>
      [-非凡国度-] <br>
    </td>
  </tr>
</table>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>