/*
If reproduced, please specify the author
Original Author: He Zhiqiang
Improvement: sonymusic[Sonymusic@163.net]
File: ubb.php
Remark: Say is an improvement, in fact, the core function parse () has been completely rewritten, and the idea is not
1, ASP file:
' EXAMPLE as: Put a 24-hour online number in the database into an Excel file
' AUTHOR: Steel Workers
' Email:hello_hhb@21cn.com
' Date:2001-3-25
' Test: Testing through in Nt4,sp6,sql SERVER 7.0,excel2000
%>
Generate Excel File
function Htmlencode2 (str) Dim result Dim L if IsNULL (str) then htmlencode2= "" Exit Function End If L=len (str) result= "" Dim i for i = 1 to l Select Case Mid (str,i,1) case " result=result+ " case ">" result=result+ "gt;" case
ASP display directory download all folders and files
Sub Showallfile (Path)Set F1so = CreateObject ("Scripting.FileSystemObject")If not f1so. FolderExists (Path) then Exit SubSet f = f1so. GetFolder (Path)Set FC2 = F.filesFor each myfile in FC2If
/*
If reproduced, please specify the author
Original Author: He Zhiqiang
Improvement: sonymusic[Sonymusic@163.net]
File: ubb.php
Remark: Say is an improvement, in fact, the core function parse () has been completely rewritten, and the idea is not
db= "Db1.mdb" Path=server.mappath (DB) Set Conn=server.createobject ("ADODB. Connection ") connstr=" Provider=Microsoft.Jet.OLEDB.4.0;Data source= "&path Conn. The Open connstr Set rs=server. CreateObject ("Adodb.recordset")
%> New
UBB /*
If reproduced, please specify the author
Author: He Zhiqiang
File: ubb.php
Remark: Say is an improvement, in fact, the core function parse () has been completely rewritten, and the idea is not the same.
However, is still inspired by the He
1, ASP file:
' EXAMPLE as: Put a 24-hour online number in the database into an Excel file
' AUTHOR: Steel Workers
' Email:hello_hhb@21cn.com
' Date:2001-3-25
' Test: Testing through in Nt4,sp6,sql SERVER 7.0,excel2000
%>
Generate Excel File
Dim rs,sql,filename,fso,myfile,x
Set FSO = server. CreateObject ("Scripting.FileSystemObject")
filename = Server.MapPath ("Download.txt")
If FSO. FileExists (filename) Then
Fso. DeleteFile (filename)
End If
'--Create TXT file
Set myfile = FSO.
For the use of ASCII and CHR functions, Oracle gives the following explanations:ASCII (x) Gets the ASCII value of the character X, CHR () and ASCII () with the opposite effect.That is: The ASCII function is used to convert the character to its
Remove line breaksUpdate zhzl_address t set t. add_administration_num = replace (t. add_administration_num, chr (10 ),'');Remove carriage returnUpdate zhzl_address t set t. add_administration_num = replace (t. add_administration_num, chr (13
Copy codeThe Code is as follows:
Dim param, smiles 'Param is the fully available mark of the UBB label. param = full is fully available. Otherwise, smiles, a label with a large footprint, is not supported.Function UBBCode (content)Dim n, I'On error
Ec (2); you must use javascript to randomly display images. However, the materials (such as links) of fake films often change or are modified or added by users. What should I do? I have a solution here. Put the image information (such as name,
I. Web Server Security
PHP is actually a module function of the Web server. Therefore, you must first ensure the security of the Web server. Of course, to ensure the security of Web servers, you must first ensure the system security. This is a long
Php practical functions for filtering Special characters
// Special character filtering
Function htmldecode ($ str)
{
If (empty ($ str) return;
If ($ str = "") return $ str;
$ Str =
PHP is actually a module function of the Web server. Therefore, you must first ensure the security of the Web server. Of course, to ensure the security of Web servers, you must first ensure the security of the system. this is far from enough.
Recently, I used vb.net as a forum and found it online. Although I have some conversion code for ubb (vb.net), it is not comprehensive. I have added it here, share it with you.If you have any questions, please visit my personal Forum www.hushiyu.com.
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.