开发学院数据库 MSSQL Server win98+PWS环境下连接读取远程SQLServer 阅读

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

　2007-11-11 05:37:18　来源：WEB开发网　　　

核心提示：from: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6518Connect/Read Remote sql server(WINDOWS平台上强大的数据库平台) Using PWS in win 98 I

　　from: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6518
Connect/Read Remote sql server(WINDOWS平台上强大的数据库平台) Using PWS in win 98

　　 I had to test Microsoft's Personal Webserver (PWS) in win 98 to access Remote sql server(WINDOWS平台上强大的数据库平台) 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(WINDOWS平台上强大的数据库平台) 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(WINDOWS平台上强大的数据库平台) 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(WINDOWS平台上强大的数据库平台) 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>