📄 check.asp

📁 OFFICE办公自动化

💻 ASP

字号:

<!--#include file="dbconn.asp"-->
<%
'打开表的属性
on error resume next
if trim(request.form("tablename"))<>"" then
set  rs=server.createobject("adodb.recordset")
sqlstr="select * from "&trim(request.form("tablename"))
rs.open sqlstr,conn,1,1
total =rs.Fields.Count-1
if Err.number<>0 then
response.write "出错提示:<br>"&Err.description
response.end 
end if
end if
'执行制定的SQL语句
on error resume next
if trim(request.form("sqlstr"))<>"" then
'set rs1=server.createobject("adodb.recordset")
sqlstr=trim(request.form("sqlstr"))
conn.execute sqlstr

if Err.number<>0 then
response.write "出错提示：<br>"&Err.description
response.end
end if
response.write "执行语句成功：<br>"&trim(request.form("sqlstr"))
end if
set rs1=server.createobject("adodb.recordset")
c_id=get_rs_value("s_id",rs1,"student","","",2)	

%>
<html>
<head>
<title>记录查看</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
  <form name="form1" method="post" action="check.asp">
    <p>
      <input type="text" name="tablename">
    </p>
    <p>
      <textarea name="sqlstr" cols="30"></textarea>
      <input type="submit" name="Submit" value="执行">
    </p>
  </form>
  <%
  if trim(request.form("tablename"))<>"" then
	response.write trim(request.form("tablename"))
	
  %>

  <table width="90%" border="1" cellspacing="0" cellpadding="0">
    <tr>
	<%
   for i=0 to total
   %>
      <td><%=rs(i).name%></td>
   <%next%>
    </tr>
	<%
	if rs.recordcount<=0 then 
	response.write "<br>没有任何记录"
	end if
	do while not rs.eof
	%>
    <tr>
	<%
	for i=0 to total
	%>
      <td><%=rs(i)%></td>
	  <%next%>
    </tr>
	<%
	rs.movenext
	loop
	%>
  </table>
  <%
  end if
  %>
 
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -