นพ ภิญโญวาณิชกะ

เนื่องจากอย่างว่าตอนนี้ต้องเขียน SQL Script เยอะกว่าสมัยก่อนตอนหัดเขียนโปรแกรมใหม่ๆ แล้ว Code SQL มันก้อยาวมาก หลังจากนั้นไม่พอ ยังต้องเอามาแปะใน ASP อีกต่างหาก ปัญหาก็คือ มันไม่ใช่ว่าจะวางแล้ว Assign ค่าใส่ตัวแปลที่เป็น String ได้เลยเสียเมื่อไหร่ เพราะถ้า copy ล่ะก็มันก็จะขึ้นบรรทัดใหม่ มันก่อให้เกิด Error ขึ้นมา เลยต้องมาต่อตัวแปล String ทีละบรรทัด แล้วถ้าเขียน SQL Script เป็น 50 บรรทัดไม่หน้ามืดเลยเหรอ นั่นแหละครับ ประเด็น ผมเลยเขียนโปรแกรมง๊ายง่าย ขึ้นมาอันนึง เพื่อทำขั้นตอนนี้ให้เราแทน (มันง่ายๆจริงๆ นะ แต่ถ้ามีหลายบรรทัดแล้วจะยิ้มเลยล่ะ) ลองโหลดไปใช้งานกันดูนะครับ Make ASP SQL Statement ใครลองโหลดไปเล่น เสนอไอเดียทำต่อได้เลยนะครับ

Error: Request object error ‘ASP 0104 : 80004005′ Operation not Allowed Error นี้ เกิดจาก การอัพโหลดไฟล์เกิน 200Kb ซึ่งเกิดจากการ Config ใน Metabase.xml ซึ่ง ถ้าจะแก้ไขให้ไปหาไหล์ Metabase.xml ใน folder C:\Windows\System32\Inetsrv ซึ่ง หา บรรทัดนี้ AspMaxRequestEntityAllowed แล้วเพิ่มตัวเลขข้างหลังตามต้องการ

การเขียน QueryString อัตโนมัติ ด้วย ASP คงมีบางคนอยากสร้าง QueryString แบบอัตโนมัิติบ้าง เพราะไม่เช่นนั้นต้องมาดูตัวแปลตั้งหมดแล้วเขียนเขียนมาเองทั้งหมดผมว่ามันลำบากเกินไป อันนี้เป็น Function ที่สำหรับสร้าง QueryString แบบ อัตโนมัติ โดยส่งเพียงค่า Parameter สำหรับชื่อตัวแปลที่ไม่ต้องการให้ทำการสร้าง QueryString ใน Function (กรณีเช่น การส่งหน้า ซึ่งจะส่งค่าเปลี่ยนไปทุกๆ หน้าไม่ Fix ตายตัว) function makeQueryString(var_dynparam) if request.ServerVariables(“REQUEST_METHOD”) = “POST” then for each variable_name in request.form variablevalue=request.form(variable_name) if variable_name <> var_dynparam then a = a&”&”&variable_name &”=”&variable_value end if next else for each [...]

Whenever a browser sends a request for a page, it also sends a number of other headers to the script, containing information such as the browser type. It also includes information such as the visitors IP address. This can be particularly useful when creating an online security scan, or logging their IP address in an [...]

เนื่องจาก ASP Classic ไม่มี function Ceiling หรือ Floor สำหรับ การปัดเศษขึ้นลง ซึ่งถือว่ามีความจำเป็นมาก เลยเก็บมาไว้ให้ดูกันครับ Function Ceiling(byval n) Dim iTmp, bErr, f on error resume next n = cdbl(n) if err then bErr = true on error goto 0 if bErr then Err.Raise 5000, “Ceiling Function”, _ “Input must be convertible to a sub-type of double” f = [...]