Else's blog

'***********************************************
'函数名：alerturl
'作  用：提示信息
'参  数：str----提示信息，url-----放的网址
'返回值：一个信息，回到网站
'***********************************************
function alerturl(str,url)
 response.Write("<script>alert("""&str&""");window.document.location.href='"&url&"';</script>")  
end function
'***********************************************
'函数名：trimchr
'作  用：把双引号转换成单引号放在主要在网站配置方面
'参  数：trimstrchr----被引入的字符
'返回值：过滤掉chr(34)的字符
'***********************************************
function trimchr(trimstrchr)
 if trimstrchr="" then
   exit function
 end if
trimchr=replace(trim(trimstrchr),chr(34),chr(39))
end Function

'***********************************************
'函数名：brtochr
'作  用：把vbcrlf转换成<br>,
'参  数：chrstr----这个是字符串
'返回值：字符串
'***********************************************
function chrtobr(chrstr)
 if chrstr="" then
   exit function
 end if
chrtobr=replace(chrstr,vbcrlf,"[br]")
end Function
'***********************************************
'函数名：brtochr
'作  用：把[br]转换成chr(10)
'参  数：brstr----这个是字符串
'返回值：字符串
'***********************************************
function brtochr(brstr)
 if brstr="" then
   exit function
 end if
brtochr=replace(brstr,"[br]",chr(10))
end Function

'***********************************************
'函数名：tobr
'作  用：把|转换成<br>
'参  数：strbr----这个是字符串
'返回值：字符串
'***********************************************
function tobr(strbr)
 if strbr="" then
   exit function
 end if
tobr=replace(strbr,"|","<br>")
end Function
%>

'***********************************************
'函数名：splitaddress
'作  用：把字符串变成select
'参  数：addressstr  ----字符串
'返回值：select里面的原素
'***********************************************

function splitaddress(addressstr)
  if addressstr="" then
    exit function
  else
    Transactions=split(addressstr,"|")
    for i=0 to ubound(Transactions)
    splitaddress=splitaddress& "<option value="&chr(34)&Transactions(i)&chr(34)&">"&Transactions(i)&"</option>"&chr(10)
    next
  end if
end function

<script language="JavaScript"><!--
function WindowClose()
{
    if(document.all)
    {
        if(parseFloat(window.navigator.appVersion.substr(window.navigator.appVersion.indexOf("MSIE")+5, 3)) < 5.5)
        {
            var str  = '<object id=meizzMax classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">'
                str += '<param name="Command" value="Close"></object>';
            document.body.insertAdjacentHTML("beforeEnd", str);
            document.all.meizzClose.Click();
        }
        else
        {
            window.opener = "meizz";
            window.close();
        }
    }
    else    window.close();
}
//--></script>

<!--<input type=button value=关闭 onclick="WindowClose()">-->

'=========================================================
'函数：alert(str)
'作用：弹出对话框信息
'参数：str      ---要弹出的信息
'参数：nexti    ---弹出后的动作0=无,1=返回,2=关闭
'=========================================================
Function alertstr(str,nexti)
dim nextStr
select case(nexti)
  case(0)
    response.Write("<script>alert("""&str&""");</script>")
    response.End()
  case(1)
    response.Write("<script>alert("""&str&""");history.back();</script>")
    response.End()
  case(2)
    response.Write("<script>alert("""&str&""");window.close();</script>")
    response.End()
end select  
end Function

server_v1=cstr(request.servervariables("http_referer"))
server_v2=cstr(request.servervariables("server_name"))
if  mid(server_v1,8,len(server_v2))<>server_v2  then
response.redirect "index.asp"
end if
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
if userip="219.118.84.49" then response.redirect "index.asp"