VB开发ASP组件经典事例[一]

原创 2006年06月02日 03:04:00

 [一] 纯ASP脚本表现功能[增/删/查/改]

Test_Tb.asp
----------------------------------------------------------------------------------------------------------

<script language="javascript">

       function operate(obj)

       {       window.location.href='operate.asp?action='+obj.value+'&cd_id='+f1.cd_id.value+'&cd_name='+f1.cd_name.value+'&cd_author='+f1.cd_author.value;

       }

</script>

<html>

<body>

Temp_CD Table

<form name="f1">

<ul>

       <li>cd_id:<input type="text" name="cd_id" />

       <li>cd_name:<input type="text" name="cd_name" />

       <li>cd_author:<input type="text" name="cd_author" />

</ul>

<input type="button" value="Add" onClick="operate(this)" />

<input type="button" value="Delete" onClick="operate(this)" />

<input type="button" value="Search" onClick="operate(this)" />

<input type="button" value="Update" onClick="operate(this)" />

</form>

</body>

</html>

operate.asp
----------------------------------------------------------------------------------------------------------

<%

Option Explicit

Response.Buffer = True

On Error Resume Next

Dim StrConn,Conn,RS,Sql

Dim action,cd_id,cd_name,cd_author

Dim Msg

 

StrConn = "driver={sql server};server=(local);uid=sa;password=love!@#;database=Northwind"

Set Conn = Server.CreateObject("ADODB.Connection")

 

action = Request.QueryString("action")

cd_id = Request.QueryString("cd_id")

cd_name = Request.QueryString("cd_name")

cd_author = Request.QueryString("cd_author")

 

Response.Write("action:"&action&"<br>")

Response.Write("CD_ID:"&cd_id&"<br>")

Response.Write("CD_Name:"&cd_name&"<br>")

Response.Write("CD_Author:"&cd_author&"<p>")

 

Conn.Open StrConn

If Err.Number <> 0 Then

       Msg = "The Database Connect Fail !"

Else

       If action = "Search" Then

              Sql = "Select * From Temp_CD Where CD_ID = "&cd_id

              Set Rs = Conn.execute(Sql)

              If Err.Number <> 0 Then

                     Msg = action&" Fail!"

              Else

                     If Rs.Eof Then

                            Msg = "No Any Records!"

                     Else

                            Msg = "CD_Name:"&Rs("CD_Name")&"<br>CD_Author:"&Rs("CD_Author")

                     End If

              End If

              Rs.Close

              Set Rs = Nothing

       Else

              Select Case action

                     Case "Add"

                            Sql = "Insert Temp_CD (CD_Name,CD_Author)values('"&cd_name&"','"&cd_author&"')"

                     Case "Delete"

                            Sql = "Delete Temp_CD Where CD_ID = "&cd_id

                     Case "Update"

                            Sql = "Update Temp_CD Set CD_Name = '"&cd_name&"',CD_Author = '"&cd_author&"'"   

              End Select

              Conn.execute(Sql)

              If Err.Number <> 0 Then

                     Msg = action&" Fail!"

              Else

                     Msg = action&" Success!"

              End If

       End If

       Conn.Close

       Set Conn = Nothing

End If

Response.Write(Msg)

%>

附:
----------------------------------------------------------------------------------------------------------

不知代码是否可以更精练?

写COM组件用于ASP/PHP等动态网页

ASP、PHP等动态网页语言的功能已很强大,但COM能使它如虎添翼。其实我们平时用的ADO、FSO、Jmail等也就是COM。借助COM,WEB可以调用本地应用程序的几乎所有功能来反馈给页面。例如,查...
  • asanscape
  • asanscape
  • 2014年04月12日 12:34
  • 2057

在VB中利用Word宏命令开发ASP组件

在Mis系统的实际开发中,我们有时需要将当前页面上报表的数据以Word文档的格式下载到本地,这种实现并不困难。但是有时我们需要对下载的Word文档的格式做一些设置,比如标题颜色,字体大小,字间距等等,...
  • u014112224
  • u014112224
  • 2014年03月19日 18:10
  • 202

浅析ASP内置组件

本文的内容是使用ASP的ActiveX Server Components(组件)。   一、 Browser Capabilities Component(浏览器能力组件):   我们知道,不同...
  • u014440119
  • u014440119
  • 2014年04月20日 10:17
  • 361

asp.net vb版 cache 处理缓存实例

asp.net vb版 cache 处理缓存
  • Jamie2012
  • Jamie2012
  • 2017年04月26日 22:46
  • 438

asp使用CDO.Message发送邮件详细代码集合

 发送文本Email: 1 2 Set myMail=CreateObject("CDO.Message") ...
  • kirawoo
  • kirawoo
  • 2017年07月06日 14:25
  • 517

swing组件事例

java图形界面的基本实例
  • twilight_karl
  • twilight_karl
  • 2016年10月30日 20:00
  • 94

VB语言COM组件开发GUID指定方法

一、背景          VS2010开发环境下,VB的开发许多代码可以自动的生成模板,节省大量开发时间。 二、方法    新建一个项目,选择Visual Basic\Window \ 类库,假设项...
  • zhouqt
  • zhouqt
  • 2016年05月24日 21:12
  • 1228

POSIX 下进程控制经典案例

在传统的操作系统中,程序并不能独立运行,作为资源分配和独立运行的基本单位都是进程。操作系统所具有的四大特征也都是基于进程而形成的,并可从进程的观点来研究操作系统。显然,在操作系统中,进程是一个极其重要...
  • xiyou_android
  • xiyou_android
  • 2015年11月03日 19:55
  • 852

VB6.0调用SetTimer实现定时器

VB6.0调用SetTimer实现定时器 Timer.bas: Option Explicit Declare Function SetTimer Lib "user...
  • autumn20080101
  • autumn20080101
  • 2016年11月07日 16:33
  • 735

C#创建COM组件,并在ASP、PHP中调用方法

1、新建项目        -- 选择Visual C# - 类库        -- 项目名称:如 SendMailLib        -- 去掉选中项 ”为解决方案创建目录”        --...
  • xmlife
  • xmlife
  • 2016年06月11日 10:44
  • 1099
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB开发ASP组件经典事例[一]
举报原因:
原因补充:

(最多只允许输入30个字)