link_25175.asp

来自「一套开源WEB的网站管理系统」· ASP 代码 · 共 21 行

<%
hiden=request.form("hiden")
qqnumber=trim(Request.form("qqnumber"))
if qqnumber="10000" then
Response.Write "<script language=JavaScript>{alert('157400提示：\n\n　　10000号为系统保留号码，你不能和其对话！');location.href = 'javascript:window.close()';}</script>"
	Response.End 
	end if
if len(qqnumber)<5 or len(qqnumber)>=10 then
Response.Write "<script language=JavaScript>{alert('157400提示：\n\n　　请检查你输入的QQ号码，最少5位，最多9位！');location.href = 'javascript:window.close()';}</script>"
	Response.End 
	end if
if isnumeric(qqnumber)=true then
   if hiden="ok" then
   qqnumber=trim(qqnumber)
   response.redirect "http://wpa.qq.com/msgrd?V=1&Uin="&qqnumber   
   end if
else 
	Response.Write "<script language=JavaScript>{alert('157400提示：\n\n　　请检查你输入的字符，QQ号码必须为5位以上数字！');location.href = 'javascript:window.close()';}</script>"
	Response.End 
end if
%>