getauthors.asp

来自「Microsoft?ASP.NET Programming with Micro」· ASP 代码 · 共 62 行

ASP

62 行

<%@ Language=VBScript %>
<html>
<head>
<%
Dim objConn
Dim objCmd
Dim objRS
Dim strConn

' Do NOT use the sa account in data access code! 
' Doing so is a MAJOR security risk!
' Either use a trusted connection, or use a 
' less-privileged account to access the database.
strConn = "PROVIDER=SQLOLEDB;INITIAL CATALOG=PUBS;" _
   & "SERVER=(local)\VSdotNET;uid=sa;pwd=;"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objCmd = Server.CreateObject("ADODB.Command")
Set objRS = Server.CreateObject("ADODB.Recordset")

objCmd.CommandText = "SELECT * FROM Authors"
objConn.Open strConn
Set objCmd.ActiveConnection = objConn
Set objRS = objCmd.Execute

Sub FormatTable

   Dim objField

   If Not objRS.EOF Then
      Response.Write "<table border=2 cellspacing=0>"
      Do While Not objRS.EOF
         Response.Write "<tr>"
         For Each objField In objRS.Fields
            Response.Write "<td>" & objField & "</td>"
         Next
         Response.Write "</tr>"
         objRS.MoveNext
      Loop
      Response.Write "</table>"
   Else
      Response.Write "No Records!"
   End If

End Sub
Sub CleanUp()
   objConn.Close
   Set objConn = Nothing
   Set objCmd = Nothing
   Set objRS = Nothing
End Sub
%>
</head>
<body>

<%
FormatTable()
CleanUp()
%>

</body>
</html>

getauthors.asp - 源码说明

本页面展示了「Microsoft?ASP.NET Programming with Microsoft Visual C#?.NET Version 2003 Step By Step」中的 getauthors.asp 源码文件，采用 ASP 编程语言编写，共 62 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Microsoft相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?