<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<title><%=Webname%>-歌曲赠送</title>
<%
hiden=request.form("hiden")
qqnumber=trim(Request.form("qqnumber"))
if qqnumber="10000" then
Response.Write "<script language=JavaScript>{alert('"&Webname&"提示：\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('"&Webname&"提示：\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('"&Webname&"提示：\n\n　　请检查你输入的字符，QQ号码必须为5位以上数字！');location.href = 'javascript:window.close()';}</script>"
	Response.End 
end if
%>