<% Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %>

深圳市坤若科技有限公司

<% Dim Content,w,h,xy,z,Input,zC,i,Tempxy,Text w = Request("w") If w = "" or Isnull(w) Then w = "100%" Else w = w&"px" h = Request("h") If h = "" or Isnull(h) Then h = "100%" Else h = h&"px" xy = Request("xy") If Request("Action") <> "Show" And Request("Action") <> "S" Then If xy = "" or Isnull(xy) Then xy = "11423498,2267347" Else If xy = "" or Isnull(xy) Then Response.Write "":Response.end End If For i=0 to Ubound(Split(xy,",")) If Split(xy,",")(i) <> "" and isNull(Split(xy,",")(i)) = False Then Tempxy = Tempxy & Split(xy,",")(i) & "," End If Next xy = Split(Tempxy,",")(0)&","&Split(Tempxy,",")(1) Input = Request("Input") FormName = Request("Form") If FormName = "" Or IsNull(FormName) Then FormName = "dialogArguments.document.editForm" Text = Request("Text") Select Case Request("Action") Case "Admin" %>

<%Case "Add"%>

<%Case "Show"%>

<% Case "S" If z="" then z=3 %>

<%Case Else%>

<%End Select%>