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

from: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6518
Connect/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...

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.
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.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
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. '**************************************

1<html><head>
2<title> ASP_PUBS/SQL Server In NT server</title>
3</head>
4<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

1<table border="1" cellpadding="4">   
2Connected To the Database Pubs   
3using connect String "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial   
4Catalog=pubs;Data Source=\URServername"   
5<th> "EmployeeID" </th>
6<th> "FirstName" </th>
7<th> "LastName" </th>
8<th> "job_id" </th>

Do While Not objRS.EOF

1<td> ```
2 = objRS("emp_id")

``` = objRS("fname") `````` = objRS("lname") `````` = objRS("job_id") ``` ``` objRS.MoveNext ``` ``` Loop ``` ``` objRS.Close ``` ``` Set objRS = Nothing ``` ``` Set objConn = Nothing ``````