win98+PWS环境下连接读取远程SQLServer

【字号：大中小】日期：2023-05-17浏览：27作者：雯心

from: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6518Connect/Read Remote SQL server Using PWS in win 98;;;;;I had to test Microsoft's Personal Webserver (PWS) in win 98 to access Remote SQL server 7.0 installed in a NT server. The clients to win 98 had LAN connections. Easy one , don't vote, have fun with PWS. In fact I tested my connection with this script, before I created an out of process server demo with VB. ;;;; code:Can't Copy and Paste this?Click here for a copy-and-paste friendly version of this code! Terms of Agreement:;;;By using this code, you agree to the following terms...;;;1) You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for langauges that allow it) freely and with no charge.;;;2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.;;;3) You may link to this code from another website, but ONLY if it is not wrapped in a frame. 4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.;; ;;;;'**************************************;;;;' Name: Connect/Read Remote SQL server U;;;;';;;;;sing PWS in win 98;;;;' Description:I had to test Microsoft's ;;;;';;;;;Personal Webserver (PWS) in win 98 to ac;;;;';;;;;cess Remote SQL server 7.0 installed in ;;;;';;;;;a NT server. The clients to win 98 had L;;;;';;;;;AN connections. Easy one , don't vote, h;;;;';;;;;ave fun with PWS. In fact I tested my co;;;;';;;;;nnection with this script, before I crea;;;;';;;;;ted an out of process server demo with V;;;;';;;;;B.;;;;' By: Manas Mukherjee;;;;';;;;' Assumes:Knowing Little bit of LAN woul;;;;';;;;;d help , VPN, HTML, Creating Virtual dir;;;;';;;;;ectory with PWS;;;;';;;;'This code is copyrighted and has;;;;' limited warranties.Please see http://w;;;;';;;;;ww.Planet-Source-Code.com/xq/ASP/txtCode;;;;';;;;;Id.6518/lngWId.4/qx/vb/scripts/ShowCode.;;;;';;;;;htm;;;;'for details.;;;;'**************************************;;;;;;;;<HTML><HEAD>;;;;<TITLE> ASP_PUBS/SQL Server In NT server</TITLE>;;;;</HEAD>;;;;<BODY><CENTER>;;;;<%;;;;Dim objConn, objRS, strQ, strOut, I;;;;Set objConn = Server.CreateObject("ADODB.Connection");;;;objConn.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=URServerName";;;;Set objRS = Server.CreateObject("ADODB.Recordset");;;;strQ = "SELECT emp_id, fname, lname,job_id ";;;;strQ = strQ & "FROM Employee ";;;;objRS.Open strQ, objConn, , , adCmdText;;;;%>;;;;<TABLE BORDER=1 CELLPADDING=4>;;;;Connected To the Database Pubs;;;;using connect String "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=URServername";;;;<TH> "EmployeeID" </TH>;;;;<TH> "FirstName" </TH>;;;;<TH> "LastName" </TH>;;;;<TH> "job_id" </TH>;;;;<% Do While Not objRS.EOF %> <TR>;;;;<TD> <% = objRS("emp_id") %>;;;;<TD> <% = objRS("fname") %>;;;;<TD> <% = objRS("lname") %></TR>;;;;<TD> <% = objRS("job_id") %></TR>;;;;<% objRS.MoveNext %>;;;;<% Loop %>;;;;<% objRS.Close %>;;;;<% Set objRS = Nothing %>;;;;<% Set objConn = Nothing %>;;;;</TABLE>;;;;</CENTER>;;;;</BODY>;;;;</HTML>

上一条：如何将图片存到数据库中？下一条：用SQLServer2000索引视图提高性能(上)

相关文章：
1. RFC2318 - The text/css Media Type2. 教你如何用Eclipse创建一个Maven项目3. 聊聊在Servlet中怎么上传文件4. 详解大数据处理引擎Flink内存管理5. 分析ABA问题的本质及其解决办法6. Flink支持哪些数据类型?7. 浅谈ArrayList和LinkedList到底谁更快8. 浅析NIO系列之TCP9. 小白必看toString(),String.valueOf,(String)强转10. 详解ArrayList的扩容机制