function AppendFormat(input,arr)
for i = 0 to ubound(arr)
input = replace(input,"{" & i & "}",arr(i))
next
AppendFormat = input
end function
response.Write AppendFormat("Lorem ipsum dolor sit {0} {1} amet, consectetur {1} adipiscing {1} elit.", array("TEST","TEST2"))
Tag Archive for ASP
Emulate ASP.NET’s AppendFormat Method In Classic ASP
Simple Function To Return Recordset Results as Table In HTML
function ReturnHTMLTable(query) set rs = cn.Execute(query) rs.MoveFirst response.Write "<table class=""data"" cols=""" & rs.Fields.Count & """>" response.Write "<tr>" For Each oField In rs.Fields response.Write "<th>" & oField.Name & "</th>" Next response.Write "</tr>" Do While Not rs.EOF response.Write "<tr>" For Each oField In rs.Fields response.Write "<td>" If IsNull(oField) Then response.Write " " Else response.Write oField.Value End If response.Write "</td>" Next rs.MoveNext response.Write "</tr>" Loop response.Write "</table>" end function
Try catch
on error resume next If err.number<>0 Then '''Do something End If On Error GoTo 0
Category: Uncategorized |
Tags: ASP
How To Get Total Feedburner Subscribers With JQuery and ASP
<%
function GetFeedStats(rssFile)
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = false
objXML.ValidateOnParse = false
objXML.preserveWhiteSpace = false
'objXML.Load("http://api.feedburner.com/awareness/1.0/GetFeedData?uri="&request.QueryString("url"))
objXML.Load("https://feedburner.google.com/api/awareness/1.0/GetFeedData?uri="&request.QueryString("url"))
Set objRoot = objXML.documentElement
Set objItems = objRoot.getElementsByTagName("feed")
For Each objItem in objItems
temp = objItem.selectSingleNode("entry").getAttribute("circulation")
Next
Set objRoot = Nothing
Set objItems = Nothing
GetFeedStats = temp
end function
%>
<script type="text/javascript">
$(document).ready(function(){
$.get("feedburner.asp?url=ng-tech", function(data){
$("#feedburner").text(data);
});
});
</script>
<span id="feedburner"></span>
How To Get Total Diggs Using JQuery And ASP In 30 Lines Of Code
<%
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = false
objXML.ValidateOnParse = false
objXML.preserveWhiteSpace = false
objXML.Load("http://services.digg.com/stories/?&appkey=" & Server.URLEncode("http://www.example.com/") & "&type=xml&link=" & request.QueryString("url"))
Set objRoot = objXML.documentElement
Set objItems = objRoot.getElementsByTagName("story")
For Each objItem in objItems
temp = objItem.getAttribute("diggs")
Next
Set objRoot = Nothing
Set objItems = Nothing
response.Write(temp)
%>
<script type="text/javascript">
$(document).ready(function(){
$.get("digg.asp?url=http://www.example.com/", function(data){
$("#digg").text(data);
});
});
</script>
<p>Digg: <span id="digg"></span></p>
UrlEncode – ASP Classic
dim strEncodeMe, strEncoded strEncoded = Server.urlencode(strEncodeMe)
ASP word wrap function
Function wordwrap(str,width,breakString) Dim words Dim out, temp Dim i,k out = "" words = Split(str," ") For i = 0 To UBound(words) If Len(words(i)) >= width Then temp = "" parola = words(i) For k = 1 To Len(parola) temp = Left(parola,k) If len(temp)>=width Then out = out & temp & breakString parola = Right(parola,Len(parola) - width) k = 1 temp = "" End if Next out = out & temp & breakString Else out = out & words(i) & breakString End If Next wordwrap = Trim(out) End Function
asp left padding
Function Lpad (MyValue, MyPadChar, MyPaddedLength) Lpad = string(MyPaddedLength - Len(MyValue),MyPadChar) & MyValue End Function
ASP show a sql table
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
Conn.Open Application("ConnectionString")
Dim temp
Dim i
temp =0
response.write "<table>"
do while not rst.eof
For i = 0 To rst.fields.count - 1
If temp = 0 Then
If i = 0 then response.write "<tr><td></td>"
response.write "<th>" & rst(i).name & "</th>"
If i = rst.fields.count - 1 then response.write "</tr>"
End If
Next
For i = 0 To rst.fields.count - 1
If i = 0 then response.write "<tr><td>" & temp & "</td>"
response.write "<td>" & rst(i)
response.write("</td>")
If i = rst.fields.count - 1 then response.write "</tr>"
Next
temp = temp + 1
rst.movenext
loop
response.write "</table>"
rst.close
set rst=nothing
%>
ASP iif function
Function IIF(Condition,TrueVal,FalseVal) If Condition Then IIF = TrueVal Else IIF = FalseVal End if End Function