Karuta’s ASP & M$ SQLserver

Dicas, códigos e outras coisinhas de meus estudos para não esquecer…

Archive for junho \13\UTC 2017

SQL SERVER COMMAND LIST ALL TABLES – listar todas as tabelas do banco

Posted by karuta em junho 13, 2017

SELECT * FROM SYSOBJECTS WHERE XTYPE='U' order by name
Anúncios

Posted in sql server | Leave a Comment »

contar os registros com valor do campo repetido

Posted by karuta em junho 12, 2017

select contrato_id, count(contrato_id) 
from yb_contratos
group by contrato_id
having count(contrato_id)>1

Posted in sql server | Leave a Comment »

ASP ADD – strip_tags()

Posted by karuta em junho 7, 2017

Strip all HTML/ASP/PHP tags from a string; essential for validating user input. (But not solely sufficient for validating user input. Use additional methods as appropriate.)

<%
 ' Copyright (c) 2008, reusablecode.blogspot.com; some rights reserved.
 '
 ' This work is licensed under the Creative Commons Attribution License. To view
 ' a copy of this license, visit http://creativecommons.org/licenses/by/3.0/ or
 ' send a letter to Creative Commons, 559 Nathan Abbott Way, Stanford, California
 ' 94305, USA.

' Strip HTML/ASP/PHP tags from a string.
 function strip_tags(unsafeString)
 dim regEx

set regEx = new RegExp
 
 with regEx
 .Global = true
 .IgnoreCase = true
 .Pattern = "(\<(/?[^\>]+)\>)"
 end with

strip_tags = regEx.Replace(unsafeString, "")

set regEx = nothing
 end function
%>

Posted in asp | Leave a Comment »

ASP ADD htmlspecialchars()

Posted by karuta em junho 7, 2017

ASP implementation of the PHP functions with the same names.

<%
‘ Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved.

‘ This work is licensed under the Creative Commons Attribution License. To view
‘ a copy of this license, visit http://creativecommons.org/licenses/by/3.0/ or
‘ send a letter to Creative Commons, 559 Nathan Abbott Way, Stanford, California
‘ 94305, USA.

‘ Convert special characters to HTML entities.
function htmlspecialchars(someString)
‘ Critical that ampersand is converted first, since all entities contain them.
htmlspecialchars = replace(replace(replace(replace(someString, “&”, “&amp;”), “>”, “&gt;”), “<“, “&lt;”), “”””, “&quot;”)
end function

‘ Convert HTML entities to special characters.
function htmlspecialchars_decode(someString)
htmlspecialchars_decode = replace(replace(replace(replace(someString, “&amp;”, “&”), “&gt;”, “>”), “&lt;”, “<“), “&quot;”, “”””)
end function
%>

Posted in asp | Leave a Comment »

ASP ADD and strip slashes

Posted by karuta em junho 7, 2017

ASP implementation on the PHP functions by the same name, but with support for more problematic characters.

 

<%
 ' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved.
 '
 ' This work is licensed under the Creative Commons Attribution License. To view
 ' a copy of this license, visit http://creativecommons.org/licenses/by/3.0/ or
 ' send a letter to Creative Commons, 559 Nathan Abbott Way, Stanford, California
 ' 94305, USA.
 
 ' Despite the identical naming, these functions are more comprehensive than their PHP equivalents. 
 ' They go above and beyond even mysql_real_escape_string(), by including support for backspace and horizontal tab.
 
 ' List of characters handled:
 ' \000 null
 ' \010 backspace
 ' \011 horizontal tab
 ' \012 new line
 ' \015 carriage return
 ' \032 substitute
 ' \042 double quote
 ' \047 single quote
 ' \134 backslash
 ' \140 grave accent
 
 ' Returns a string with backslashes before characters that need to be quoted in database queries
 function addslashes(unsafeString)
 dim regEx

set regEx = new RegExp
 
 with regEx
 .Global = true
 .IgnoreCase = true
 .Pattern = "([\000\010\011\012\015\032\042\047\134\140])"
 end with
 
 addslashes = regEx.replace(unsafeString, "\$1")
 
 set regEx = nothing
 end function

