jk_code.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 69 行

<%
'****************************************************
' 玫瑰情缘 2006v3.0      power by www.meigui8.cn
' email: [e-mail]  , [e-mail]
' web: http://www.meigui8.cn
' copyright (c) 2006 meigui8.cn all rights reserved.
'****************************************************
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
'****************************************************
' 玫瑰情缘 2006v3.0      power by www.meigui8.cn
' email: [e-mail]  , [e-mail]
' web: http://www.meigui8.cn
' copyright (c) 2006 meigui8.cn all rights reserved.
'****************************************************
%>