 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% dim conn dim strconn dim rs dim strsql dim strsql2 dim strsql3 dim strsql4 dim strsql5 dim strsql6 dim strsql7 dim strsql8 \\\'strconn = Driver={SQL Server};Description=example;SERVER=222.222.1.2;UID=webexample;PWD=; DATABASE=webexample" \\\'Format Declare & EXEC statements that will be passed \\\'to the database with the output parameters strsql = "DECLARE " & CHR(10) & "@Id_Req " & "INT" & CHR(10) strsql2 ="exec " & "sp_EmpInfo" & " \\\'" & request("txtFirstName") & "\\\'," & "\\\'" & request("txtLastName") & "\\\', " & "\\\'" & request("txtaddress") & "\\\', " & "\\\'" & request("txtcity") & "\\\', "& "@Id_Req " & "OUTPUT" & chr(10) \\\'Formats one or more sql statements that will be passed to the \\\'database In this examples I use six different ways. strsql3 ="SELECT * FROM AllData WHERE RecordId = @Id_Req" & Chr(10) strsql4 ="SELECT AllData.fname, AllData.lname FROM Alldata WHERE RecordId = @Id_Req" & Chr(10) strsql5 ="SELECT AllData.fname FROM AllData WHERE RecordId = @Id_Req" & Chr(10) strsql6 ="SELECT AllData.lname FROM AllData WHERE RecordId = @Id_Req" & Chr(10) strsql7 ="SELECT AllData.Address FROM AllData WHERE RecordId = @Id_Req" & Chr(10) strsql8 ="SELECT AllData.city FROM AllData WHERE RecordId = @Id_Req" & Chr(10) \\\'Puts together all of the local variables into one variable \\\'That will be used by the recordset object strsql = strsql & strsql2 & strsql3 & strsql4 & strsql5 & strsql6 & strsql7 & strsql8 \\\'This is optional this writes out the strsql local variable \\\'that will be passed to the database response.write "<b>" & "Sql Statement that is passed to the database" & "</b>" & "<br>" response.write strsql & "<br>" & "<br>" \\\'sets a connection & recordset objects and executes the strsql local variable set conn = server.createobject("adodb.connection") conn.open strconn set rs = server.createobject("adodb.recordset") rs.open strsql, conn \\\'Parses out the individual recordsets and places them \\\'into individual table rows intcount = 1 Do Until rs Is Nothing response.write "<table border=\\\'1\\\' width=\\\'25%\\\'>" response.write "<b> Contents of recordset #" & intCount & "</b><br>" \\\'Parses out the individual recordsets and places them into table rows Do While Not rs.EOF response.write "<TR>" For Each oField In RS.Fields response.write "<TH>" & oField.Name & "</TH>" Next Response.write "</TR>" & "<TR>" For Each oField In RS.Fields response.write "<TD ALIGN=center>" If IsNull(oField) Then Response.Write " " Else Response.Write oField.Value End If response.write "</TD>" Next rs.MoveNext Loop \\\'Uses the NEXTRECORDSET Method Set rs = rs.NextRecordset intCount = intCount + 1 response.write "</table>" Loop %> 返回类别: 教程 上一教程: ASP内置对象详解之SESSION对象 下一教程: ASP中的函数应用方式及应用举例(一) 您可以阅读与"使用NEXTRECORDSET通过一个CONNECTION输出多个SELECT查询"相关的教程: · 操作必须使用一个可更新的查询解决办法 · 针对SELECT写了一个通用的OPTION输出函数 · 如何在ADO中使用CONNECTION 对象什么是CONNECTION对象 · 在ADO使用SELECT语法二 · 多个域名后缀同时查询的域名查询系统 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
