📄 manaddyj.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ LANGUAGE = VBScript.Encode  codepage ="936" %>
<%Response.Buffer = True
Response.Expires = 0
Response.CacheControl = "Private"
chatbgcolor=Application("wsaxhxf_c_chatbgcolor")
chatimage=Application("wsaxhxf_c_chatimage")
if chatbgcolor="" then chatbgcolor="008888"
Sub Msg(v)
 Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'><body bgcolor=" & chatbgcolor & " text=#000000 background=" & chatimage & ">"
 Response.Write "<script Language=JavaScript>"
 Response.Write "alert('" & v & "');javascript:window.close();"
 Response.Write "</script>"
 Response.End
End Sub
yjhb=Application("wsaxhxf_c_yj")
hb=Session("hxf_u_hb")
nickname=Session("hxf_u_nickname")
userip=Request.ServerVariables("REMOTE_ADDR")
if nickname="" then Msg "您不在聊天室内，不能进行此操作"
if Session("hxf_u_inthechat")<>"1" then Msg "您已经退出或掉线，请重新登陆"
if hb < yjhb then Msg "您的货币不足，不能进行此操作。\n\n此操作需要货币" & yjhb & "￥"
 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 & " " & s & ":" & f & ":" & m 
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql="SELECT leave, hb FROM reginfo WHERE kill='0' AND grade>0 AND username='" & nickname & "'"
rs.open sql,conn,1,3
if rs.Eof and rs.Bof then
 rs.close
 conn.close
 set rs=nothing
 set conn=nothing
 Msg "您的用户名不存在或者被禁止"
end if
if rs("leave")="1" then
 rs.close
 conn.close
 set rs=nothing
 set conn=nothing
 Msg "您已经是永久保留用户了"
end if
rs("leave")="1"
rs("hb")=rs("hb")-yjhb
Session("hxf_u_hb")=rs("hb")
rs.Update
rs.close
 sql = "SELECT value FROM system WHERE name='chatmoney'"
 rs.open sql, conn, 1, 3
 chatmoney = Int(rs("value")) + yjhb
 rs("value") = chatmoney
 rs.Update
 rs.Close
 Application.Lock
  Application("wsaxhxf_c_chatmoney") = chatmoney
 Application.UnLock
sql = "INSERT INTO logs (type, logtime, name, ip, opertion) VALUES ('3', '" & sj & "', '" & nickname & "', '" & userip & "', '花费了 <font color=red>" & yjhb & "￥</font> 办理了永久保留。')"
conn.Execute sql
conn.close
set rs=nothing
set conn=nothing
Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'><style type=text/css>body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}</style></head><body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>"
Response.Write "<script Language=JavaScript>alert('■ 操作完成 ■\n\n添加永久保留成功。\n\n共用去货币" & yjhb & "￥');history.go(-1);</script></body></html>"
Response.End%>
⌨️ 快捷键说明

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