28,391
社区成员
发帖
与我相关
我的任务
分享
<%
dim con, rs
dim sql
dim id1
id1 = Request.QueryString("id")
set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={SQL Server};Server=(local);UID=sa;PWD=;"&_
"Database=fzgl" '打开数据库连接
set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
sql= "select Top " & id1 & " * from fqpzdj order by id desc"
rs.open sql,con,1,1
...
%>
<%
dim con, rs
dim sql
dim id1
id1 = Request.QueryString("id")
set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={SQL Server};Server=(local);UID=sa;PWD=;"&_
"Database=fzgl" '打开数据库连接
set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
sql= "select Top" & id1 & " * from fqpzdj order by id desc"
rs.open sql,con,1,1
...
%>
If IsNumeric(id1 ) = false Then
id1 = 10
Else
id1 = CLng(id1)
End If
sql="select Top " & CStr(id1) & " * from fqpzdj order by id desc"