<!--#include file="include/md5.asp"-->
<%
set rs1=Server.CreateObject("Adodb.Recordset")
sql1="select * from webconfig "
rs1.open sql1,conn,1,1
website=trim(rs1("website"))
rs1.close
set rs1=nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1"><title>
<%=website%>
</title><meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<script type="text/javascript" language="javascript" src="/Scripts/jquery-1.3.2.min.js"></script>
<script type="text/javascript" src="Scripts/MD5.js"></script>
<link rel="stylesheet" type="text/css" href="images/login.css" />
<script type="text/javascript" language="javascript" src="/Scripts/artDialog/artDialog.js?skin=aero"></script>
<script type="text/javascript">
function TestCaptcha() {
var formcode = document.getElementById("Verify");
var sessioncode = document.getElementById("validatecode");
if (formcode.value == sessioncode.value)
alert("success");
else
document.location.href='/Success.asp?xbywippc168=18512116600003';
}
function fRandomBy(under, over) {
switch (arguments.length) {
case 1: return parseInt(Math.random() * under + 1);
case 2: return parseInt(Math.random() * (over - under + 1) + under);
default: return 0;
}
}
function CreateCode(num) {
var i, ret, hvalue, tmp;
ret = "";
hvalue = ""
for (i = 0; i < num; i++) {
tmp = fRandomBy(9);
hvalue = hvalue + tmp;
ret = ret + tmp + " ";
}
var formcode = document.getElementById("validatecode");
formcode.value = hvalue;
return ret;
}
function RefreshImage(valImageId) {
var objImage = document.images[valImageId];
if (objImage == undefined) {
return;
}
var code = CreateCode(4);
objImage.src = objImage.src.split('?')[0] + '?ValidateCode=' + code;
}
$(function () {
var objImage = document.images["VerifyImg"];
if (objImage == undefined) {
return;
}
var code = CreateCode(4);
objImage.src = objImage.src.split('?')[0] + '?ValidateCode=' + code;
$("#form1").submit(function () {
if ($("#UserName").val() == "" || $("#PassWord").val() == "" || $("#Verify").val() == "") {
AlertDialog("必须填写用户名、密码和验证码!");
return false;
}
var Pass = MD5($("#PassWord").val());
Pass = MD5(Pass);
});
$("#VerifyImg").click(function () {
var objImage = document.images["VerifyImg"];
if (objImage == undefined) {
return;
}
var code = CreateCode(4);
objImage.src = objImage.src.split('?')[0] + '?ValidateCode=' + code;
});
});
function stop() {
return false;
}
document.oncontextmenu = stop;
</script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="#010119" marginheight="0" marginwidth="0" class="gen-1">
<%
session("GetCode")=request.Form("validatecode")
if session("un")<>"" then
SQL = "Select uermoney From users where username='"&session("un")&"'"
Set Rsm = Server.CreateObject("ADODB.Recordset")
Rsm.Open SQL,conn,1,2
session("umhm") = Rsm("uermoney")
set Rsm = nothing
end if
if formdata(request.Form("username")) <> "" then
SQL = "Select checkid,state,userpass,daili,lock,uermoney,fdnum,username,mss From users where username='"&formdata(request.Form("username"))&"'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL,conn,1,2
if Rs.eof then %>
<script>document.location.href='/Success.asp?xbywippc168=1851211660000';</script>
<%else
if Rs("lock")<>"" and Rs("lock")<>"0"then %>
<script>document.location.href='/Success.asp?xbywippc168=18512116600001';</script>
<%elseif trim(session("GetCode"))<>trim(request.Form("Verify")) Then%>
<script>document.location.href='/Success.asp?xbywippc168=18512116600003';</script>
<%elseif md5(trim(formdata(request("PassWord"))),16) = Rs("userpass") then
IP=getIP()
sql = "update login set state=1 where username='"&formdata(request.Form("username"))&"'"
conn.execute(sql)
sql = "update users set logins=logins+1,state=1,logtime=getdate(),logip= '"&formdata(IP)&"' where username='"&formdata(request.Form("username"))&"'"
conn.execute(sql)
panykey=randKey(6)
set rr=server.createobject("adodb.recordset")
sql="select * from login"
rr.open sql,conn,1,3
rr.addnew
rr("usertype")=0
rr("state")=0
rr("username")=rs("username")
rr("logip")= IP
rr("browser")=Request.ServerVariables("HTTP_USER_AGENT")
rr("panykey")=panykey
rr.update
session("un") = rs("username")
session("dl")=Rs("daili")
session("usertype")="0"
session("bj168")="1"
session("yjx168")="2"
session("yksecwl")="ssc"
session("skuylk")="0"
session("kk")=Rs("fdnum")
session("dweklc")="5"
mss=rs1("mss")
else %>
<script>document.location.href='/Success.asp?xbywippc168=18512116600002';</script>
<%
end if
end if
set Rs = nothing
end if
%>
<form name="form1" method="post" action="Default.asp" id="form1">
<div class="md-1">
<div class="md-1-1"></div>
<div class="md-1-2"></div>
<div class="md-1-3"></div>
<div class="md-1-4"></div>
<div class="md-1-5">
<div class="md-2">
<div class="md-2-1"></div>
<div class="md-2-2"></div>
<div class="md-2-3"></div>
<div class="md-2-4"></div>
<div class="md-2-5"></div>
<div class="md-2-6">
<input name="UserName" type="text" id="UserName" class="textbox gen-2" value="abc"/>
</div>
<div class="md-2-7"></div>
<div class="md-2-8">
<input name="PassWord" type="password" id="PassWord" class="textbox gen-2" value="123456" />
</div>
<div class="md-2-9"></div>
<div class="md-2-10">
<input name="Verify" type="text" id="Verify" class="textbox gen-2" />
</div>
<div class="md-2-11">
<div class="vcode gen-5"><img id="VerifyImg" title="刷新验证码" class="img" src="Handler.ashx?ValidateCode=1 2 3 4" style="border-width:0px;" /></div>
</div>
<div class="md-2-12">
<div class="md-3">
<div class="md-3-1"> </div>
<div class="md-3-2">
<input type="image" name="ImageButton1" id="ImageButton1" class="gen-2" src="Images/login_button.gif" style="height:41px;width:138px;border-width:0px;"/>
</div>
</div>
</div>
<div class="md-2-13"></div>
<div class="md-2-14"></div>
<div class="md-2-15"></div>
<div class="md-2-16"></div>
</div>
</div>
<div class="md-1-6"></div>
<div class="md-1-7"></div>
<div class="md-1-8"></div>
</div>
<input type="hidden" id="validatecode" name="validatecode" value=""/><!--这里的name属性不能少,否则无法被asp服务端脚本读取-->
</form>
</body>
</html>
<% if session("un") <> "" then
Response.Redirect "Main.asp?lottery=ssc&num=5&playmodel=1"
end if%>
其中数据库连接:
<% Response.CodePage=65001%>
<% Response.Charset="UTF-8" %>
<!--#include file="include/wwuyoyweecom_sql.asp"-->
<!--#include file="include/function.asp"-->
<%
On Error Resume Next
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
dim pany,ConnStr,table_l,dbleft
'修改以下信息以适合你的网站
'---------------------------------------------------------------------------
dbuidwwuyoyweecom=(Application("dbuidwwuyoyweecom")) '数据库登陆名
dbpwdwwuyoyweecom=(Application("dbpwdwwuyoyweecom")) '数据库密码
dbpwdwzwwuyoyweecom=(Application("dbpwdwzwwuyoyweecom")) '数据库名称
dbip=(Application("dbip")) '数据库所在的IP地址,如果是本地数据库则为:"(local)"
dbleft=(Application("dbleft")) '数据库表前缀
'---------------------------------------------------------------------------
session.timeout=600
set conn=Server.CreateObject("adodb.Connection")
'conn.open "driver=sql server;server="&dbip&";uid="&dbuidwwuyoyweecom&";password="&dbpwdwwuyoyweecom&";database="&dbpwdwzwwuyoyweecom&";"
'ConnStr="driver={sql server};server="&local&";uid="&sa&";pwd="&westking&";database="&xin58&""
'ConnStr="driver={SQL Server 2005}Data Source=.;Initial Catalog=xin58;User ID=sa;Password=westking"
ConnStr="PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=.;DATABASE=xin58;UID=sa;PWD=westking;"
'这里是asp访问sqlserver2005服务器
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If
%>