admin_save.asp

WEB后台:/Admin_Login.asp WAP后台:/Admin_WapLogin.asp 用户名：admin 密码:admin 在conn.asp文件修改数据库

    strBody = "<"&chr(37)&Chr(10)
	strBody = strBody & "Const IsSqlDataBase = "&Chr(34)&IsSqlDataBase&Chr(34)&CHR(39)&"系统数据库类型1为MSSQL2000数据库0为MSACCESS数据库"&Chr(10)&""
	strBody = strBody & "Const WapLinkMdb = "&Chr(34)&WapLinkMdb&Chr(34)&CHR(39)&"ACC数据库名"&Chr(10)&""
	strBody = strBody & "Const WapFengge = "&Chr(34)&WapFengge&Chr(34)&CHR(39)&"首页风格"&Chr(10)&""
	strBody = strBody & "Const WapName = "&Chr(34)&WapName&Chr(34)&CHR(39)&"网站名称"&Chr(10)&""
	strBody = strBody & "Const ChannelName = "&Chr(34)&ChannelName&Chr(34)&CHR(39)&"频道名称"&Chr(10)&""
	strBody = strBody & "Const JianchengName = "&Chr(34)&JianchengName&Chr(34)&CHR(39)&"频道简称"&Chr(10)&""
	strBody = strBody & "Const WapUrl = "&Chr(34)&WapUrl&Chr(34)&CHR(39)&"网站地址"&Chr(10)&""
	strBody = strBody & "Const WapMulu = "&Chr(34)&WapMulu&Chr(34)&CHR(39)&"安装目录"&Chr(10)&""
	strBody = strBody & "Const WapAlt = "&Chr(34)&WapAlt&Chr(34)&CHR(39)&"网站说明"&Chr(10)&""
	strBody = strBody & "Const WapLogoUrl = "&Chr(34)&WapLogoUrl&Chr(34)&CHR(39)&"网站Logo"&Chr(10)&""
	strBody = strBody & "Const WapEmail = "&Chr(34)&WapEmail&Chr(34)&CHR(39)&"邮箱地址"&Chr(10)&""
	strBody = strBody & "Const AdminName = "&Chr(34)&AdminName&Chr(34)&CHR(39)&"用户名称"&Chr(10)&""
	strBody = strBody & "Const AdminPass = "&Chr(34)&AdminPass&Chr(34)&CHR(39)&"管理密码"&Chr(10)&""
	strBody = strBody & "Const Wapsn = "&Chr(34)&Wapsn&Chr(34)&CHR(39)&"官方授权的唯一系列号"&Chr(10)&""
	strBody = strBody & "Const LineNum = "&Chr(34)&LineNum&Chr(34)&CHR(39)&"显示个站"&Chr(10)&""
	strBody = strBody & "Const WapPaixu = "&Chr(34)&WapPaixu&Chr(34)&CHR(39)&"显示排序"&Chr(10)&""
	strBody = strBody & "Const inpc = "&Chr(34)&inpc&Chr(34)&CHR(39)&"封锁限制"&Chr(10)&""
	strBody = strBody & "Const MaxLine = "&Chr(34)&MaxLine&Chr(34)&CHR(39)&"显示行数"&Chr(10)&""
	strBody = strBody & "Const HitsTime = "&Chr(34)&HitsTime&Chr(34)&CHR(39)&"计数配置"&Chr(10)&""
	strBody = strBody & "Const PeizhiDianchu = "&Chr(34)&PeizhiDianchu&Chr(34)&CHR(39)&"点出配置"&Chr(10)&""
	strBody = strBody & "Const PeizhiDianru = "&Chr(34)&PeizhiDianru&Chr(34)&CHR(39)&"点入配置,非手机进入转跳地址(请使用http://开头)"&Chr(10)&""
	strBody = strBody & "Const WapJinru = "&Chr(34)&WapJinru&Chr(34)&CHR(39)&"点入配置,手机进入转跳地址(请使用http://开头)"&Chr(10)&""
	strBody = strBody & "Const WapWenming = "&Chr(34)&WapWenming&Chr(34)&CHR(39)&"点入配置,文件名称，扩展名为.asp，如“a.asp”"&Chr(10)&""
	strBody = strBody & "Const WapUserNamezhi = "&Chr(34)&WapUserNamezhi&Chr(34)&CHR(39)&"点入配置,变量值(如a.asp?a=**中a)"&Chr(10)&""
	strBody = strBody & "Const WapInpc = "&Chr(34)&WapInpc&Chr(34)&CHR(39)&"站点限制"&Chr(10)&""
	strBody = strBody & "Const WapZhenghe = "&Chr(34)&WapZhenghe&Chr(34)&CHR(39)&"程序整合"&Chr(10)&""
	strBody = strBody & "Const IsVerify = "&Chr(34)&IsVerify&Chr(34)&CHR(39)&"站点审核"&Chr(10)&""
	strBody = strBody & "Const IsDomainLimit = "&Chr(34)&IsDomainLimit&Chr(34)&CHR(39)&"域名配置"&Chr(10)&""
	strBody = strBody & "Const FilterWord = "&Chr(34)&FilterWord&Chr(34)&CHR(39)&"过滤名称"&Chr(10)&""
	strBody = strBody & "Const FilterDomain = "&Chr(34)&FilterDomain&Chr(34)&CHR(39)&"屏蔽域名"&Chr(10)&""
	strBody = strBody & "Const FilterLimit = "&Chr(34)&FilterLimit&Chr(34)&CHR(39)&"屏蔽IP"&Chr(10)&""
	strBody = strBody & "Const FilterBrowsers = "&Chr(34)&FilterBrowsers&Chr(34)&CHR(39)&"屏蔽模拟器"&Chr(10)&""
	strBody = strBody & "Const IsDeBug = "&Chr(34)&IsDeBug&Chr(34)&CHR(39)&"运行模式"&Chr(10)&""
	strBody = strBody & "Const WapCacheName = "&Chr(34)&WapCacheName&Chr(34)&CHR(39)&"缓存名称"&Chr(10)&""
	strBody = strBody & "Const WapWhuangtai = "&Chr(34)&WapWhuangtai&Chr(34)&CHR(39)&"站点状态"&Chr(10)&""
	strBody = strBody & "Const WapXiaxian = "&Chr(34)&WapXiaxian&Chr(34)&CHR(39)&"下级显示"&Chr(10)&""
	strBody = strBody & "Const WapFromDelete = "&Chr(34)&WapFromDelete&Chr(34)&CHR(39)&"自动删除点击记录(“0“为手动删除)"&Chr(10)&""
	strBody = strBody & "Const WapChuzhan = "&Chr(34)&WapChuzhan&Chr(34)&CHR(39)&"出站方式"&Chr(10)&""	

	strBody = strBody & "Const LimitsiteName = "&Chr(34)&LimitsiteName&Chr(34)&CHR(39)&"网站简称不能超过字符"&Chr(10)&""
	strBody = strBody & "Const LimitsiteTitle = "&Chr(34)&LimitsiteTitle&Chr(34)&CHR(39)&"网站名称不能超过字符"&Chr(10)&""
	strBody = strBody & "Const Limitsiteintro = "&Chr(34)&Limitsiteintro&Chr(34)&CHR(39)&"网站简介不能超过字符"&Chr(10)&""

	strBody = strBody & "Const WapOnline = "&Chr(34)&WapOnline&Chr(34)&CHR(39)&"统计配置"&Chr(10)&""
	strBody = strBody & "Const WapOnlineYangshi = "&Chr(34)&WapOnlineYangshi&Chr(34)&CHR(39)&"统计显示样式"&Chr(10)&""
	strBody = strBody & "Const WapGoto = "&Chr(34)&WapGoto&Chr(34)&CHR(39)&"作弊配置"&Chr(10)&""
	strBody = strBody & "Const WapInterval = "&Chr(34)&WapInterval&Chr(34)&CHR(39)&"作弊配置"&Chr(10)&""
	strBody = strBody & "Const WapGoto1Url = "&Chr(34)&WapGoto1Url&Chr(34)&CHR(39)&"作弊URL"&Chr(10)&""
	strBody = strBody & "Const WapGoto2Url = "&Chr(34)&WapGoto2Url&Chr(34)&CHR(39)&"作弊URL"&Chr(10)&""
	strBody = strBody & "Const WapGoto3Url = "&Chr(34)&WapGoto3Url&Chr(34)&CHR(39)&"作弊URL"&Chr(10)&""
	strBody = strBody & "Const WapGoto4Url = "&Chr(34)&WapGoto4Url&Chr(34)&CHR(39)&"作弊URL"&Chr(10)&""
	strBody = strBody & "Const WapGoto5Url = "&Chr(34)&WapGoto5Url&Chr(34)&CHR(39)&"作弊URL"&Chr(10)&""
	strBody = strBody & "Const WapGoto6Url = "&Chr(34)&WapGoto6Url&Chr(34)&CHR(39)&"作弊URL"&Chr(10)&""
	strBody = strBody & "Const WapGoto7Url = "&Chr(34)&WapGoto7Url&Chr(34)&CHR(39)&"作弊URL"&Chr(10)&""
	strBody = strBody & "Const WapGoto8Url = "&Chr(34)&WapGoto8Url&Chr(34)&CHR(39)&"作弊URL"&Chr(10)&""
	strBody = strBody & "Const WapGoto9Url = "&Chr(34)&WapGoto9Url&Chr(34)&CHR(39)&"作弊URL"&Chr(10)&""
	strBody = strBody & Chr(10) & Chr(10)
	strBody = strBody & "UserName=Request("&Chr(34)&WapUserNamezhi&Chr(34)&")"&Chr(10)&""
	strBody = strBody & chr(37)&">"&Chr(10)
	
	Rem 保存文件
    Dim objStream  
    Set objStream = Server.CreateObject("ADODB.Stream")    
    If Err Then     
        RText=array(Err.Number,Err.Description)    
        Err.Clear    
    Else  
    With objStream    
        .Type = 2    
        .Open    
        .Charset = "utf-8"   
        .Position = objStream.Size    
        .WriteText = strBody
        .SaveToFile Server.MapPath("Config.asp"),2    
        .Close    
    End With
	End If
    Set objStream = Nothing   


	SiteSN = Replace(Replace(LCase(Request.ServerVariables("SERVER_NAME")), "/", ""), ".", "") '--缓存名称
	Session(SiteSN&"_Admin_Login")=AdminName&"_"&AdminPass
		HTTP_HOST=Request.ServerVariables("HTTP_HOST")
		If Instr(HTTP_HOST,"localhost")<>0 Or Instr(HTTP_HOST,"127.0.0.1")<>0 Then
		   Session(Wapsn)="OK"
		Else
		   If Instr(HTTP_HOST,Decryptstr(Replace(Wapsn,"-","")))<>0 Then
		      Session(Wapsn)="OK"
		   Else
		      Session(Wapsn)="NO"
		   End If      
		End If
    Response.write "<div class=""cutpage"">"
	Response.write "<p>修改成功</p>"
	Response.write "<p><a href=""Admin_Peizhi.asp"">返回上一页</a> <a href=""admin_manage.asp"">返回管理首页</a></p>"
	Response.write "</div>"
