<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
|
OrdClass=trim(Request("OrdClass"))
|
|
If OrdClass<>"" And OrdClass<>"" then
|
webJson=OrderClassB(OrdClass,"vMono")
|
Else
|
webJson=""
|
End If
|
'Response.End
|
|
Response.Write webJson
|
%>
|
