For i = 1 To 6
Response.Write "var m" & i & "=new alai_menu_xp()" & vbCrLf
Response.Write "m" & i & .add('xxxxxxxxx')" & vbCrLf
Response.Write "m" & i & .seperate()" & vbCrLf
.................................
Next
Response.Write "var m" & i & "=new alai_menu_xp()" & vbCrLf
Response.Write "m" & i & .add('xxxxxxxxx')" & vbCrLf
Response.Write "m" & i & .seperate()" & vbCrLf
.................................
Next
你好象用过,有原程序么,有就分就给你了