服务器维护网站维护数据维护系统安全配置
专业定制网站企业建站一条龙、软件定制开发、系统集成
稳定虚机备案一条龙，稳定快捷通道
服务理念诚信守诺客户至上专业精神专心贯注

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

作者：黑客防线网安SQL维护基地来源：黑客防线网安SQL维护基地浏览次数：0

黑客防线网安网讯：Connect/Read Remote SQL server Using PWS in win 98 I had to test Microsoft&#39;&#39;s Personal Webserver (PWS) in win 98 to access Remote SQL server 7.0 installed in a NT s...

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>