如何在ASP中实现变量参数调用

[RHKylix]

我写了一个公用函数，想把“InfoSubGroup”作为一个变量。在ASP中如何把值传给InfoSubGroup呢？
因为我大类招商项目又分又好多子类，免得写好多过程，直接调用就可以了。
Public Sub ShowZsxm()
Dim Sql, CharN
Dim RsZsxm, TmpStr, TipStr
CharN = 20
Sql = ""
Sql = Sql & " SELECT Top 5 * FROM Wyxx"
Sql = Sql & " WHERE (ValidIf <> 0) AND (InfoGroup='招商项目') AND (InfoSubGroup = '" & InfoSubGroup & "')"
Sql = Sql & " ORDER BY UpTime DESC, ID"
Response.write sql
response.end
Set RsZsxm = Server.CreateObject("ADODB.Recordset")
RsZsxm.Open Sql, DBDat, adOpenKeyset, adLockReadOnly
Do While Not RsZsxm.EOF
With Response
.Write "<p align='left'> · "
.Write p0ShowInfoAHref(RsZsxm)
TipStr = RsZsxm.Fields("Title") & "": TmpStr = p0HtmlDLeft(TipStr, CharN)
If TipStr <> TmpStr Then
.Write "<span title='" & p0HtmlEncode(TipStr) & "'>" & p0HtmlEncode(TmpStr) & "</span>"
Else
.Write p0HtmlEncode(TmpStr)
End If
.Write "</a>"
If Not IsNull(RsZsxm.Fields("UpTime").Value) Then
.Write "<span class='t'><font color='#999999'>(" & p0FormatDate(RsZsxm.Fields("UpTime").Value) & ")</font></span>"
End If
.Write "</p>" & vbCrLf
End With
RsZsxm.MoveNext
Loop
RsZsxm.Close: Set RsZsxm = Nothing
End Sub

[then1984]

第一句改成Public Sub ShowZsxm(InfoSubGroup)

[online]

http://blog.csdn.net/online/category/9939.aspx
Asp组件入门与精通系列之一

[online]

可以参数传递，session传递,get,post传递

[RHKylix]

我试过了，还是没用。
如下：
Public Sub ShowZsxm(InfoSubGroup)
在页面中调用<%Call ShowZsxm(基地类)%>