<%
Dim XMID,pages2,xyz
XMID = request("XMID")
pages = request("pages")
pages2 = request("pages2")
xyz= request("xyz")
Dim Rs2
Set Rs2 = oConn.Execute("SELECT top 1 * FROM [ACollect] WHERE ID = "&XMID&"")
数据库里面的XMID是长整型, 给它强制转换过了,Set Rs2 = oConn.Execute("SELECT top 1 * FROM [ACollect] WHERE ID = "&XMID&"") 这里也将ID加过[ ID ],'"&XMID"'这样也还是错误。