' Un-quote string quoted with addslashes()
 function stripslashes(safeString)
 dim regEx

set regEx = new RegExp
 
 with regEx
 .Global = true
 .IgnoreCase = true
 .Pattern = "\\([\000\010\011\012\015\032\042\047\134\140])"
 end with
 
 stripslashes = regEx.replace(safeString, "$1")
 
 set regEx = nothing
 end function
%>

Posted in asp | Leave a Comment »

Send file data via JSON from REST API and open as download file in browser (with Classic ASP/JQuery)

Posted by karuta em junho 7, 2017

Pet project challenge of the day. I have a REST API that delivers a JSON response, and I want it to include file data, so the browser at the client end can download the file. In real world what I’m doing is offering a link to the user to export some data to an XLS and download to their desktop.

I messed around with this for a while. Carriage of the file data seemed simple – at the REST end encode it to base64 and stick that into the JSON. The problem lies at the client end. I have JQuery calling the REST, and dealing with the response. How then to get the base64 out of the JSON and contrive to offer it as a File Save As situation?

Finally here’s what I came up with, it was sparked by something I saw on StackOverflow, although I cannot lay my hands on the post right now:

At the REST, encode the XLS file text to base64, and return the base64 in the JSON as a text element

On the client, I have an ASP script that acts as the controller, it receives requests from the pages (eg JQuery calls this page), then it calls the remote REST, and returns the response back to JQuery. Obviously cross-browser rules means my JQuery can only call URLs on the same domain, and my REST is not. So this script acts as the transporter for the calls. It’s even called Frank.

On the page I have a form with a hidden field, JQuery puts the base64 file data into that hidden field, then submits the form to another page.

1
2
3
4
<form id="base64Form" action="openFileToBrowser.asp" method="post" name="base64Form">
<input id="base64data" type="hidden" name="base64data" value="" />
<input id="fileName" type="hidden" name="fileName" value="responses.xls" />
</form>

This new page grabs the file data, decodes it from base64 back to text, sets the content headers to XLS etc. And hey presto, the user gets a File Save As dialog. Here’s the code on that page:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit%>
<% response.expires = 0 %>
<!--#include virtual="/includes/hex_sha1_base64.asp" -->
<%
    dim base64data
    base64data=request.form("base64data")
    if base64data<>"" then
    Response.ContentType = "application/vnd.ms-excel"
    Response.AddHeader "Content-Disposition", "attachment; filename="&request.form("fileName")
    response.write Base64_Decode(base64data)
    response.Flush()
    end if
%>

The base64 encode/decode routine I’m using is part of the very handy hex_sha1_base64.asp file which I also use for other encryption and encoding tasks (for example I use it for encryption as part of talking to OAUTH based APIs).

I haven’t tested this in all browsers yet, be interesting to see if kicks up problems with IE etc.

Posted in asp, Jquery | 1 Comment »

Mystery of why isNumeric doesn’t work how you might think

Posted by karuta em junho 7, 2017

In Classic ASP there is the function isNumeric, which one uses to test if a value is a number. So for example:

Response.write IsNumeric("21")  // true
Response.write IsNumeric("David")  // false

Seems straightforward so far. Then you try this:

Response.write IsNumeric("15447D")  // true

Every so often this little quirk would popup. This morning it’s been driving me mad because I had a set of string values that were mixtures of alphanumeric, or numeric values. I wanted to discriminate between numbers and not-numbers and store the values in different columns in a database table. Using isNumeric though kept throwing errors – it tested 15447D as being a number, and of course once I tried to insert that into an integer column an error was thrown.

Finally figured how what’s happening after a little digging online. isNumeric also considers hex values to be valid numbers. 15447D is hex for 1393789. Now the lights go on – only wondered about this for 20 years.

Apparently this is also the case for octal values.

So a custom function along these lines is the answer:

Function myIsNumeric(ByVal Value)
	Dim regEx
	Set regEx = New RegExp
	regEx.pattern = "^(0|[1-9][0-9]*)$"
	myIsNumeric = Regex.Test(Value)
End Function

tks David Eedle

Posted in asp | Leave a Comment »