'過濾html**
function nohtml(str)
dim re
if str <> "" then
set re=new regexp
re.ignorecase =true
re.global=true
re.pattern="(/<.[^/<]*/>)"
str=re.replace(str," ")
re.pattern="(/)"
str=re.replace(str," ")
end if
nohtml=str
set re=nothing
end function
html = getbody("http://cgi.news.sina.***.**/cgi-bin/figureweather/search.cgi?city=重慶")
html = bytestobstr(html,"gb2312")
s0 = instr(html,"")
s1 = instrrev(html,"")
html = mid(html,s0,s1-s0)
html = replace(html,"","")
html = trim(replace(html," ",""))
s0 = instr(html,"重慶")
s1 = len(html)-1
html = mid(html,s0,s1-s0)
html = trim(nohtml(html))
html = replace(html,chr(10),"")
html = replace(html,chr(13),"")
html = trim(html)
response.write(html)
XMLHTTP小偷程式POST方法（ASP）
cookies pages curdate 2005 12 20 flightway1 single flightway single homecity escape 成都 ddateperiod1 2005 12 25 startperiod all destcity1 escape 深圳 tic...
ASP使用總結
一 產生伺服器內部錯誤的原因。1 使用了保留詞。比如 vbscript 中，不能使用 type。2 使用了全形的符號作為半形符號使用。3 一些語法錯誤。這時候系統不會提示，但是直接就顯示內部錯誤。有些時候能夠在 ie中顯示出來。二 c c 者學習asp1 asp不部支援 的語法。如 i 是一個錯誤的...
使用XMLHTTP傳送超長XML表單資料
如果這個xml大於90,000字元的maxlen，那麼這段 就會建立多個隱藏的input 輸入 元素，並把值的屬性設定為90,000個字元的xml資料，或者設定為xml尾部的某個值，從而將這個資料分割成多個部分。如果這個xml的大小小於maxlen，那麼這段 就只會建立一個input並相應地設定值。...
ASP中使用類
class webuser public property get islogin username if username then islogin true else islogin false jstz 請您先登入 login.htm end if end property public pr...
asp儲存過程使用
1 呼叫沒有引數的儲存過程 set conn server.createobject adodb.connection set cmd server.createobject adodb.command strconn dsn pubs uid sa pwd conn.open strconn se...