打开你的样式表stylecss，找到下面两句main_title1backgroundurlimagesmain_title1gifborder 1px solid #8cc3decolor 037fa8width766pxmargin0 autopadding3px 0clearboth mainbar1；该页面的主要功能是显示模板代码，并将特殊代码转换成相应的子程序函数至此，ASP的模板功能基本完成，剩下的就是建立一个具有编辑模板功能的程序页面，将库文件更改为所需的程序功能ASP网站导出EXCEL表格显示不正常。

lt% for i= 0 to 8% lt% for m= 1 to 3 % lta href=quot×××asp？h=lt%=i*3+m%quot lt%=i*3+m% lt%next% lt%next%；用一个for循环，将读取的内容写入表格，循环的读和写，只要你的表格有数据他就会继续循环的写下去。

如在网页中直接输出，也可以用字段名lt%=ViewStringtablename，fieldsname，recordid% 这是显示表中一个字段的值的可按指定字段名将指定表中所有值均输出下面的代码表示在只知道数据库表名的情况下输出表中所有。

asp网站表格代码大全

下面是asp中的代码 Set rs2=ServerCreateObjectADODBrecordsetsql=select * from eq where eqbumen=#39dep#39 order by eqbumen desc rs2open sql，conn，1，1 set objExcel=CreateObjectExcelApplicationobjExcel。

lta href=quotAboutusasp？Title=lt%=rslistquotTitlequot%quotlt%=rslistquotTitlequot% lt rslistmovenext if rslisteof then if rslistrecordcount mod 2=1 then responsewritequot quotexit for end ifnext。

直接把 改成 就可以了，简单吧参考资料突发奇想。

不就20人嘛，用什么数据库呢，把下面的代码放在你的主页需要的位置就可以了今日值班 function jinrizhiban 把需要排班的姓名按照排班顺序写在下面一行里面就可以 var pers=new Array#39张三#39，#39李四#39，#39同志1#39，#39。

#39aSheetName=工作簿名称 #39多个工作表 aSheetName=array工作簿名称一，工作簿名称二#39aSheetTitle=表名称 #39可以为空 多个工作表 aSheetName=array表名称一，表名称二#39aData =d #39二维数组 #39多个工作表 array。

首先连数据库，语句lt dim Con dim strConnString strConnString = quotProvider=Data Source=quot ServerMapPathquotdatamdbquotset Con=serverCreateObjectquotADODBConnectionquot。

这是我正在用的里面的关键字改成你的就可以的一定注意判断语句OK不行 的说和我联系！ #39这里加入你的ASP语句如下给你加了一些lt dim conn，rs，i，ServerPath conn=quotProvider=Data。

asp网站表格代码是什么

1asp循环一般分for循环和while循环，2想要输出几个表格直接使用中间变量赋值下，通过for循环输出，例如输出5个表格 lt%for i = 0 to 5 % lt% =i % lt% next%。

lt！#include file=quotcommaspquot lt ResponseContentType = quotapplicationvndmsexcelquotResponseAddHeader quotContentDispositionquot， quotattachment filename=导出名_quotdatequotxlsquotmytype=RequestQueryStringquotmyty。

lt dim excelstring dim excelstr dim excelstr2 dim head excelstring = quotquothead = quotSnquot quot，quot quotReasonquot quot，quot quotEmpidquot quot，quot quotEmpnamequot quot，quot quotExtquot quot，quot quotDepnamequot excel=quotcreat。