myrequest.asp

来自「shopxp网上购物系统v6.6已经调试,百分百可用」· ASP 代码 · 共 20 行

<%
Function my_request(ParaName,ParaType)
  Dim ParaValue
  ParaValue=Request(ParaName)
  If ParaType=1 Then
    If Not isNumeric(ParaValue) Then
       response.write "非法操作"
    end if
  Else
    ParaValue=replace(ParaValue,"'","''")
  End if
  my_request=ParaValue
End function

sub wurl(keyword,url)
  Response.write "<script>alert('"&keyword&"');location.href='"&url&"';</script>"
  Response.end
end sub
%>