<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>QQ号码缘分测试</TITLE>

<!--#include file="top.asp"--><SCRIPT language=javascript>
<!--
function Check(theForm)
{
var qq1 = theForm.qq1.value;
if (qq1 == "") 
{
alert("请输入QQ！");
theForm.qq1.value="";
theForm.qq1.focus();
return false;
}
var qq2 = theForm.qq2.value;
if (qq2 == "") 
{
alert("请输入对方QQ！");
theForm.qq2.value="";
theForm.qq2.focus();
return false;
}
}

//-->
</SCRIPT><!--#include file="../inc/function.asp"--><!--#include file="../inc/conn.asp"-->  
<div id="right">
<!--#include file="right.asp"-->
</div><div id="left">
<div style="width:100%">
  <table width="100%" border="0" cellspacing="0" cellpadding="0" class="b1" style="table-layout:fixed;word-wrap:break-word;">
<tbody><tr>
  <td width="79%" class="ttd"><span class="red">QQ号码关系提示:</span><br>
    想知道QQ好友跟我的关系吗？马上进行这个趣味小测试吧~~~ ^_^</td>
    <td width="21%" class="ttd"><img src="../images/qqpd.jpg" width="120" height="90"></td>
</tr>
<form name="form1" onSubmit="return Check(this)" method="post" action="">
<input type="hidden" name="act" value="ok" />
  <tr>
    <td colspan="2" class="new">
我的QQ：
  <input name="qq1" type="text" id="qq1" size="20"  onKeyUp="value=value.replace(/[^\d]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" />
  对方QQ:
  <input name="qq2" type="text" id="qq2" size="20"  onKeyUp="value=value.replace(/[^\d]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" />
  <input type="submit" name="Submit1" value="开始测试" style="cursor:hand;"></form></td>
    </tr><%
	if request("act")="ok" then
strname1=request.form("qq1")
qqsz1=0
for i=1 to Len(strname1)
qqsz1=qqsz1+Mid(strname1,i,1)
next
strname2=request.form("qq2")
qqsz2=0
for i=1 to Len(strname2)
qqsz2=qqsz2+Mid(strname2,i,1)
next

qqsz=qqsz1+qqsz2
if qqsz>100 then
qqsz=(qqsz mod 100)
end if
%>
<%
'计算
sql="select * from qlpdbh where bihua like '%"&qqsz&"%'"
set rs=conn.execute(sql)
if not (rs.bof and rs.eof) then
intro=rs("intro")
end if
%>
<tr bgcolor="#EFF8FE">
<td class="new" colspan="2" valign="middle">
<%="<br>双方QQ：<font color=blue>"&strname1&"&nbsp;"&strname2&" </font><br><br>"%>
<%="<font color=cc6600>关系揭密：</font>"&intro&"<font color=red>(仅供娱乐)</font><br><br>"%>
</td>
</tr><%end if%>
</tbody>
</table><table width="100%" border="0" cellspacing="0" cellpadding="0" class="b1" style="table-layout:fixed;word-wrap:break-word;">
  <TBODY>
    <tr>
      <TD align="left" class=new style="PADDING-BOTTOM:5px"><script src="../images/urlcopy.js"></script></TD>
    </tr>
  </TBODY>
</TABLE>
</div>
</div>
<!--#include file="../foot.asp"-->
</center>
</body></html>
