关闭

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

1391人阅读 评论(0) 收藏 举报

 [一] 纯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)

%>

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

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:192308次
    • 积分:2478
    • 等级:
    • 排名:第15392名
    • 原创:46篇
    • 转载:32篇
    • 译文:0篇
    • 评论:38条