推薦:ASP技巧:禁用頁面緩存的五種方法1、在Asp頁面首部<head>加入
以下為引用的內容:
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Resp
采用Microsoft.XMLHTTP提交數據的形式實現客戶端無刷新
以下為引用的內容:
<SCRIPT LANGUAGE="vbScript"> dim i,strReturn function xmlhttp_submit(form_object,url) alert("") for i = 0 to form_object.elements.length-1 set elem = form_object.elements(i) form_value=form_value & URLEncoding(elem.name) & "=" & URLEncoding(elem.value) &"&" Next
set xmlhttp = CreateObject("Microsoft.XMLHTTP") xmlhttp.open "POST",url,false xmlhttp.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
xmlhttp.send(form_value) ysinfo.innerHTML=form_value msg.innerHTML=xmlhttp.ResponseText end function '上面這段代碼遍歷了form里的對象,組裝出form_value字串,然后通過send()方法以POST方式(不受長度限制)發送給服務器端。 '又是經典的中文編碼問題,需要加多一個URLEncoding函數把變量值的字符串編成UTF-8格式,也因此要采用自己不熟悉的VBScript來寫form_submit() 。
Function URLEncoding(vstrIn)
strReturn = ""
For i = 1 To Len(vstrIn) ThisChr = Mid(vStrIn,i,1) If Abs(Asc(ThisChr)) < &HFF Then strReturn = strReturn & ThisChr Else innerCode = Asc(ThisChr) If innerCode < 0 Then innerCode = innerCode &H10000 End If Hight8 = (innerCode And &HFF00)\ &HFF Low8 = innerCode And &HFF strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8) End If Next URLEncoding = strReturn End Function
</SCRIPT>
|
分享:防范腳本入侵,你做好準備了嗎?作為網絡管理員,不少朋友也同時負責單位的網站開發維護的工作,對于WEB開發我想大家都比較精通,可是對如何編寫安全的腳本代碼和入侵者如何通過WEB方式對服務器進行滲透的,可能就不是很清楚了