admin_setup.asp

本息统基于中国网站技术人员最熟悉WindowsNT环境和Asp语言

	var sEL = document.all("s_"+what);
	var arr = showModalDialog("images/selcolor.html", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0; help:0");
	if (arr) {
		dEL.value=arr;
		sEL.style.backgroundColor=arr;
	}
}
function chkselect(s,divid)
{
var divname='Issubport';
var chkreport;
	s=Number(s)
	if (divid=="know1")
	{
	divname=divname+s;
	}
	if (divid=="know2")
	{
	s+=4;
	if (s==1003){s=999;}
	divname=divname+s;
	}
	if (divid=="know3")
	{
	s+=9;
	if (s==1008){s=999;}
	divname=divname+s;
	}
document.getElementById(divid).innerHTML=divname;
chkreport=document.getElementById(divname).innerHTML;
document.getElementById(divid).innerHTML=chkreport;
}

</script>
<div id="Issubport0" style="display:none">请选择EMAIL组件！</div>
<%
Dim InstalledObjects(12),i
InstalledObjects(1) = "JMail.Message"				'JMail 4.3
InstalledObjects(2) = "CDONTS.NewMail"				'CDONTS
InstalledObjects(3) = "Persits.MailSender"			'ASPEMAIL
'-----------------------
InstalledObjects(4) = "Adodb.Stream"				'Adodb.Stream
InstalledObjects(5) = "Persits.Upload"				'Aspupload3.0
InstalledObjects(6) = "SoftArtisans.FileUp"			'SA-FileUp 4.0
InstalledObjects(7) = "DvFile.Upload"				'DvFile-Up V1.0
'-----------------------
InstalledObjects(9) = "CreatePreviewImage.cGvbox"	'CreatePreviewImage
InstalledObjects(10) = "Persits.Jpeg"				'AspJpeg
InstalledObjects(11) = "Persits.Jpeg"		'SoftArtisans ImgWriter V1.21
InstalledObjects(12) = "sjCatSoft.Thumbnail"		'sjCatSoft.Thumbnail V2.6

