win98+PWS环境下连接读取远程SQLServer
点击次数：24 次 发布日期：2008-11-27 18:53:28 作者：源代码网
|
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... 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> 源代码网供稿. |
