<%@ Language=VBScript %>
<%
Option Explicit
'On Error Resume Next
Dim Rs,Cn,strSQL
Dim pagesize:pagesize=10
Dim maxrec:maxrec=5000
Dim pagenum:pagenum=1
Dim page,i
Set Cn=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WDB\krc.mdb"
strSQL="SELECT * FROM newsTBL WHERE cid=3 ORDER BY id DESC"
%>
株式会社KRC--workshop運営
現在記事はありません。
<%
Rs.Close
Cn.Close
Set Rs=Nothing
Set Cn=Nothing
%>
.gif)
