＋设为首页 ＋添加到收藏夹
<!--#include file="session_check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%
html1_s("Manage TypeInfo")
%>
<%table1_s()%><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="7" class="title">类 别 介 绍 列 表</td>
</tr>
<tr class="subtitle">
<td width="5%">ID</td>
<td width="75%">图片类别</td>
<td width="20%">操作</td>
</tr>
<%
Dim rs,SQLcmd,i
i = 0
SQLcmd="select TypeID from TypeInfo order by TypeID"
set rs=server.createobject("adodb.recordset")
rs.open SQLcmd,conn,1,1
if rs.eof then
%>
<tr>
<td colspan="3">还未更新类别介绍信息...</td>
</tr>
<%else
Do while not rs.eof
i = i + 1
%>
<tr bgcolor="#f8f8f8">
<td align="center"><%=i%></td>
<%dim selSQL,selRS
selSQL = "Select PicFatherName,PicFatherNameC from PicFather where PicFatherID = " + rs(0)
response.write selSQL
%>
<td> </td>
<%end if%>
<td align="center">修改 删除</td>
</tr>
<%
rs.movenext
loop%>
<%end if%>
</table>
<%table1_e()%>
<%
rs.close
set rs=nothing
closeDB()
html1_e()
%>
为什么我这一行
response.write selSQL
输不出selSQL的内容呢,大家说说一般都有什么原因啊,谢谢
你修改成这样看看
selRS = "Select PicFatherName,PicFatherNameC from PicFather where PicFatherID = " + rs(0)
selSQL = rs("PicFatherName") & rs("PicFatherNameC")
response.write selSQL
response.write selSQL 后面加个
response.end 看看
response.write selSQL
是否你有笔误？
字段名称写对了吗？
估计没执行到那儿吧，将if not rs.eof then 去掉看看
