28,391
社区成员
发帖
与我相关
我的任务
分享
dim intCID
dim strClass
'取类型编号
If Request.QueryString("CID") = "" Then
response.write "错误:请指定运行参数 CID !"
response.end
Else
intCID = CInt(Request.QueryString("CID"))
End If
'获得分类目录名称
PstrSQL = "SELECT * FROM class WHERE class_id=" & intCID
PrsCommon.Open PstrSQL, PadoCon '出错处
If NOT PrsCommon.EOF then
strClass = PrsCommon("class")
end if
PrsCommon.close
<%
Dim PadoCon 'Database Connection Variable Object
Dim PstrCon 'Holds the string to connect to the db
Dim PstrDbPathAndName 'Holds the path and name of the database
Dim PstrSQL 'Holds the SQL query for the database
Dim PrsCommon 'Holds the configuartion recordset
Dim PrsCommonclass
Set PadoCon = Server.CreateObject("ADODB.Connection")
PstrDbPathAndName = Server.MapPath("/pingsheng/database/pinxuan.mdb")
PstrCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & PstrDbPathAndName 'This one is for Access 2000/2002
PadoCon.connectionstring = PstrCon
PadoCon.Open
Set PrsCommon = Server.CreateObject("ADODB.Recordset")
Set PrsCommonclass = Server.CreateObject("ADODB.Recordset")
%>