'*********************************************************
'Nama Fungsi: JoinChar
Fungsi: Tambahkan ke alamat? atau&
'Parameter: Strurl ----- Situs web
'Nilai pengembalian: tambah? atau & url
'*********************************************************
functionJarchar (strurl)
ifstrurl = "" lalu
Gointchar = ""
fungsi keluar
endif
ifinstr (strurl, "?") <len (strurl) lalu
ifinstr (strurl, "?")> 1then
ifinstr (strurl, "&") <len (strurl) lalu
Gointchar = strurl & "&"
Kalau tidak
Gointchar = strurl
endif
Kalau tidak
Gointchar = strurl & "?"
endif
Kalau tidak
Gointchar = strurl
endif
fungsi endfungsi