showview.asp

来自「j2me lan 聊天 server 基于 servlet 使用向导： 」· ASP 代码 · 共 111 行

ASP
111 行
字号 
<%if Session("admin")=true then%>
<!--#include file="config.asp"-->
<%
if Request("action")<>"" then
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open constr

Con.Execute(Request("sql"))
Con.Close
%>
<html>
<head>
<meta HTTP-EQUIV="Refresh" content="2; URL=main.asp">
<title>操作成功</title>
<link rel="stylesheet" href="master.css" type="text/css">
</head>

<body bgcolor="#efefff">

<p>&nbsp;</p>
<blockquote>
  <p class="detaillabels">操作成功执行</p>
  <p class="detaillabels">等待2秒回到主工作区或按<a href="main.asp">这里</a>.</p>
<center>
  <table width="265" border="0" cellpadding="0" cellspacing="0">
  </table>
</center>
</blockquote>
</body>
</html>
<%else%>
<html>
<head>
<title>查看视图</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="master.css" type="text/css">
</head>

<body bgcolor="#efefff">
<%
'ON ERROR RESUME NEXT

table=Request("table")
Session("table")=table
if not IsEmpty(table) then
	Session("table")=table
end if
sql=Request("sql")
Session("sql")=sql

Set Con=Server.CreateObject("ADODB.Connection")
Con.Open constr

Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open Session("sql"), Con, 3, 3
%>
<table width=100% border=1 cellpadding=0 cellspacing=0>
  <tr> 
    <%for i=0 to rs.fields.count-1%>
    <th class="detaillabels" width="560"><%=rs(i).name%></th>
    <%next %>
  </tr>
  <%
if not rs.eof then
  j=1  
while not rs.eof%>
  <tr> 
    <%for i=0 to rs.fields.count-1 
   val=rs(i).value 
%>
    <td class="detaillabels" width="560">
      <%if not IsNull(val) then%>
  		    <%=Server.HtmlEncode(val)%> 
      <%else%>
   		   &nbsp; 
      <%end if%>
      </td>
    <%next %>
  </tr>
  <%    
j=j+1
rs.MoveNext     
wend
end if%>
</table>
<p class="detaillabels">视图：</p>
<table width="49%" border="1" cellspacing="0" cellpadding="0">
  <tr> 
    <td class="detaillabels" width="26%">原视图：</td>
    <td class="detaillabels" width="74%">
      <%
      	Set adox = Server.CreateObject("ADOX.Catalog")
		adox.ActiveConnection = Con
		Response.Write "<textarea cols=40 rows=5 class=""tbflat"">" & "CREATE VIEW [" & Session("table") & "] AS " & adox.Views(Session("table")).Command.CommandText & "</textarea><br>"
%>
      </td>
  </tr>
</table>
<span class="detaillabels"><a href="showview.asp?action=delete&sql=DROP VIEW [<%=Session("table")%>]">删除该视图？</a></span>
<p> <span class="detaillabels">
  <%
rs.Close
Set rs=Nothing
Con.Close
Set Con=Nothing
%>
</span></p>
</body>
</html>
<%end if
end if%>

showview.asp - 源码说明

本页面展示了「j2me lan 聊天 server 基于 servlet 使用向导： ◆数据库管理 访问mssdataadmin目录的 default.asp ◆手机wap下载java客户程序的连接 mi」中的 showview.asp 源码文件，采用 ASP 编程语言编写，共 111 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与J2ME聊天相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?