End If
%>
</div>
</body>
</html>
<%
Rem 检查组件是否已经安装
Function IsObjInstalled(ClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim TestObj
	Set TestObj = Server.CreateObject(ClassString)
	If 0 = Err Then IsObjInstalled = True
	Set TestObj = Nothing
	Err = 0
End Function

Class clsRSA 

Public PrivateKey 
Public PublicKey 
Public Modulus 

Public Function Crypt(pLngMessage, pLngKey) 
On Error Resume Next 
Dim lLngMod 
Dim lLngResult 
Dim lLngIndex 
If pLngKey Mod 2 = 0 Then 
lLngResult = 1 
For lLngIndex = 1 To pLngKey / 2 
lLngMod = (pLngMessage ^ 2) Mod Modulus 
lLngResult = (lLngMod * lLngResult) Mod Modulus 
If Err Then Exit Function 
Next 
Else 
lLngResult = pLngMessage 
For lLngIndex = 1 To pLngKey / 2 
lLngMod = (pLngMessage ^ 2) Mod Modulus 
On Error Resume Next 
lLngResult = (lLngMod * lLngResult) Mod Modulus 
If Err Then Exit Function 
Next 
End If 
Crypt = lLngResult 
End Function 


Public Function Decode(ByVal pStrMessage) 
Dim lBytAscii 
Dim lLngIndex 
Dim lLngMaxIndex 
Dim lLngEncryptedData 
Decode = "" 
lLngMaxIndex = Len(pStrMessage) 
For lLngIndex = 1 To lLngMaxIndex Step 4 
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 
Decode = Decode & Chr(lBytAscii) 
Next 
End Function 


Private Function HexToNumber(ByRef pStrHex) 
HexToNumber = CLng("&h" & pStrHex) 
End Function 

End Class 

Function Decryptstr(Message) 
Dim LngKeyE 
Dim LngKeyD 
Dim LngKeyN 
Dim StrMessage 
Dim ObjRSA 


LngKeyE = "32823" 
LngKeyD = "20643" 
LngKeyN = "29893" 
StrMessage = Message 

Set ObjRSA = New clsRSA 

ObjRSA.PrivateKey =LngKeyD 
ObjRSA.Modulus=LngKeyN 
decryptstr=ObjRSA.Decode(StrMessage) 
Set ObjRSA = Nothing 
End Function 
%>