setting.asp

来自「功能最强大的ASP网站」· ASP 代码 · 共 49 行

<script for="ren" EVENT="onmouseover" language="javascript">
style.background="url(image/nav_button.png)";
style.border="1px solid #6699cc";
</script>
<script for="ren" EVENT="onmouseout" language="javascript">
style.background="url(image/white.gif)";
style.border="#999999 0px solid"
</script>

<script for="banner" EVENT="onmouseover" language="javascript">
style.background="url(image/item_bg.gif)";
style.border="1px solid #999999";
</script>
<script for="banner" EVENT="onmouseout" language="javascript">
style.background="url(image/white.gif)";
style.border="#999999 0px solid"
</script>

<script for="new" EVENT="onmouseover" language="javascript">
style.background="url(image/nav_button.png)";
style.border="1px solid #6699cc";
</script>
<script for="new" EVENT="onmouseout" language="javascript">
style.background="url(image/item_bg.gif)";
style.border="#999999 1px solid"
</script>
<%
function   GernerateHtml(str)   
  if   str   <>   ""   then   
  str   =   Replace(str,"&","&amp;")   
  str   =   Replace(str,"<","&lt;")   
  str   =   Replace(str,">","&gt;")   
  str   =   Replace(str,"   ","&nbsp;")   
  str   =   Replace(str,"　","&nbsp;&nbsp;")   
  str   =   Replace(str,vbCrLf,"<br>") 
  GernerateHtml   =   str   
  else   
  GernerateHtml   =   ""   
  end   if   
  end   function
%>

<%
  if session("aleave")="" then
      response.redirect "admin_login.asp"
	  response.end
  end if
%>