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

การเขียน 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 variable_name in request.querystring
variablevalue=request.querystring(variable_name)
if variable_name <> var_dynparam then
a =  a&"&"&variable_name &"="&variable_value
end if
next
end if
makeQueryString = a
end function

วิธีเรียกใช้

<%
qstring = makeQueryString("pageno")
หน้าถัดไป
%>

อ่านแล้วงง Post ถามไ้ว้ได้ครับ