strBody = "<"&chr(37)&Chr(10)
	strBody = strBody & "Const IsSqlDataBase = "&Chr(34)&IsSqlDataBase&Chr(34)&CHR(39)&"系統(tǒng)數(shù)據(jù)庫類型1為MSSQL2000數(shù)據(jù)庫0為MSACCESS數(shù)據(jù)庫"&Chr(10)&""
	strBody = strBody & "Const WapLinkMdb = "&Chr(34)&WapLinkMdb&Chr(34)&CHR(39)&"ACC數(shù)據(jù)庫名"&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)&"網(wǎng)站名稱"&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)&"網(wǎng)站地址"&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)&"網(wǎng)站說明"&Chr(10)&""
	strBody = strBody & "Const WapLogoUrl = "&Chr(34)&WapLogoUrl&Chr(34)&CHR(39)&"網(wǎng)站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)&"顯示行數(shù)"&Chr(10)&""
	strBody = strBody & "Const HitsTime = "&Chr(34)&HitsTime&Chr(34)&CHR(39)&"計數(shù)配置"&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)&"站點狀態(tài)"&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)&"網(wǎng)站簡稱不能超過字符"&Chr(10)&""
	strBody = strBody & "Const LimitsiteTitle = "&Chr(34)&LimitsiteTitle&Chr(34)&CHR(39)&"網(wǎng)站名稱不能超過字符"&Chr(10)&""
	strBody = strBody & "Const Limitsiteintro = "&Chr(34)&Limitsiteintro&Chr(34)&CHR(39)&"網(wǎng)站簡介不能超過字符"&Chr(10)&""

	strBody = strBody & "Const WapOnline = "&Chr(34)&WapOnline&Chr(34)&CHR(39)&"統(tǒng)計配置"&Chr(10)&""
	strBody = strBody & "Const WapOnlineYangshi = "&Chr(34)&WapOnlineYangshi&Chr(34)&CHR(39)&"統(tǒng)計顯示樣式"&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 檢查組件是否已經(jīng)安裝
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 
%>