For i=1 to 12
	Response.Write "<div id=""Issubport"&i&""" style=""display:none"">"
	If IsObjInstalled(InstalledObjects(i)) Then Response.Write InstalledObjects(i)&":<font color=red><b>√</b>服务器支持!</font>" Else Response.Write InstalledObjects(i)&"<b>×</b>服务器不支持!" 
	Response.Write "</div>"
Next
%>
</body>
</html>
<%
set rs=nothing
end sub

sub saveconfig()
dim rs,sql
if not IsObject(conn) then link_database
set rs=server.CreateObject("adodb.recordset")
sql="select * from oblog_setup"
rs.open sql,conn,1,3
rs("site_name")=trim(request("site_name"))
rs("site_title")=trim(request("site_title"))
rs("site_path")=trim(request("site_path"))
rs("site_domain")=trim(request("site_domain"))
rs("site_copyright")=trim(request("site_copyright"))
rs("master_email")=trim(request("master_email"))
rs("show_log_num")=trim(request("show_log_num"))
rs("is_log_check")=trim(request("is_log_check"))
rs("is_comment_check")=0'trim(request("commentcheck"))
rs("is_secondary_domain")=trim(request("is_secondary_domain"))
'rs("timediff")=trim(request("timediff"))
'rs("sessiontimeout")=trim(request("sessiontimeout"))
rs("is_enreg")=trim(request("is_enreg"))
rs("is_admin_chkreg")=trim(request("is_admin_chkreg"))
rs("is_enguest_comment")=trim(request("is_enguest_comment"))
rs("site_keyword")=trim(request("site_keyword"))
rs("show_listuser_num")=clng(trim(request("show_listuser_num")))
if request("get_log_num")="" then
	rs("get_log_num")=500
else
	rs("get_log_num")=clng(trim(request("get_log_num")))
end if

if request("show_imgw_num")="" then
	rs("show_imgw_num")=0
else
	rs("show_imgw_num")=clng(trim(request("show_imgw_num")))
end if
rs("show_img_mouse")=trim(request("show_img_mouse"))
rs("is_log_profilt")=trim(request("is_log_profilt"))
'rs("is_vip_prosee")=trim(request("is_vip_prosee"))

rs("upfile_user_en")=trim(request("upfile_user_en"))
rs("upfile_user_type")=trim(request("upfile_user_type"))
if request("upfile_user_onesize")="" then
	rs("upfile_user_onesize")=0
else
	rs("upfile_user_onesize")=clng(trim(request("upfile_user_onesize")))
end if

rs("upfile_vip_en")=trim(request("upfile_vip_en"))
rs("upfile_vip_type")=trim(request("upfile_vip_type"))
if request("upfile_vip_onesize")="" then
	rs("upfile_vip_onesize")=0
else
	rs("upfile_vip_onesize")=clng(trim(request("upfile_vip_onesize")))
end if
rs("upfile_admin_en")=trim(request("upfile_admin_en"))
rs("upfile_admin_type")=trim(request("upfile_admin_type"))
if request("upfile_admin_onesize")="" then
	rs("upfile_admin_onesize")=0
else
	rs("upfile_admin_onesize")=clng(trim(request("upfile_admin_onesize")))
end if

if request("max_badstr_num")="" then
	rs("max_badstr_num")=0
else
	rs("max_badstr_num")=clng(trim(request("max_badstr_num")))
end if

rs("show_comment_asc")=trim(request("show_comment_asc"))
'response.Write clng(trim(request("reg_userlevel"))
if request("upfile_user_maxsize")="" then
	rs("upfile_user_maxsize")=0
else
	rs("upfile_user_maxsize")=clng(trim(request("upfile_user_maxsize")))
end if
if request("upfile_vip_maxsize")="" then
	rs("upfile_vip_maxsize")=0
else
	rs("upfile_vip_maxsize")=clng(trim(request("upfile_vip_maxsize")))
end if
if request("upfile_admin_maxsize")="" then
	rs("upfile_admin_maxsize")=0
else
	rs("upfile_admin_maxsize")=clng(trim(request("upfile_admin_maxsize")))
end if

rs("is_need_classid")=trim(request("is_need_classid"))
if request("add_pitchtime")="" then
	rs("add_pitchtime")=0
else
	rs("add_pitchtime")=clng(trim(request("add_pitchtime")))
end if
if request("time_index_update")="" then
	rs("time_index_update")=0
else
	rs("time_index_update")=clng(trim(request("time_index_update")))
end if
rs("is_code_reg")=cint(request("is_code_reg"))
rs("is_code_login")=cint(request("is_code_login"))
rs("is_code_comment")=cint(request("is_code_comment"))
'rs("is_code_pm")=cint(request("is_code_pm"))
rs("is_code_addblog")=cint(request("is_code_addblog"))
rs("pm_num")=cint(request("pm_num"))
rs("enchangdomain")=cint(request("enchangdomain"))
rs("dis_refutime")=CLNG(request("dis_refutime"))
rs("upset_uptype")=request("upset_uptype")
rs("upset_isDraw")=request("upset_isDraw")
rs("upset_Drawtext")=request("upset_Drawtext")
rs("upset_Drawfontsize")=request("upset_Drawfontsize")
rs("upset_Drawcolor")=request("upset_Drawcolor")
rs("upset_Drawfont")=request("upset_Drawfont")
rs("upset_DrawFontBold")=request("upset_DrawFontBold")
rs("upset_Drawpic")=request("upset_Drawpic")
if request("upset_DrawGraph")="" then
	rs("upset_DrawGraph")=0
else
	rs("upset_DrawGraph")=request("upset_DrawGraph")
end if
rs("upset_Drawpiccolor")=request("upset_Drawpiccolor")
if request("upset_DrawHight")="" then 
	rs("upset_DrawHight")=0
else
	rs("upset_DrawHight")=cint(request("upset_DrawHight"))
end if
if request("upset_DrawWidth")="" then
	rs("upset_DrawWidth")=0
else
	rs("upset_DrawWidth")=cint(request("upset_DrawWidth"))
end if
rs("upset_DrawXYType")=request("upset_DrawXYType")
rs("max_log_word")=request("max_log_word")
rs("max_comment_word")=request("max_comment_word")
rs("is_searchlogtext")=request("is_searchlogtext")
rs("get_photonum")=request("get_photonum")
rs("show_photonum")=request("show_photonum")
rs("oneday_update")=request("oneday_update")
If request("index_to_file")<>"" Then
	rs("index_to_file")=request("index_to_file")
Else
	rs("index_to_file")=0
End If
rs("loadingstr")=request("loadingstr")
If request("df_filename")<>"" then
	rs("df_filename")=request("df_filename")
Else
	rs("df_filename")=0
End If
rs.update
rs.close
set rs=nothing
oblog.reloadsetup
response.Redirect "admin_setup.asp"
end sub
Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If Err = 0 Then IsObjInstalled = True
	If Err = -2147352567 Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function

%>