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)

%>

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

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

相关文章推荐

ASP组件开发 经典教程

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

ASP.NETMVC经典小事例

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

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

转自:http://www.taotechinfo.com/collect/2010222/n68565463.html http://www.cnblogs.com/Tmouse/archive/...

swing组件事例

java图形界面的基本实例

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

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

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

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

在ASP中利用COM组件开发Web应用程序

在ASP中利用COM组件开发Web应用程序 2004-10-15 16:07 来源:天极网 作者:沈晓刚 责任编辑:方舟·yesky 评论(0)   如果你是一名Act...
  • aasmfox
  • aasmfox
  • 2013年03月22日 19:39
  • 506
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB开发ASP组件经典事例[一]
举报原因:
原因补充:

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