<!--#include virtual="/incs/config.asp" -->
<%conn.open constr %>
<%
chk_log()
chk_newpwr 4,0,0
module=trim(SafeRequest("module"))
paytype=SafeRequest("paytype")
if module="" then
call errorpage(-2,"对不起，参数错误！")

end if
if chk_int(paytype)=false then
call errorpage(-2,"对不起，参数错误！")

end if

pageturn="/master/sysmng/plt_mng/pay_idx.asp"
select case module
case "payadd"
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:payadd"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "content:" &trim(SafeRequest("content"))& Vend
   substrContent = substrContent & "bank:" &trim(SafeRequest("bank"))& Vend
   substrContent = substrContent & "bankname:" &trim(SafeRequest("bankname"))& Vend
   substrContent = substrContent & "banknumber:" &trim(SafeRequest("banknumber"))& Vend
   substrContent = substrContent & "bankowner:" &trim(SafeRequest("bankowner"))& Vend
   substrContent = substrContent & "payorder:" &trim(SafeRequest("payorder"))& Vend
   substrContent = substrContent & "paytype:" &paytype& Vend
   substrContent = substrContent & "."& Vend
case "payupdate"
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:payupdate"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "payid:" &trim(SafeRequest("payid"))& Vend
   substrContent = substrContent & "content:" &trim(SafeRequest("content"))& Vend
   substrContent = substrContent & "bank:" &trim(SafeRequest("bank"))& Vend
   substrContent = substrContent & "bankname:" &trim(SafeRequest("bankname"))& Vend
   substrContent = substrContent & "banknumber:" &trim(SafeRequest("banknumber"))& Vend
   substrContent = substrContent & "bankowner:" &trim(SafeRequest("bankowner"))& Vend
   substrContent = substrContent & "payorder:" &trim(SafeRequest("payorder"))& Vend
   substrContent = substrContent & "paytype:" &paytype& Vend
   substrContent = substrContent & "."& Vend
case "paydel"
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:paydel"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "payid:" &trim(SafeRequest("payid"))& Vend
   substrContent = substrContent & "."& Vend
end select
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage(pageturn)
   Else
      call errorpage(-2,doresult)
   end if

%>
