<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
Recordset1__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_data_STRING
Recordset1.Source = "SELECT * FROM soft WHERE ID = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
id=request.querystring("id")
sql="update soft set conster"&(conster+1)&" where id="&id
set recordset1=cn.execute(sql)
response.redirect "download.asp"
%>

<%=(Recordset1.Fields.Item("softname").value)%>                                  " class="font1" > 立即下载
添加日期：	<%=(Recordset1.Fields.Item("time").value)%>	脚本类型：	<%=(Recordset1.Fields.Item("jiaoben").value)%>
文件大小：	<%=(Recordset1.Fields.Item("size").value)%>	程序类型：	<%=(Recordset1.Fields.Item("kind").value)%>
推荐程度：		下载次数：	<%=(Recordset1.Fields.Item("conter").value)%>
程序简介：    <%=(Recordset1.Fields.Item("con").value)%>

<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
错误为：Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'cn'
/at/download.asp, 第 27 行
27行：set recordset1=cn.execute(sql)

soft数据表也是在data里的啊，我引用数据库连接文件了，还要定义一个CN吗？

那我是不是把CN改成 MM_data_STRING这个？不过我试过，不行

还是一样的，仍然是：错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'cn'