function.asp

个性网名转换-繁体字转换-qq强制聊天-qq秀查看-空间留言代码编辑器-等其他常用工具

<%
Function AlertUrl(AlertStr,Url) 
 Response.Write "<script>" 
 Response.Write "alert('"&AlertStr&"');" 
 Response.Write "location.href='"&Url&"';" 
 Response.Write "</script>" 
End Function

Function AlertBack(AlertStr) 
  Response.Write "<script>" 
  Response.Write "alert('"&AlertStr&"');" 
  Response.Write "history.go(-1)" 
  Response.Write "</script>" 
End Function
%>