📄 ycms@set.asp

📁 安全性好,适用于展示和进行资源下载的个人和大型网站使用!

💻 ASP

字号:

<!--#include file="inc/conn.asp"-->
<%
call checkadmin("set")
Function YCMS_Encode(content)
dim tmp
tmp=Trim(content)
tmp=replace(tmp,"<","&lt;")
tmp=replace(tmp,">","&gt")
tmp=replace(tmp,"'","")
tmp=replace(tmp,"char(34)","")
YCMS_Encode=tmp
End Function
If Request.QueryString("go")="save" Then
webname=YCMS_Encode(Request.Form("webname"))
weburl=YCMS_Encode(Request.Form("weburl"))
webceo=YCMS_Encode(Request.Form("webceo"))
webmail=YCMS_Encode(Request.Form("webmail"))
webnumber=YCMS_Encode(Request.Form("webnumber"))
webskin=YCMS_Encode(Request.Form("webskin"))
webpage=YCMS_Encode(Request.Form("webpage"))
webindexnum=YCMS_Encode(Request.Form("webindexnum"))
webindexpicnum=YCMS_Encode(Request.Form("webindexpicnum"))
webclick=CInt(Request.Form("webclick"))
webbest=CInt(Request.Form("webbest"))
webovertime=CInt(Request.Form("webovertime"))
webpoint=CInt(Request.Form("webpoint"))
webpassword=Request.Form("webpassword")
webcopyright=YCMS_Encode(Request.Form("webcopyright"))
webbadreg=YCMS_Encode(Request.Form("webbadreg"))
webbadwords=YCMS_Encode(Request.Form("webbadwords"))
webip=YCMS_Encode(Request.Form("webip"))
'缃戠珯鍏抽棴|鐢ㄦ埛娉ㄥ唽|濞变箰涓嬭浇|鍙戝竷鏂伴椈|鍙戝竷鏂囩珷|鍙戝竷鍥剧墖|鍙戝竷濞变箰|鍙戝竷涓嬭浇|
Dim aa,bb,cc,dd,ee,ff,gg,hh
If Request.Form("webopen")=1 Then
aa=1
Else
aa=0
End if
If Request.Form("webreg")=1 Then
bb=1
Else
bb=0
End if
If Request.Form("webdowndj")=1 Then
cc=1
Else
cc=0
End if
If Request.Form("user_news")=1 Then
dd=1
Else
dd=0
End If
If Request.Form("user_art")=1 Then
ee=1
Else
ee=0
End If
If Request.Form("user_pic")=1 Then
ff=1
Else
ff=0
End If
If Request.Form("user_dj")=1 Then
gg=1
Else
gg=0
End If
If Request.Form("user_down")=1 Then
gg=1
Else
gg=0
End If
webopen=aa&"|"&bb&"|"&cc&"|"&dd&"|"&ee&"|"&ff&"|"&gg&"|"&gg

set rsset=server.CreateObject("adodb.recordset")
    rsset.open "select webset from [YCMS_set]",conn,1,3
rsset("webset")=webname&"@@@"&weburl&"@@@"&webceo&"@@@"&webmail&"@@@"&webnumber&"@@@"&webskin&"@@@"&webindexnum&"@@@"&webpage&"@@@"&webclick&"@@@"&webbest&"@@@"&webovertime&"@@@"&webpoint&"@@@"&webopen&"@@@"&webpassword&"@@@"&webcopyright&"@@@"&webbadwords&"@@@"&webbadreg&"@@@"&webip&"@@@"&webindexpicnum
    rsset.update
    rsset.close
Set rsset=Nothing
Application.Lock
Application.Contents.RemoveAll
Application.unLock
YCMS_url("frame.asp?action=right")
End If
Dim webset:webset=Split(conn.execute("select webset from [YCMS_set]")(0),"@@@")
%>
<html>
<head>
<title>绠＄悊涓

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -