2011年12月6日火曜日
IISとASPのバージョンを取得
<html>
<body>
<%
Response.Write "IIS のバージョンは "
Response.Write Request.ServerVariables( "SERVER_SOFTWARE" )
Response.Write " です。<BR>" & vbCrlf
Response.Write "ASP（スクリプトエンジン）のバージョンは "
Response.Write ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion
Response.Write " ( " & ScriptEngineBuildVersion & " ) です。" & vbCrlf
%>
</body>
</html>
ストアド パラメータの属性取得
<%@ LANGUAGE = VBScript %>
<html>
<head><title>Stored Proc Example</title>
</head>
<body>
<%
'call DbOpen()
'##### コネクションオブジェクトの生成 #####
Set MyRDB = Server.CreateObject("ADODB.Connection")
'##### レコードセットオブジェクトの生成 #####
Set MyREC = Server.CreateObject("ADODB.Recordset")
Set MyCMD = Server.CreateObject("ADODB.Command")
MyRDB.ConnectionString = "Provider=SQLOLEDB; Data Source='ｘｘｘｘｘｘ'; Initial Catalog=meiseidb;User ID=sa;Pwd=ｘｘｘｘｘｘｘｘ;"
MyRDB.Open
set MyCMD.ActiveConnection = MyRDB
' Specify the name of the stored procedure you wish to call
MyCMD.CommandText = "QI_e_apply_check"
MyCMD.CommandType = 4
' Query the server for what the parameters are
MyCMD.Parameters.Refresh
%>
<table border="1">
<tr>
<td><b>PARAMETER NAME</b></td>
<td><b>DATA-TYPE</b></td>
<td><b>DIRECTION</b></td>
<td><b>DATA-SIZE</b></td>
</tr>
<% For Each param In MyCMD.Parameters %>
<tr>
<td><%= param.name %></td>
<td><%= param.type %></td>
<td><%= param.direction %></td>
<td><%= param.size %></td>
</tr>
<%
Next
'call b_DbClose
MyRDB.close
set MyRDB = Nothing
set MyREC=Nothing
Set MyCMD=nothing
%>
</table>
</body>
</html>
2011年12月1日木曜日
ハードウェアの安全な取り外しアイコン再表示
ハードウェアの安全な取り外しアイコンが消えてしまったら
- スタートメニュー
- ファイル名を指定して実行
- 名前欄に「RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll」と入力して【OK】
登録:
投稿 (Atom)