asp编辑及删除视图

编辑及删除视图
用户可以查看创建视图的基本信息和创建视图的语句，并可以修改视图定义或者删除视图。
ASP通过执行查询系统表“sysobjects”的SQL语句查看用户创建的视图基本信息，代码如下：
<%
Set rs=Conn.Execute("select  name,crdate from sysobjects where type='v' and category=0")
Response.Write(rs("name"))  '显示视图名称
Response.Write(rs("crdate"))  '显示视图创建时间
%>
ASP通过执行SQL Server系统存储过程sp_helptext，可以查看创建视图的语句，代码如下：
<%
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "sp_helptext "&视图名称&"",Conn,1,1
Response.Write(rs("text")) '显示创建视图语句
%>
ASP通过执行ALTER VIEW语句实现修改视图定义的功能，代码如下：
<%Conn.Execute("alter view "&视图名称&" as "&修改的Select语句&"")%>
执行DROP VIEW语句实现删除视图的功能，代码如下：
<%Conn.Execute("drop view "&视图名称&"")%>
本示例可以查看用户创建视图的基本信息以及创建视图的语句，可以修改视图定义、删除视图，运行结果如图1所示。

图1  编辑及删除视图
程序代码如下：
<%
If Request.QueryString("vie_name")<>"" Then vie_name=Request.QueryString("vie_name")
txt_view=Trim(Request.Form("txt_view"))
'修改视图定义
Conn.Execute("alter view "&vie_name&" as "&txt_view&"")
'删除视图
Conn.Execute("drop view "&vie_name&"")
%>
查看创建视图的语句。
<%  Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "sp_helptext "&vie_name&"",Conn,1,1
%>
<textarea name="textarea" cols="35" rows="4"><%if rs("text")<>"" then response.Write(rs("text")) end if%></textarea> '使用多行文本框显示创建的视图语句