Type是VB保留字，不可以作为变量名

错误类型：

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
%>

就正确了,哈哈