霸王棍专栏

function htm_fn(str)    dim result    result = replace(replace(replace(replace(replace(str,"",">"),"",""),chr(34),""),";","")    htm_fn = resultend functionIf request("login")    if request("val

连接sql数据库function OpenConn(userid,pass,servername)       connstring="Provider=SQLOLEDB.1;Password=" & pass & ";Persist Security Info=True;User ID=" &  userid &";Data Source=" & servername       set c

function IsValidEmail(email) dim names, name, i, c IsValidEmail = true names = Split(email, "@") if UBound(names)     IsValidEmail = false    exit function end if for each name in names  if Len(name)