|
发表于 2024-6-29 12:44:48
|
显示全部楼层
<!--#include file="pass.asp"-->
<%
if request("type")="DEL" then
dim fo,filenamestr
set fo=Server.Createobject("Scripting.FileSystemObject")
filenamestr=Server.MapPath("sqlzr.asp")
if fo.FileExists(filenamestr) then
fo.DeleteFile filenamestr
end if
set fo=nothing
Response.Write "<script language=JavaScript>{alert('sqlzr.asp文件删除成功!');location.href='index.asp';}</script>"
end if
jhname="军缘江湖" '设置江湖名称
jhsn="2011_haojh002" '设置江湖序列号
admin="小马" '设置站长名称,注意以下是设置ID号为1的用户为站长
pass="123456" '第一密码
pass2="123456" '第二密码
pass_n="123456" '后台密码
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cwjh_usermdb")
conn.execute "update 用户 set 姓名='"&admin&"' where id=1"
Response.Write "<script language=JavaScript>{alert('提示:修改站长名["&admin&"]成功!');}</script>"
'conn.execute "update 私人武馆 set 馆长='"&admin&"' where id=1"
'Response.Write "<script language=JavaScript>{alert('提示:私人武馆站长名["&admin&"]成功!');}</script>"
conn.execute "update 用户 set 密码='"&md5(pass)&"' where id=1"
Response.Write "<script language=JavaScript>{alert('提示:站长密码修改成功!');}</script>"
conn.execute "update 用户 set 第二密码='"&md5(pass2)&"' where id=1"
Response.Write "<script language=JavaScript>{alert('提示:站长第二密码修改成功!');}</script>"
conn.execute "update 说明 set c='"&md5(pass_n)&"' where a='记数器'"
Response.Write "<script language=JavaScript>{alert('提示:站长后台密码修改成功!');}</script>"
conn.execute "update p set b='"&admin&"' where a='官府'"
Response.Write "<script language=JavaScript>{alert('提示:修改官府掌门为["&admin&"]成功!');}</script>"
conn.execute "update 权限 set 姓名='"&admin&"' where id=1"
Response.Write "<script language=JavaScript>{alert('提示:修改权限为["&admin&"]成功!');}</script>"
cfg_config1=split(Application("cwjh_config"),"┋")
cfg_config2=cfg_config1(2) '获取config配置文件
cfg_config3=split(cfg_config2,"‖")
cfg_config4=cfg_config3(0)&"‖"&cfg_config3(1)&"‖"&cfg_config3(2)&"‖"&cfg_config3(3)&"‖"&cfg_config3(4)&"‖"&cfg_config3(5)&"‖"&cfg_config3(6)&"‖"&cfg_config3(7)&"‖"&cfg_config3(8)&"‖"&cfg_config3(9)&"‖"&cfg_config3(10)&"‖"&cfg_config3(11)&"‖"&cfg_config3(12)&"‖"&cfg_config3(13)&"‖"&cfg_config3(14)&"‖"&cfg_config3(15)&"‖"&cfg_config3(16)&"‖"&cfg_config3(17)&"‖"&cfg_config3(18)&"‖"&jhname&"‖"&jhsn&"‖"&admin&"‖"&admin&"‖"&admin&"‖"&admin&"‖无‖无"
cfg_config=cfg_config1(0)&"┋"&cfg_config1(1)&"┋"&cfg_config4&"┋"&cfg_config1(3)&"┋"&cfg_config1(4)&"┋"&cfg_config1(5)&"┋"&cfg_config1(6)&"┋"&cfg_config1(7)&"┋"&cfg_config1(8)
Application("cwjh_config")=cfg_config
rs.open "select * from 说明 where a='配置'",conn,1,3
if not rs.eof then
rs("c")=cfg_config
rs.update
end if
rs.close
Response.Write "<script language=JavaScript>{alert('提示:设置江湖名称等配置文件成功!');}</script>"
response.write "相关参数已经写入,这代表着您的插件安装完成,强烈建议删除安装文件,请点击<a href=""?type=DEL"">删除安装文件</a><br><br>作者:闲情逸致;手机:13589792799;联系QQ:165649888 "
Response.End
%>
|
|