const.asp

下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admin

<%
on error resume next
dim sql
dim Table_color,Tablebackcolor,aTablebackcolor,Tabletitlecolor,aTabletitlecolor
dim Tablebodycolor,aTablebodycolor,TableFontcolor,TableContentcolor,tablefcolor
dim AlertFontColor,ContentTitle,ReplyColor,ForumBody,TableWidth,BodyFontColor,BoardLinkColor
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from config"
rs.open sql,conn,1,3
HostUrl=rs("hosturl")
HostName=rs("hostname")	
Webmaster=rs("webmaster")
WebmasterEmail=rs("webmasteremail")
MaxPerPage=rs("MaxPerPage")
ScriptTimeOut=rs("ScriptTimeOut")
makejs=rs("makejs")
jsdir=rs("jsdir")
jsurl=rs("jsurl") 
downdir1=rs("downdir1")	
downdir2=rs("downdir2")
updatahtml=rs("updatahtml")
countlong=rs("countlong") 
countview=rs("countview") 
onlineview=rs("onlineview")
intercept=rs("intercept")  
copyright=rs("copyright") 
version=rs("version")    
program=rs("program")  
updatedir=rs("updatedir") 
filesurl=rs("filesurl")     
updateimg=rs("updateimg")  
imgurl=rs("imgurl")  
DayTop=rs("DayTop") 
WeekTop=rs("WeekTop")
AllTop=rs("AllTop")     
view_updating=rs("view_updating") 
view_commend=rs("view_commend") 
d_newcount=rs("D_newcount")
strOnlineTimedOut=rs("strOnlineTimedOut")
viewgoodlink=rs("viewgoodlink")
maxgoodlink=rs("maxgoodlink")
index_perpage=rs("index_perpage")
mgr_perpage=rs("mgr_perpage")
newscount=rs("newscount")
img_upload=rs("img_upload")
img_size=rs("img_size")
file_upload=rs("file_upload")
file_size=rs("file_size")
Table_color=split(rs("tablecfg"),",")
Tablebackcolor=Table_color(0)
aTablebackcolor=Table_color(1)
Tabletitlecolor=Table_color(2)
aTabletitlecolor=Table_color(3)
Tablebodycolor=Table_color(4)
aTablebodycolor=Table_color(5)
TableFontcolor=Table_color(6)
TableContentcolor=Table_color(7)
AlertFontColor=Table_color(8)
ContentTitle=Table_color(9)
ReplyColor=Table_color(10)
ForumBody=Table_color(11)
TableWidth=Table_color(12)
BodyFontColor=Table_color(13)
BoardLinkColor=Table_color(14)
TablefColor=Table_color(15)
allowdel=rs("allowdel")   
rs.close
set rs=nothing

function cutchar(v_char,maxlen)
if not intercept then
cutchar=v_char
exit function
end if
dim icount
dim icount1
icount=0
icount1=0
v_char=trim(v_char)
v_len=lenb(v_char)
if v_len<=maxlen then
cutchar=v_char
else
for i=1 to len(v_char)
s_char=asc(mid(v_char,i,1))
if s_char<0 then s_char=s_char+65536
if s_char>255 then
icount=icount+1
else
icount=icount+0.5
end if
icount1=icount1+1
if cint(icount)>=cint((maxlen-3)/2) then exit for
next
cutchar=left(v_char,icount1)&".."
end if
end function
%>