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

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

 

[] ASP页中调用DLL

Operate.asp
-----------------------------------------------------------------------------------

<%

Dim StrConn,TestCOM

Dim action,cd_id,cd_name,cd_author

 

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

Set TestCOM = Server.CreateObject("TestCOM.CDTB")

TestCOM.OpenDB(StrConn)

 

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>")

 

Select Case action

       Case "Add"

              If TestCOM.Add(CStr(StrConn),Cstr(cd_name),CStr(cd_author)) Then

                     Response.Write("Add Success!")

              Else

                     Response.Write("Add fail!")

              End If

       Case "Delete"

              If TestCOM.Delete(CStr(StrConn),CStr(cd_id)) Then

               Response.Write("Delete Success!")

              Else

                     Response.Write("Delete Fail!")

              End If

       Case "Search"

              Dim RS

              set   RS = TestCOM.Search(CStr(strconn),CStr(cd_id))

              If not RS.eof Then

              Response.Write("CD_Name:"& RS(1) &"<br>CD_Author:"& RS(2))

              Else

              Response.Write("No Any Records!")

              End If 

       Case "Update"

               If TestCOM.Update(CStr(StrConn),CStr(cd_id),CStr(cd_name),CStr(cd_author)) Then

                     Response.Write("Update Success!")    

               Else

                     Response.Write("Update Fail!")

               End If

End Select

%>

算法竞赛入门经典(第二版)-刘汝佳-第三章 数组与字符串 例题+习题(17/18)

说明本文是我对第三章题目的练习总结,建议配合紫书——《算法竞赛入门经典(第2版)》阅读本文。 另外为了方便做题,我在VOJ上开了一个contest,欢迎一起在上面做:第三章contest例题例3-1...
  • thudaliangrx
  • thudaliangrx
  • 2016年02月19日 17:28
  • 3471

PHP经典项目案例-(一)博客管理系统1

在基本学习了PHP的基础知识之后,自己开始尝试一些经典的项目案例。于是我借了一本关于PHP项目开发的书,然后找到了这个博客管理系统。(最经典的是留言板,但是我考虑了一下留言板,数据库设计稍微简单一点,...
  • u014470702
  • u014470702
  • 2014年12月05日 16:02
  • 3383

c#经典编程实例(五使用窗体控件)

一:目录 文本框TextBox 单选框RadioButton和复选框CheckBox 分组框GroupBox 工具栏ToolStript和状态栏StatusStrip 图片框PictureB...
  • zxq1138634642
  • zxq1138634642
  • 2013年06月15日 20:35
  • 9342

ASP组件开发 经典教程

  • 2010年07月19日 16:23
  • 9.49MB
  • 下载

ASP.NETMVC经典小事例

  • 2009年08月14日 10:19
  • 1.64MB
  • 下载

VB数据库系统开发导航事例(光盘付送)

  • 2008年09月23日 22:02
  • 1.29MB
  • 下载

自己开发的ASP.NET柱状图显示数据库(SQL2005)数据事例很值得学习

  • 2008年11月18日 13:13
  • 1.45MB
  • 下载

asp_net组件工具包vb_net web解决方案

  • 2007年10月18日 11:18
  • 5.01MB
  • 下载

asp.net组件工具包vb.net web解决方案

  • 2007年06月24日 11:44
  • 5.03MB
  • 下载

C#+.NET中调用VB编写的DLL代码事例

转自:http://www.taotechinfo.com/collect/2010222/n68565463.html http://www.cnblogs.com/Tmouse/archive/...
  • kongwei521
  • kongwei521
  • 2011年10月13日 20:14
  • 719
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB开发ASP组件经典事例[三]
举报原因:
原因补充:

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