<%
On Error Resume Next
Dim Action,FoundErr,ErrMsg,Jpeg,jpegok,strJpg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005 = Err Then
jpegok=False
strJpg="您的空间不支持此组件,请关闭此功能!"
Else
jpegok=True
strJpg="您的空间支持此组件,可以打开此功能!"
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
%>
<%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&"