错误类型:
Microsoft VBScript 编译器错误 (0x800A03F2)缺少标识符
/yychenxi/show_jg.asp,line 133,column 4
Dim type
---^
之前我定义一个记录集为type,如下:
<%
Dim type
Dim typel_numRows
Set type = Server.CreateObject("ADODB.Recordset")
type.ActiveConnection = MM_rs_STRING
type.Source = "SELECT * FROM hy_type"
type.CursorType = 0
type.CursorLocation = 2
type.LockType = 1
type.Open()
type_all_numRows = 0
%>
后来总提示那个错误,之后百度搜到是因为:Type是VB保留字,不可以作为变量名
而后改为了:
<%
Dim type_all
Dim type_all_numRows
Set type_all = Server.CreateObject("ADODB.Recordset")
type_all.ActiveConnection = MM_rs_STRING
type_all.Source = "SELECT * FROM hy_type"
type_all.CursorType = 0
type_all.CursorLocation = 2
type_all.LockType = 1
type_all.Open()
type_all_numRows = 0
%>
就正确了,哈哈