01 <%
02 Option Explicit
03 %>
04 <HTML>
05 <HEAD>
06 <TITLE>クエリー・ストリングの問題</TITLE>
07 </HEAD>
08 <BODY>
09 <%
10 Dim SQLStr
11 Dim DBCon
12 Dim RS
13 Dim i
14 Set DBCon = Server.CreateObject("ADODB.Connection")
15 DBCon.Open "Sample1","User","123"
16
17 SQLStr = "SELECT * FROM UserTBL WHERE UserID=" &
Request.QueryString("UserID")
18
19 Set RS = DBCon.Execute(SQLStr)
20
21 Response.Write("<TABLE BORDER=""1"">")
22 For i=0 To RS.Fields.Count-1
23 Response.Write("<TR><TD>" & RS(i).Name
& "</TD><TD>" & RS(i).Value & "</TD></TR>")
24 Next
25 RS.MoveNext
26 Response.Write("</TABLE>")
27 RS.Close
28 Set RS = Nothing
29 DBCon.Close
30 Set DBCon = Nothing
31 %>
32 </BODY>
33 </HTML>
|