<%dim upload,file,formName,formPath,iCount,exeec,wjm,zid,js,zzt wjdx = 0 Dim path,tempCls,e '=============================================================================== set Upload=new AnUpLoad ''创建类实例 Upload.SingleSize=clng(10 * 1024) * 1024 ''设置单个文件最大上传限制,按字节计；默认为不限制 Upload.MaxSize=clng(10 * 1024) * 1024 ''设置最大上传限制,按字节计；默认为不限制 Upload.Exe="png|gif|bmp|jpg" ''设置合法扩展名,以|分割,忽略大小写 Upload.Charset="gb2312" ''设置文本编码，默认为gb2312 Upload.GetData() ''获取并保存数据,必须调用本方法 '=============================================================================== if jb<>"admin" then response.redirect "tb_dlxx.asp" tbm = upload.forms("bm") tbottom = upload.forms("bottom") tmc = upload.forms("mc") tykft = upload.forms("ykft") tsiteurl = upload.forms("siteurl") ttp = upload.forms("tp") tsy = upload.forms("sy") tupload = upload.forms("upload") tiszc = upload.forms("iszc") tcss = upload.forms("css") tm_key = upload.forms("m_key") tm_des = upload.forms("m_des") tqqid = upload.forms("qqid") tqqfile = upload.forms("qqfile") tfjkt = upload.forms("fjkt") topen = upload.forms("open") tqm = upload.forms("qm") tfjxs = upload.forms("fjxs") tgpath = upload.forms("gpath") if tykft<>"" or tbm<>"" or ttp <> "" or tcss <> "" then brzp = "fj/" if Upload.ErrorID>0 then ''判断错误号,如果myupload.Err<=0表示正常 response.Write Upload.description else path = server.mappath( brzp ) ''文件保存路径(这里是files文件夹) for i=1 to Upload.files(-1).count ''这里判断你是否选择了文件 ''保存第一个文件(以新文件名保存) set tempCls=Upload.files("file1") Set e = tempCls.SaveToFile(path,0 ) if e.error then response.Write e.description else wjm = brzp & tempCls.FileName cg = "1" end if set tempCls=nothing next end if set rs=server.createobject("adodb.recordset") exec="select * from yrwl_tb_setup" rs.open exec,conn,3,1 if not rs.eof then set rs1=server.createobject("adodb.recordset") exec="select * from yrwl_tb_setup" rs1.open exec,conn,1,3 rs1("meta_key") = tm_key rs1("siteurl") = tsiteurl if cg = "1" then rs1("tp") = wjm end if if tupload <> "" then tfjkt = tfjkt + "$$" + tupload if topen <> "" then tfjkt = tfjkt + "$$" + topen if tqqid <> "" then tfjkt = tfjkt + "$$" + tqqid rs1("fjkt") = tfjkt rs1("mc") = tmc rs1("css") = tcss rs1("bm") = tbm rs1("ykft") = tykft rs1("bottomxx") = tbottom rs1("meta_des") = tm_des rs1("wyqm") = tqm rs1("isfjxs") = tfjxs rs1("iszc") = tiszc rs1("gpath") = tgpath rs1.update rs1.close else set rs1=server.createobject("adodb.recordset") exec="select * from yrwl_tb_setup" rs1.open exec,conn,1,3 rs1.addnew rs1("meta_key") = tm_key rs1("siteurl") = tsiteurl if cg = "1" then rs1("tp") = wjm end if rs1("tid") = replace(cstr(date),"-","")+replace(cstr(timer()),".","") if tupload <> "" then tfjkt = tfjkt + "$$" + tupload if topen <> "" then tfjkt = tfjkt + "$$" + topen if tqqid <> "" then tfjkt = tfjkt + "$$" + tqqid rs1("fjkt") = tfjkt rs1("mc") = tmc rs1("css") = tcss rs1("bm") = tbm rs1("isfjxs") = tfjxs rs1("ykft") = tykft rs1("bottomxx") = tbottom rs1("meta_des") = tm_des rs1("wyqm") = tqm rs1("iszc") = tiszc rs1("gpath") = tgpath rs1.update rs1.close end if ''call close_conn()%> <%end if exec="select * from yrwl_tb_setup" set rs=server.createobject("adodb.recordset") rs.open exec,CONN,3,1 if not rs.eof then jbm = rs("bm") bottom = rs("bottomxx") css = rs("css") tp = rs("tp") siteurl = rs("siteurl") yxft = rs("ykft") mc = rs("mc") meta_key = rs("meta_key") meta_des = rs("meta_des") fj = rs("fjkt") fjxs = rs("isfjxs") Gpath = rs("Gpath") iszc = rs("iszc") wyqm = rs("wyqm") fj = split(fj & "$$$$$$$$$$$","$$") fjkt = fj(0) upload = fj(1) open = fj(2) qqid = fj(3) end if%>
公司名称： * 显示在@copy的位置
系统名称： * 显示在主页title的位置
发贴方式： * 控制用户前台发贴权限
Logo图片： <%if tp <> "" then%> * 像素最好为 260 * 70 px
<%end if%>
CSS ： 　在线编辑 　　 打开取色器
公用签名：
QQAPPID： 想要Q登陆必须填写哦，马上申请QQappid
上传允许： * 允许上传的附件格式
附件大小： * 允许上传的附件大小 如 200KB 就写 200
附件上传： * 前台上传附件总权限
会员审核：
打开方式： * 前台点击话题后打开窗口方式
附件显示： * 前台话题页面展示附件方式
允许注册： * 是否允许网友注册成为会员
关键字：
* 网站首页Keywords内容
站点描述：
* 网站首页description内容
底部信息：
* 网页左下方 @copy 处信息
<%call close_conn()%>