<%
'on error resume next
call dbconn
dim rscache,cachedata
set rscache = conn.execute("select top 1 * from DH654_setup order by id desc")
if not rscache.eof then
	cachedata = rscache.getrows()
	rscache.close:set rscache = nothing
	dim site_name:site_name = cachedata(1,0)
	dim site_user:site_user = cachedata(2,0)
	dim site_keywords:site_keywords = cachedata(3,0)
	dim site_description:site_description = cachedata(4,0)
	dim site_copyright:site_copyright = cachedata(5,0)
	dim site_url:site_url = cachedata(6,0)
	dim site_index_temp:site_index_temp = cachedata(7,0)
	dim site_class_temp:site_class_temp = cachedata(8,0)
	dim site_url_temp:site_url_temp = cachedata(9,0)
	dim site_extname:site_extname = cachedata(10,0)
	'-----系统的虚拟目录,后面不能带/——-----
	dim site_root:site_root = cachedata(11,0)
	'-----生成文件保存路径,后面不能带/,不带虚拟目录-----	
	dim site_html:site_html = cachedata(12,0)
	dim root_html
	if site_root = "" and site_html="" then
		root_html = ""
	elseif site_root <> "" and site_html<>"" then
		root_html = site_root&site_html&""
	elseif site_root = "" and site_html<>"" then
		root_html = site_html&""
	elseif site_root <> "" and site_html="" then
		root_html = site_root&""
	end If
	dim site_upload:site_upload = cachedata(13,0)
    dim So654cN:So654cN=cachedata(14,0)
    dim site_ColorBox:site_ColorBox=cachedata(15,0)
	dim site_editor:site_editor = cachedata(16,0)   
	dim TJ_day:TJ_day = cachedata(17,0)               
	dim TJ_hour:TJ_hour = cachedata(18,0)             
	dim TJ_now:TJ_now = cachedata(19,0)              
	dim editor:editor = cachedata(21,0)
	dim site_ku:site_ku = cachedata(22,0)             
	dim site_Channel:site_Channel = cachedata(23,0)   
	dim site_dh_pop:site_dh_pop=cachedata(24,0)      
    dim SMTPServerUserName:SMTPServerUserName=cachedata(25,0)
    dim SMTPServerPassword:SMTPServerPassword=cachedata(26,0)
    dim MailDomain:MailDomain=cachedata(27,0)
    dim SMTPServer:SMTPServer=cachedata(28,0)
	cachedata = "" 
	conn.close:set conn = nothing
else
	rscache.close:set rscache = nothing
	conn.close:set conn = nothing
end if 
REM 修改后台版权的撞车去死！
REM 本身都没有要求你的模板上保留版权，已经够意思的了，还修改后台版权。
REM 你Y祖宗十八代肯定都是木jj的太监！！
REM 就因为你这种垃圾，国内优秀的asp程序都加DLL了
%>
