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

 

[] 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

%>

阅读更多
个人分类: ASP
上一篇VB开发ASP组件经典事例[二]
下一篇ASP.NET故障处理系列[一]
想对作者说点什么? 我来说一句

VB与Access数据库五大经典开发实例

2012年08月06日 11.42MB 下载

mail ASP组件 VB源程序

2011年11月15日 10KB 下载

Asp·net组件工具包VB·net

2009年03月16日 5.03MB 下载

aspcn组件 上传组件 VB ASP原程序

2011年11月12日 83KB 下载

没有更多推荐了,返回首页

关闭
关闭