<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"

zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../error.asp?id=440"
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "Select  * from 用户 where 姓名='"&zhbg_name&"'",conn
allvalue=rs("allvalue")
bigdk=allvalue*100
yinliang=rs("银两")
jhdenji=rs("等级")
nowyl=rs("银两")
nowck=rs("存款")
rs.close
rs.open "select * from k where d=false and DateDiff('d',b,#" & sj & "#)>7",conn
if not(rs.BOF or rs.EOF) then
	do while not (rs.bof or rs.eof)
		name=rs("a")
		conn.Execute ("update k set d=true where a='"&name&"'")
		conn.Execute ("delete * from 用户 where 姓名='"& name &"'")
		conn.Execute ("insert into l(b,a,c,d,e) values ('" & name & "',"&sqlstr(sj)&",'高利贷杀手','欠债还钱，没钱要你命','人命')")
		rs.movenext
		name=""
		zhbg_name=""
	loop
end if
%>
<script language="JavaScript">
function load()
{var name=navigator.appName
var vers=navigator.appVersion
if(name=="Netscape")
{window.location.reload()
}else
{history.go(0)
}}
</script>
<html>
<head>
<link href="../css.css" rel="stylesheet" type="text/css">
<title>非凡国度--贷款</title></head><body  >
<form method="post" action="dk.asp">
  <table width="498" border="2" align="center" cellpadding="8" cellspacing="8" bordercolor="#cccccc" >
    <!--DWLayoutTable-->
    <tr> 
      <td colspan="2" align="center" ><font size="6" face="隶书">国度高利贷款</font><br> 
        <a href="javascript:load()">【刷新】</a> <a href="javascript:history.go(-1)">【返回】</a> 
      </td>
    </tr>
    <tr> 
      <td width="50%" height="65" > <div align="right"><img border="0" src="../chat/pic/49.gif">申贷人:</div></td>
      <td width="177" valign="middle"><%=zhbg_name%> 
        <div align="left"></div></td>
    </tr>
    <tr> 
      <td height="50%"> <div align="right">现在银两：</div></td>
      <td valign="top"><%=nowyl%> <img border="0" src="../chat/img/251.GIF">两</td>
    </tr>
    <tr> 
      <td height="53"> <div align="right">现在存款:</div></td>
      <td valign="top"><%=nowck%> <img border="0" src="../chat/img/251.GIF">两</td>
    </tr>
    <tr> 
      <td height="53">
<div align="right">最大贷款金额:</div></td>
      <td valign="top"><%=bigdk%> <img border="0" src="../chat/img/251.GIF">两</td>
    </tr>
    <tr> 
      <td height="66" valign="top"><div align="right">贷款金额：</div></td>
      <%
rs.close
rs.open "select * from k where a='"&zhbg_name&"' and d=false",conn
if rs.BOF or rs.EOF then
	%>
      <td valign="top"> 
        <%if jhdenji>30 then%>
        <div align="left"> 
          <input type="text" name="dk" size="10" maxlength="10">
          <%else%>
          不能操作 
          <%end if%>
        </div></td>
    </tr>
    <tr> 
      <td height="73"> 
        <%if jhdenji>30 then%>
        <div align="right"> 
          <input type=submit value="贷款" name="submit">
          <input type="reset" name="reset" value="清空">
          <%else%>
          战斗小于30级国度不贷款给你！ 
          <%end if%>
        </div></td>
      <%else%>
      <td> 
        <%if yinliang>rs("c")*1.5 then%>
        <div align="left"> 
          <input type="text" name="dk" size="10" maxlength="10" value='<%=rs("c")%>' readonly>
          <%else%>
          不能操作 
          <%end if%>
          <br>
          贷款日期：<%=rs("b")%> </div></td>
    </tr>
	<tr> 
 <td colspan="2" align="center" ><%if yinliang>rs("c")*1.5 then%>
        <input type=submit value="还款" name="submit">
          <input type="reset" name="reset" value="清空">
          <%else%>
          你的现金不够还款! 
          <%end if%><%end if
rs.close
set rs=nothing
conn.Close
set conn=nothing%>
</td>
    </tr>
    <tr> 
      <td colspan="2" align="center" >本钱庄提供贷款，小人物不贷（战斗等级不到30级不放贷）<br>
        贷款期限是一个星期7天。俗话说&quot;欠债还钱，没钱还命&quot;，到期不还者本庄将雇<br>
        杀人将其杀之，(将删除国度ID)望各位大侠相互转告！！！！！！ <br>
        (高利贷还钱比例为贷100两，还150两，不是我心黑呀，现在赚钱难呀！)<br> 
        <%Response.Write "序列号：<font color=blue>" & Application("zhbg_sn") & "</font>，授权给：<font color=blue>" & Application("zhbg_user") & "</font><br><font color=999999>" & Application("zhbg_copyright") & "</font>"%>
      </td>
    </tr>
  </table>
</form>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
<%
Function SqlStr(data)
SqlStr="'" & Replace(data,"'","''") & "'"
End Function
%>
