www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > master/webconfig.asp
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#include file="check.asp"-->
<link href="../css/admin.css" rel="stylesheet">
<META http-equiv=Content-Type content=text/html;charset=GB2312>
<body Style="background-color:#9EB6D8" text="#000000" leftmargin="5" topmargin="5">
<%
On Error Resume Next
Dim Action,FoundErr,ErrMsg,Jpeg,jpegok,strJpg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005 = Err Then
jpegok=False
strJpg="<font color=red>您的空间不支持此组件,请关闭此功能!</font>"
Else
jpegok=True
strJpg="<font color=""#008800"">您的空间支持此组件,可以打开此功能!</font>"
End If
Action=Trim(Request("Action"))
if Action="" then
call Main()
elseif Action="WebBasicInfoSave" then
call WebBasicInfoSave()
elseif Action="WebBasicInfoRestore" then
call WebBasicInfoRestore()
Else
call Main()
end if
if founderr=true then
call WriteErrMsg()
End if
%>
<%
Sub Main()
Dim W_ID
Dim W_WebsiteAppe,W_SuppExpl,W_WebSiteName,W_WebSiteUrl,W_StatMastName,W_StatMastEmail,W_StatMastQQ
Dim W_WebSiteKeyword,W_WebSiteIntr,W_WebSiteCopyInfo
set oRs=server.createobject("adodb.recordset")
sSql="Select Top 1 * From WebBasicInfo"
oRs.Open sSql,Conn,1,1
If Not oRs.Eof Then
W_ID=oRs("W_ID")
W_WebsiteAppe=oRs("W_WebsiteAppe")
W_SuppExpl=oRs("W_SuppExpl")
W_WebSiteName=oRs("W_WebSiteName")
W_WebSiteUrl=oRs("W_WebSiteUrl")
W_StatMastName=oRs("W_StatMastName")
W_StatMastEmail=oRs("W_StatMastEmail")
W_StatMastQQ=oRs("W_StatMastQQ")
W_WebSiteKeyword=oRs("W_WebSiteKeyword")
W_WebSiteIntr=oRs("W_WebSiteIntr")
W_WebSiteCopyInfo=oRs("W_WebSiteCopyInfo")
isplay=oRs("isplay")
isJpeg=oRs("W_ArtCataShowClose")
isBook=oRs("W_DownCataShowClose")
W_StatMastEmail=oRs("W_StatMastEmail")
W_StatMastQQ=oRs("W_StatMastQQ")
isComment=oRs("W_BBsCataShowClose")
photoSize=oRs("W_HomeArtRecoNum")
mediaSize=oRs("W_HomeSoftRecoNum")
diskSize=oRs("W_HomeCoolSiteRecoNum")
End If
oRs.Close
%>
<table cellpadding="3" cellspacing="1" border="0" width="95%" class="a2">
<form name="myform" method="post" action="?Action=WebBasicInfoSave&ID=<%=W_ID%>"> <tr class="a1">
<td colspan="2"><div align="center"><strong>网 站 基 本 设 置</strong></div></td>
</tr>
<tr>
<td colspan="2" class="a3">如果您的网站的设置出错，可以使用<A href="?Action=WebBasicInfoRestore&ID=<%=W_ID%>"><B><font color="#FF0000">还原网站默认设置</font></B></A> </td>
</tr>
<tr class="a4">
<td width="150">网站当前状态：</td>
<td><input name="W_WebsiteAppe" type="radio" value="True" <%If W_WebsiteAppe="True" Then%>checked<%End If%>>
打开
<input type="radio" name="W_WebsiteAppe" value="False" <%If W_WebsiteAppe="False" Then%>checked<%End If%>>
关闭 <font color="#ff6600">注：维护期间可设置关闭网站</font></td>
</tr>
<tr class="a3">
<td width="150">维护说明：</td>
<td><textarea name="W_SuppExpl" cols="60" rows="5" class="input_text" id="W_SuppExpl"><%=W_SuppExpl%></textarea>
<br>
<font color="#ff6600">注：在网站关闭情况下显示，支持html语法</font></td>
</tr>
<tr class="a3">
<td width="150">网站访问权限设置：</td>
<td>
问题:<input type="text" name="W_StatMastEmail" value="<%=W_StatMastEmail%>" size="15" maxlength="49">
答案:<input type="text" name="W_StatMastQQ" value="<%=W_StatMastQQ%>" size="15" maxlength="49">
(不填写此项表示正常访问)
</td>
</tr>
<tr class="a3">
<td width="150">相册上传图片大小：</td>
<td>
<input type="text" name="photoSize" value="<%=photoSize%>" size="15" maxlength="49">KB
</td>
</tr>
<tr class="a3">
<td width="150">上传多媒体大小：</td>
<td>
<input type="text" name="mediaSize" value="<%=mediaSize%>" size="15" maxlength="49">KB
</td>
</tr>
<tr class="a3">
<td width="150">网络硬盘文件上传大小：</td>
<td>
<input type="text" name="diskSize" value="<%=diskSize%>" size="15" maxlength="49">KB
</td>
</tr>
<tr class="a4">
<td width="150">留言板当前状态：</td>
<td><input name="isBook" type="radio" value="True" <%If isBook="True" Then%>checked<%End If%>>
打开
<input type="radio" name="isBook" value="False" <%If isBook="False" Then%>checked<%End If%>>
关闭 <font color="#ff6600"></font></td>
</tr>
<tr class="a4">
<td width="150">评论功能：</td>
<td><input name="isComment" type="radio" value="True" <%If isComment="True" Then%>checked<%End If%>>
打开
<input type="radio" name="isComment" value="False" <%If isComment="False" Then%>checked<%End If%>>
关闭 <font color="#ff6600"></font></td>
</tr>
<tr class="a4">
<td width="150">打开网站自动播放音乐：</td>
<td><input name="isplay" type="radio" value="True" <%If isplay="True" Then%>checked<%End If%>>
是
<input type="radio" name="isplay" value="False" <%If isplay="False" Then%>checked<%End If%>>
否 <font color="#ff6600"></font></td>
</tr>
<tr class="a4">
<td width="150">使用ASPJPEG组件：</td>
<td><input type="radio" name="isJpeg" value="True" <%If isJpeg="True" Then%>checked<%End If%>>
是
<input type="radio" name="isJpeg" value="False" <%If isJpeg="False" Then%>checked<%End If%>>
否 <font color="#ff6600"></font><%=strJpg%></td>
</tr>
<tr class="a4">
<td width="150">网站名称：</td>
<td><input name="W_WebSiteName" type="text" class="input_text" id="W_WebSiteName" size="40" value="<%=W_WebSiteName%>"></td>
</tr>
<tr class="a3">
<td width="150">网站网址：</td>
<td><input name="W_WebSiteUrl" type="text" class="input_text" id="W_WebSiteUrl" size="40" value="<%=W_WebSiteUrl%>"></td>
</tr>
<tr class="a4">
<td width="150">站长姓名：</td>
<td><input name="W_StatMastName" type="text" class="input_text" id="W_StatMastName" size="40" value="<%=W_StatMastName%>"></td>
</tr>
<tr class="a3">
<td width="150">网站关键字：</td>
<td><textarea name="W_WebSiteKeyword" cols="60" rows="5" class="input_text" id="W_WebSiteKeyword"><%=W_WebSiteKeyword%></textarea>
<br>
<font color="#ff6600">注：将被搜索引擎用来搜索您网站的关键内容</font></td>
</tr>
<tr class="a4">
<td width="150">网站介绍：</td>
<td><textarea name="W_WebSiteIntr" cols="60" rows="5" class="input_text" id="W_WebSiteIntr"><%=W_WebSiteIntr%></textarea>
<br>
<font color="#ff6600">注：将被搜索引擎用来说明您网站的主要内容（介绍中请不要带英文的逗号）</font></td>
</tr>
<tr class="a3">
<td width="150">网站版权信息:</td>
<td><textarea name="W_WebSiteCopyInfo" cols="60" rows="5" class="input_text" id="W_WebSiteCopyInfo"><%=W_WebSiteCopyInfo%></textarea></td>
</tr>
<tr class="a4">
<td height="40" colspan="2"><div align="center">
<input type="submit" name="Submit" value=" 提 交 " class="input_submit">
</div></td>
</tr>
</form>
</table>
<%End Sub%>
<%
Sub WebBasicInfoSave()
Dim W_ID
Dim W_WebsiteAppe,W_SuppExpl,W_WebSiteName,W_WebSiteUrl,W_StatMastName,W_StatMastEmail,W_StatMastQQ
Dim W_WebSiteKeyword,W_WebSiteIntr,W_WebSiteCopyInfo
W_ID=Trim(Request("ID"))
W_WebsiteAppe=Trim(Request("W_WebsiteAppe"))'网站当前状态
W_SuppExpl=Trim(Request("W_SuppExpl"))'维护说明
W_WebSiteName=Trim(Request("W_WebSiteName"))'网站名称
W_WebSiteUrl=Trim(Request("W_WebSiteUrl"))'网站网址
W_StatMastName=Trim(Request("W_StatMastName"))'站长名称
W_WebSiteKeyword=Trim(Request("W_WebSiteKeyword"))'网站关键字
W_WebSiteIntr=Trim(Request("W_WebSiteIntr"))'网站介绍
W_WebSiteCopyInfo=Trim(Request("W_WebSiteCopyInfo"))'网站版权信息
isplay=RequestFormStr("isplay")
isJpeg=RequestFormStr("isJpeg")
isBook=RequestFormStr("isBook")
W_StatMastEmail=RequestFormStr("W_StatMastEmail")
W_StatMastQQ=RequestFormStr("W_StatMastQQ")
isComment=RequestFormStr("isComment")
photoSize=RequestFormNum("photoSize")
mediaSize=RequestFormNum("mediaSize")
diskSize=RequestFormNum("diskSize")
If W_WebSiteName="" Then
FounDerr=True
ErrMsg=ErrMsg&"<br><li>网站名称不能为空！</li>"
End If
'response.write "ok"
set oRs=server.createobject("adodb.recordset")
sSql="Select * From WebBasicInfo Where W_ID="&W_ID
oRs.Open sSql,Conn,1,3
oRs("W_WebsiteAppe")=W_WebsiteAppe
oRs("W_SuppExpl")=W_SuppExpl
oRs("W_WebSiteName")=W_WebSiteName
oRs("W_WebSiteUrl")=W_WebSiteUrl
oRs("W_StatMastName")=W_StatMastName
oRs("W_WebSiteKeyword")=W_WebSiteKeyword
oRs("W_WebSiteIntr")=W_WebSiteIntr
oRs("W_WebSiteCopyInfo")=W_WebSiteCopyInfo
oRs("W_BookCataName")=W_BookCataName
oRs("isplay")=isplay
oRs("W_ArtCataShowClose")=isJpeg
oRs("W_DownCataShowClose")=isBook
oRs("W_StatMastEmail")=W_StatMastEmail
oRs("W_StatMastQQ")=W_StatMastQQ
oRs("W_BBsCataShowClose")=isComment
oRs("W_HomeArtRecoNum")=photoSize
oRs("W_HomeSoftRecoNum")=mediaSize
oRs("W_HomeCoolSiteRecoNum")=diskSize
oRs.Update
oRs.Close
Call MessageBox("修改成功！","webconfig.asp")
End Sub
%>
<%
Sub WebBasicInfoRestore()
W_ID=Trim(Request("ID"))
set oRs=server.createobject("adodb.recordset")
sSql="Select * From WebBasicInfo Where W_ID="&W_ID
oRs.Open sSql,Conn,1,3
oRs("W_WebsiteAppe")="True"
oRs("W_SuppExpl")="网站维护中"
oRs("W_WebSiteName")="就爱设计 V7.0 让我更出色123"
oRs("W_WebSiteUrl")="http://www.92design.cn"
oRs("W_StatMastName")="CIT"
oRs("W_WebSiteKeyword")="就爱设计,ASP,PHP,Java,JavaScript,VBscript,ASP.Net,.Net,源码,下载,软件,资源,模版,网站建设,网页设计,网站策划,网站空间,免费空间,网上赚钱,韩国网站,品网,代理,图片,图库,设计,CG,域名,虚拟主机,网站推广,艺术,破解"
oRs("W_WebSiteIntr")="就爱设计,ASP,PHP,Java,JavaScript,VBscript,ASP.Net,.Net,源码,下载,软件,资源,模版,网站建设,网页设计,网站策划,网站空间,免费空间,网上赚钱,韩国网站,品网,代理,图片,图库,设计,CG,域名,虚拟主机,网站推广,艺术,破解"
oRs("W_WebSiteCopyInfo")="COPYRIGHT 2006 ~ 2008 © 92DESIGN.CN QQ讨论群:1756780 ICP备案:鄂ICP备05023373"
oRs("W_BookWorryNeed")="妈的|法轮功"
oRs("isplay")=True
oRs("W_ArtCataShowClose")=True
oRs("W_BBsCataShowClose")=True
oRs("W_HomeArtRecoNum")=1000
oRs("W_HomeSoftRecoNum")=10000
oRs("W_HomeCoolSiteRecoNum")=10000
oRs.Update
oRs.Close
Response.Write "<p align=center>还原网站默认设置成功！<script>window.setTimeout(""location.href='?'"",1000);</script></p>"
End Sub
%>