รบกวนผู้รู้ช่วยดู Script นี้ให้หน่อยครับ คือผมส่งค่าไปพิมพ์ โดยเปิดหน้าต่างใหม่ แต่มันส่งเป็น
Get (QueryString) ไปครับ ถ้าผมต้องการให้ส่งเป็นแบบ Form จะต้องแก้ไขตรงไหนได้บ้างครับ
<SCRIPT LANGUAGE=vbscript>
<!--
function ShowPrint()
dim oWin1
dim oWin2
dim oWin3
dim oWin4
dim oFormX
dim oItem
dim sPair
dim sDocType
dim nCookSelect
set oFormx=document.forms("printrequest")
sPair=""
sDocType="1"
nCookSelect=0
for each oItem in oFormX
if lcase(oItem.Name)<>"submit1" then
if lcase(oItem.Name)="typeofdoc" then
if oItem.Checked=True then
sDocType=oItem.Value
sPair=sPair & "&" & oItem.Name & "=" & oItem.Value
end if
else
if lcase(left(oItem.Name,4))="cook" then
sPair=sPair & "&" & oItem.Name & "=" & oItem.Checked
if oItem.Checked=True then
nCookSelect=nCookSelect+1
end if
else
sPair=sPair & "&" & oItem.Name & "=" & oItem.value
end if
end if
end if
next
if nCookSelect>0 then
spair= mid(sPair,2)
select case lcase(sDocType)
case "1"
set oWin1=window.open
oWin1.Location.href="../form/WPRT001.asp?" & sPair
set oWin2=window.open
oWin2.Location.href="../form/WPRT002.asp?" & sPair
set oWin3=window.open
oWin3.Location.href="../form/WPRT003.asp?" & sPair
case "2"
set oWin1=window.open
oWin1.Location.href="../form/WPRT001.asp?" & sPair
case "3"
set oWin2=window.open
oWin2.Location.href="../form/WPRT002.asp?" & sPair
case "4"
set oWin3=window.open
oWin3.Location.href="../form/WPRT003.asp?" & sPair
end select
else
msgbox "Input data"
end if
end function
-->
</SCRIPT>
Load balance : Server 02
