chr 13

Function WriteToFile (FileName, Contents, Append)On error resume nextIf Append = true thenIMode = 8ElseIMode = 2End ifSet oFs = server. createobject ("Scripting. FileSystemObject ")Set oTextFile = oFs. OpenTextFile (FileName, iMode, True)OTextFile.

 Sub chkIP (boardid)　　　Dim rsIP　　　Dim ipArr　　　Dim ignored　　　Dim I　　　Dim ip　　　Dim SQL　　　Ip = Request. ServerVariables ("REMOTE_ADDR ")　　　 　　　Ignored = false　　　If not isempty (boardid) then　　　 　　　　SQL = "select ignoreip from board where boardid =" &

Oracle Database Upgrade (10gR2 to 11gR2) I have a general understanding of Oracle Database Upgrade today, but there are still many things worth considering. First, preparations before the upgrade require a lot of work: 1. Testing and preparation,

Character statistics module Copy codeThe Code is as follows: Sub TongJi () Set objFSO = CreateObject ("Scripting. FileSystemObject ") Set objFile = objFSO. OpenTextFile ("OK .txt", 1) StrText = objFile. ReadAll All = Len (strText) S = "'~ ! @ # $ % ^

export SQLServer data to Excel Response. Clear Response. ContentType = "text/xls" Response. AddHeader "content-disposition", "attachment?filename=excel.xls" 'Generate Excel Response. Write "no." & Chr (9) & "name" & Chr (9) & "gender" & Chr (9) &

'================================================ ========== 'Function Name: getHttpPage: Get webpage source code parameter: httpUrl -- webpage address '======================================== ================== Function GetHttpPage (HttpUrl) if

Securecrt is a powerful terminal tool that supports multiple protocols; It also supports VB and Java scripts. Today, I am free to write a script for automatic login: # $ Language = "VBScript"# $ Interface = "1.0" Sub main'Connection host 192.168.0

Recently, when exporting some data tables, a row usually represents a piece of data because it is converted into a CSV file. However, because some tables have line breaks, the format of CSV files is seriously affected. Therefore, before exporting

'Knuth's Algorithm 'Generate all permutation Option explicit Dim result, counter Const N = 4 Const format = 10 Sub swap (byref inarray, first, second) Dim t T = inarray (first) Inarray (first) = inarray (second) Inarray (second) = T End

Method 1Function RemoveHTML (strHTML) 'functions used to filter HTML code include filtering CSS and JSStrHtml = Replace (StrHtml, vbCrLf ,"")StrHtml = Replace (StrHtml, Chr (13) & Chr (10 ),"")StrHtml = Replace (StrHtml, Chr (13 ),"")StrHtml =

'*---------------------------------------------------------------------------- '* Function: htmlencode '* Description: filters HTML code. '* Parameter :-- '* Return :-- '* Author: '* Date: '*-----------------------------------------------------------

Any PHP file, replace the last line with your own directory?phpclass KillBom{    public static $m_Ext = [‘txt‘, ‘php‘, ‘js‘, ‘css‘];//检查的扩展名     /**     * 传入一个任意文件 ,自动区分定义的扩展名,然后过滤bom     * @param string $file     * @return boolean     */    public

Common syntax and functions of #TITLE =asp#INFOSome common syntax and custom functions of ASP#SORT =n #T = ===asp commonly used grammar = = =#T =============================#T = Database Related#T = Connect to an Access databaseDim

Copy Code code as follows: Set Ierunner=createobject ("Wscript.Shell") Ierunner.run "cmd/c start http://www.baidu.com/", 0 Wscript.Sleep 2000 Ierunner.sendkeys "%{f4}" On Error Resume Next Dim Wshshella Set Wshshella =

Copy Code code as follows: '===================================== ' Convert content to prevent accidental '===================================== Function Content_encode (ByVal t0) IF IsNull (t0) Or Len (t0) =0 Then Content_encode= "" Else

'================================================== ' Function name: Fphtmlencode ' Function: Title filter ' Parameter: fstring------string '================================================== Function Fphtmlencode (fstring) If IsNull (fstring)

1, practice using the Request object to accept the data and use a combination of functions. Cnbruce.html Cnbruce.asp function th (str)Str=replace (str, "damn", "MD")Str=replace (str, "lean", "KAO")Th=strEnd

After a lot of data is stored in the database, you may need to remove the entire piece of data and separate it with special symbols, and the entire data must be in one row, so if the data appearsWhen the line is wrapped, there is a problem

Here is the simplest test with Excel data. 1 Save Excel data as T.txt file, note file suffix named. txt 1 jhchen 11/07/2005 20:04:00 2005-11-7 20:04 2 jhchen 11/07/2005 20:04:00 2005-11-7 20:04 3 Jhchen 11/07/2005 20:04:00 2005-11-7 20:04 2)Sql>

'****************************** ' Function: HTMLEncode (restring) ' Parameters: restring, strings to be encoded for conversion processing ' Author: Arisisi ' Date: 2007/7/15 ' Description: Converting HTML code ' Example: HTMLEncode (" Welcome access