-
######################################################################## ## ###################
Rem ## ซ่อนเวลาดำเนินการ
ย่อย s__HideTimeOver()
Dim tTimeOver
tTimeOver = FormatNumber((ตัวจับเวลา() - tStartTime) * 1000, 3, จริง)
response.Write (vbCrLf & "<!--เวลาดำเนินการ: " & tTimeOver & " มิลลิวินาที-->")
จบหมวดย่อย
######################################################################## ## ###################
######################################################################## ## ###################
Rem ## เปิดการเชื่อมต่อฐานข้อมูล
ฟังก์ชั่น f__OpenConn()
คอนทราสต์สลัว
connstr = "ผู้ให้บริการ=Microsoft.Jet.OLEDB.4.0;แหล่งข้อมูล="
connstr = connstr & Server.MapPath (GBL__STR_DB_PATH)
ตั้งค่า conn = Server.CreateObject("Adodb.Connection")
conn.open constr
สิ้นสุดฟังก์ชัน
######################################################################## ## ###################
เรม ########################### ### #######################################
Rem ## ปิดการเชื่อมต่อฐานข้อมูล
ฟังก์ชั่น f__CloseConn()
ถ้า IsObject(conn) แล้ว
ตั้งค่าคอน = ไม่มีอะไร
สิ้นสุดถ้า
สิ้นสุดฟังก์ชัน
######################################################################## ## ###################
######################################################################## ## ###################
Rem ## การแปลง HTML
ฟังก์ชั่น toHtml(str)
ผลลัพธ์สลัว
ผลลัพธ์ = STR & ""
ผลลัพธ์ = แทนที่ (ผลลัพธ์ ">", ">")
ผลลัพธ์ = แทนที่ (ผลลัพธ์ "<", "<")
ผลลัพธ์ = แทนที่ (ผลลัพธ์, " ", " ")
ผลลัพธ์ = แทนที่ (ผลลัพธ์ """", """)
ผลลัพธ์ = แทนที่ (ผลลัพธ์ CHR (13), "")
ผลลัพธ์ = แทนที่(ผลลัพธ์, CHR(10), "<br>")
ผลลัพธ์ = แทนที่ (ผลลัพธ์ CHR (39), "'")
toHtml = ผลลัพธ์
สิ้นสุดฟังก์ชัน
######################################################################## ## ###################
######################################################################## ## ###################
Rem ## การแปลงจำนวนเต็มยาว
ฟังก์ชั่น toLng (strNum, ค่าเริ่มต้น)
ผลลัพธ์สลัว
ถ้า strNum <> "" และ IsNumeric(strNum) แล้ว
ผลลัพธ์ = CLng(strNum)
อื่น
toNum = ค่าเริ่มต้น
สิ้นสุดถ้า
toLng = ผลลัพธ์
สิ้นสุดฟังก์ชัน
######################################################################## ## ###################
http://bizhi.downcodes.com/
######################################################################## ## ###################
Rem ## การแปลงประเภทสกุลเงิน
ฟังก์ชั่น toCur (strNum, ค่าเริ่มต้น)
ผลลัพธ์สลัว
ถ้า strNum <> "" และ IsNumeric(strNum) แล้ว
ผลลัพธ์ = CCur(strNum)
อื่น
toNum = ค่าเริ่มต้น
สิ้นสุดถ้า
toCur = ผลลัพธ์
สิ้นสุดฟังก์ชัน
######################################################################## ## ###################
######################################################################## ## ###################
Rem ## การเข้ารหัสการแทนที่ SQL
ฟังก์ชั่น toSqlr(str)
STR = STR & ""
str = แทนที่ (str, "'", "")
str = แทนที่ (str, """", "")
toSqlr = STR
สิ้นสุดฟังก์ชัน
######################################################################## ## ###################
เรม ########################### ### #######################################
Rem ## การเข้ารหัส SQL
ฟังก์ชั่น toSql (str)
STR = STR & ""
str = แทนที่ (str, "'", "''")
toSql = STR
สิ้นสุดฟังก์ชัน
######################################################################## ## ###################
เรม ########################### ### #######################################
Rem ## แปลงตัวเลขเป็นจำนวนหลักคงที่ และเติมตัวเลขที่หายไปด้วย 0
ฟังก์ชั่น ConvertNumber (strNum)
strNum = strNum & ""
Dim iLen, iMaxL, iLdiv, ผลลัพธ์
iLen = Len(strNum)
iMaxL=8
iLdiv = iMaxL - iLen
ผลลัพธ์ = string(iLdiv, "0") & strNum
ConvertNumber = ผลลัพธ์
สิ้นสุดฟังก์ชัน
######################################################################## ## ###################
-