jk_code.asp

来自「打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以」· ASP 代码 · 共 57 行

<%
function code_config(strers,ct)
  dim strer
  strer=trim(strers)
  if isnull(strer) or strer="" then
    code_config=""
    exit function
  end if
  select case ct
  case 1
    strer=replace(strer,"'","&#39;")
    strer=replace(strer,CHR(34),"&quot;")
  case 2
    strer=replace(strer,CHR(34),"")
    strer=replace(strer,"'","")
    strer=replace(strer,":","")
    strer=replace(strer,"|","")
  case 3
    strer=replace(strer,"'","&#39;")
    strer=replace(strer,CHR(34),"&quot;")
    strer=replace(strer,"|","")
  case 4
    strer=replace(strer,CHR(34),"")
    strer=replace(strer,"'","")
    strer=replace(strer,"|","")
  case else
    strer=replace(strer,"'","")
    strer=replace(strer,CHR(34),"")
  end select
  code_config=strer
end function

function code_url(strers)
  dim strer
  strer=trim(strers)
  if isnull(strer) or strer="" then
    code_url=""
    exit function
  end if
  if right(strer,1)<>"/" then strer=strer&"/"
  code_url=strer
end function

function code_num(strers,cnum)
  dim strer
  strer=trim(strers)
  if not isnumeric(strer) then strer=cnum
  code_num=strer
end function

sub submit_config()
  response.write vbcrlf&"<tr>" & _
		 vbcrlf&"<td></td>" & _
		 vbcrlf&"<td colspan=2><input type=submit value='提交"&tit_fir&"修改'>　　<input type=reset value='重新填写'>　　"&go_back&"</td>" & _
		 vbcrlf&"</tr></form>"
end sub
%>