系统设置

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '**************************************************************** '** 版权所有：烈火工作室演示网站http://www.strongfire.cn ** '** QQ:839225572 邮箱：strongfire2008@163.com ** '** 非正版用户不得擅自非法修改用于商业用途！查出必究。 ** '**************************************************************** %> <% action =trim(Request("action")) Const ForReading =1, ForWriting = 2 if action="ok" then website = trim(Request.form("website")) weburl = trim(Request.form("weburl")) 'wDescription = trim(Request.form("wDescription")) beianhao = trim(Request.form("beianhao")) rownum = trim(Request.form("rownum")) zinum = trim(Request.form("zinum")) tjrownum = trim(Request.form("tjrownum")) tjzinum = trim(Request.form("tjzinum")) newsperpage = trim(Request.form("newsperpage")) voteincdir = server.mappath("config.asp") set fs = CreateObject("Scripting.FileSystemObject") set ts = fs.OpenTextFile(voteincdir,ForWriting, True) ts.Write "" ts.Write "<" ts.Write "%"& vbCrLf ts.Write " website= "&""""&website&""""& vbCrLf ts.Write " weburl= "&""""&weburl&""""& vbCrLf 'ts.Write " wKeywords= "&""""&wKeywords&""""& vbCrLf 'ts.Write " wDescription= "&""""&wDescription&""""& vbCrLf ts.Write " beianhao= "&""""&beianhao&""""& vbCrLf ts.Write " rownum="&rownum& vbCrLf ts.Write " zinum="&zinum& vbCrLf ts.Write " tjrownum="&tjrownum& vbCrLf ts.Write " tjzinum="&tjzinum& vbCrLf ts.Write " newsperpage="&newsperpage& vbCrLf ts.Write "%" ts.Write ">" ts.close response.write "" end if %> 系统设置

系统设置
本站站名：
本站网址：例（http://www.strongfire.cn）
备案号：
列表页所显示的条数：
分类信息生成显示条数：
分类信息标题显示的字数：超出时会以...结束
推荐信息、热门信息、最新信息显示条数
推荐信息、热门信息、最新信息标题显示的字数：超出时会以...结束