您现在的位置: 军旅同心 >> 读书赏析 >> 学习园地 >> 电脑网络 >> 技术文章 >> 文章正文
显示sql数据库所有表的名称(带删除功能)
作者:采集员 文章来源:来源于网络 点击数: 更新时间:2005-9-10 14:01:27
("<table border=""1""><tr>" & vbCrLf)
    ' this will find all the fields in that table and write them out
    FOR EACH fieldname IN adoRS.fields
        Response.Write("<td><b><font size=""2"">" & fieldname.name & "</font></B></TD>")
    NEXT ' fieldname
    Response.Write("<td><b><font size=""2"">删除</font></B></TD>")
    Response.Write("      </tr>" & vbCrLf)
    DO  UNTIL adoRS.eof
        Response.Write("<tr>")
        FOR EACH fieldname IN adoRS.fields
            strFieldValue=fieldname.value
            strField=fieldname.name
            IF isnull(strFieldValue) THEN
                strFieldValue=shownull
            END IF
            IF trim(strFieldValue)="" THEN
                strFieldValue=showblank
            END IF
            IF strField = "ID" OR strField = "id" THEN
                strRecordID = strFieldValue
            END IF
            Response.Write("<td valign=top><font size=""2"">" & strFieldValue &

"</font></td>" & vbCrLf)
        NEXT
        Response.Write("<td valign=top><font size=""2""><a href=""index.asp?table=" &

Request.QueryString("table") & "&id=" & strRecordID & "&action=del"">删除</a></font></td>" &

vbCrLf)
    adoRS.movenext
    LOOP
    Response.Write("</table>")
    adoRS.close
    Response.Write("      </tr>" & vbCrLf)
    Response.Write("      <tr>" & vbCrLf)
    Response.Write("        <td></td>" & vbCrLf)
    Response.Write("      </tr>" & vbCrLf)
    Response.Write("    </table>" & vbCrLf)
    Response.Write("    </center></div></td>" & vbCrLf)
    Response.Write("  </tr>" & vbCrLf)
    Response.Write("</table>" & vbCrLf)
    Response.Write("</center></div>" & vbCrLf)
End Sub
%>

上一页  [1] [2] 


 
免责声明:作品版权归所属媒体与作者所有!!本站刊载此文不代表同意其说法或描述,仅为提供更多信息。如果您认为我们侵犯了您的版权,请告知!本站立即删除。有异议请联系我们。
文章录入:烟灰缸    责任编辑:烟灰缸 
网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
| 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 网站公告 | 管理登录 |