通过 MS SQL Server 访问注册表
来源:岁月联盟
时间:2003-07-04
举例说明:
<%
Dim cnn
Dim rs
dim strSQL
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "provider=sqloledb;data source=.;initial catalog=master;user id=sa;password=;"
strSQL = "xp_regread 'HKEY_LOCAL_MACHINE'," &_
'SOFTWARE/Microsoft/Windows/Currentversion','CommonFilesDir'"
Set rs = cnn.Execute(strSQL)
Response.Write "Common files Path : " & rs("data")
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
%>
上一篇:关于在页面中解决打印的几个问题