28,391
社区成员
发帖
与我相关
我的任务
分享
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
set rs=server.CreateObject("adodb.recordset")
function showb(d)
select case d
case 1
response.Write "部门1"
case 2
response.Write "部门2"
case 3
response.Write "部门3"
case 4
response.Write "部门4"
end select
end function
%>
<%
call showb(1)
%>