1.请高手帮忙！分源分网！码积码！站源用ASP如何生成excel报表 本人原意贡献所有积分谢谢！分源分网！码积码！站源iWebDir网站目录源码
2.请问哈，分源分网那能找到个简单的码积码整站ASP源代码，有基本的站源功能就可以，后台好操作，分源分网完整
3.asp网站源码谁可以给我介绍个啊！码积码！站源！分源分网
4.ç¨DWåä¸ä¸ªä¼åç»å½ç§¯åèªå¨ç´¯å çasp代ç
请高手帮忙！码积码！站源！用ASP如何生成excel报表 本人原意贡献所有积分谢谢！网盘小站源码！！
生成报表是做系统经常遇到的事,一些企业或者单位往往要求EXCEL格式的报表!
第一种方式
程序代码
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = "c:\online.xls"
'-创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
rs.Open sql,conn
if rs.EOF and rs.BOF then
else
dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine= strLine & x.name & chr(9)
Next
'--将表的列名先写入EXCEL
myfile.writeline strLine
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
strLine= strLine & x.value & chr(9)
next
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.MoveNext
loop
end if
Set fs=Nothing
这方法的好处是不管有多少条记录 速度上是没问题 但是有一个很严重的缺点 就是生成的EXCEL文件的格式不能得到很好的控制 例如 单元格的格式不能改变等
第二种方法 用EXCEL组件+EXCEL模板
原理是打开一个存在的EXCEL模板文件 然后写入数据后在另存为所要的报表文件
优点:格式能很好的控制
缺点:速度上很慢 (因为控件接口很费资源)
看了微软的说明又想到了用数组做中转的方法 只要打开一个接口写入所有数据,于是问题得到了解决,可是新的问题出来了,万或者更高的记录时 数组就的空间分配就成了问题了.
工夫不负有心人 ,经过几天努力 终于完美解决
就是记录多时分批写入~~~~~~~~~
程序代码
sub writetoarr(lines,begin_rs,begin_exl)
'==============================================================================
'过程writetoarr(lines,begin_rs,begin_exl)写入EXCEL
'lines:要写入的记录条数
'begin_rs：从第几条记录开始
'begin_exl：要写入的EXCEL开始位置
'==============================================================================
redim temparr(lines-1,)
'--将表的列名存放到数组
'--将表的数据存放到数组
ii=1
For i = begin_rs To begin_rs+lines-1
j=0
'response.write ii&"<br>"
For each x in rs.fields
temparr(ii-1,j)=x.value
j=j+1
Next
ii=ii+1
rs.movenext
Next
objExcelSheet.Range("A"&begin_exl).Resize(lines, ).Value = temparr
redim temparr(0,0)
response.write "从A"&begin_exl&"开始写到A"&begin_exl+lines&"<br>"
response.write "从第"&begin_rs&"条到"&begin_rs+lines&"条记录<br>"
response.write "共写入"&lines&"行<br>"
response.write "-------------------------<br>"
end sub
maxk=rs.recordcount
beginrs=1 '从第几条记录开始，一般是1
beginexl=2 '从excel的第几行开始写，一般是2
liness= '每次操作多少条记录，不建议超过万
do while maxk>0
if maxk>liness then
call writetoarr(liness,beginrs,beginexl)
beginrs=beginrs+liness
beginexl=beginexl+liness
maxk=maxk-liness
else
call writetoarr(maxk,beginrs,beginexl)
exit do
end if
loop
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = "c:\online.xls"
'-创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
rs.Open sql,conn
if rs.EOF and rs.BOF then
else
dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine= strLine & x.name & chr(9)
Next
'--将表的列名先写入EXCEL
myfile.writeline strLine
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
strLine= strLine & x.value & chr(9)
next
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.MoveNext
loop
end if
Set fs=Nothing
这方法的好处是不管有多少条记录 速度上是没问题 但是有一个很严重的缺点 就是生成的EXCEL文件的格式不能得到很好的控制 例如 单元格的格式不能改变等
第二种方法 用EXCEL组件+EXCEL模板
原理是打开一个存在的EXCEL模板文件 然后写入数据后在另存为所要的报表文件
优点:格式能很好的控制
缺点:速度上很慢 (因为控件接口很费资源)
看了微软的说明又想到了用数组做中转的方法 只要打开一个接口写入所有数据,于是问题得到了解决,可是新的问题出来了,万或者更高的记录时 数组就的空间分配就成了问题了.
工夫不负有心人 ,经过几天努力 终于完美解决
就是记录多时分批写入~~~~~~~~~
程序代码
sub writetoarr(lines,begin_rs,begin_exl)
'==============================================================================
'过程writetoarr(lines,begin_rs,begin_exl)写入EXCEL
'lines:要写入的记录条数
'begin_rs：从第几条记录开始
'begin_exl：要写入的EXCEL开始位置
'==============================================================================
redim temparr(lines-1,)
'--将表的列名存放到数组
'--将表的数据存放到数组
ii=1
For i = begin_rs To begin_rs+lines-1
j=0
'response.write ii&"<br>"
For each x in rs.fields
temparr(ii-1,j)=x.value
j=j+1
Next
ii=ii+1
rs.movenext
Next
objExcelSheet.Range("A"&begin_exl).Resize(lines, ).Value = temparr
redim temparr(0,0)
response.write "从A"&begin_exl&"开始写到A"&begin_exl+lines&"<br>"
response.write "从第"&begin_rs&"条到"&begin_rs+lines&"条记录<br>"
response.write "共写入"&lines&"行<br>"
response.write "-------------------------<br>"
end sub
maxk=rs.recordcount
beginrs=1 '从第几条记录开始，一般是1
beginexl=2 '从excel的第几行开始写，一般是溯源码单包2
liness= '每次操作多少条记录，不建议超过万
do while maxk>0
if maxk>liness then
call writetoarr(liness,beginrs,beginexl)
beginrs=beginrs+liness
beginexl=beginexl+liness
maxk=maxk-liness
else
call writetoarr(maxk,beginrs,beginexl)
exit do
end if
loop
请问哈，那能找到个简单的整站ASP源代码，有基本的功能就可以，后台好操作，完整
第一个：
<tr>
<td colspan="2" align="left" valign="top" class="c">留言内容:<p><%=rs("connet")%></td>
</tr>
<tr>
<td colspan="2" align="left" valign="top" class="c" height="">
..............<a href="del.asp?id=<%=rs("id")%>" style="text-decoration: none"><font color="#">删除</font></a>.................<a href="reg.asp" style="text-decoration: none"><font color="#">我要留言</font></a>.........</td>
</tr>
把上面的改成
<tr>
<td colspan="3" align="left" valign="top" class="c">留言内容:<p><%=rs("connet")%></td>
</tr>
<tr>
<td colspan="3" align="left" valign="top" class="c" height="">
..............<a href="del.asp?id=<%=rs("id")%>" style="text-decoration: none"><font color="#">删除</font></a>.................<a href="reg.asp" style="text-decoration: none"><font color="#">我要留言</font></a>.........</td>
</tr>
第二个：
<!--header begin-->
<%
response.write "<div id=mainbox>"&_
"<table border=0 width=% cellpadding=4 style=border-collapse: collapse class='top_table'>"&_
"<form name=form action=Product_ListSearch.asp method=get>"&_
" <tr><td colspan=2 height=5></td></tr>"&_
" <tr>"&_
" <td><a href=index.asp title=返回首页><img src=uploadpic/></a></td>"&_
" <td align=right>"&_
" <table><tr><td class=cartimg></td><td><a href=Cart_List.asp>查看我的购物车</a>(<font color=#FF>"
if session("y")="" then response.write "0" else response.write session("y")
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
response.write "<td><a href=index.asp title=返回首页><object classid='clsid:DCDB6E-AE6D-cf-B8-' codebase='/pub/shockwave/cabs/flash/swflash.cab#version=6,0,,0' width='' height=''>"&_
"<param name='movie' value='logo.swf'>"&_
"<param name='quality' value='high'>"&_
"<embed src='logo.swf' width='' height='' quality='high' type='application/x-shockwave-flash' width='' height=''></embed></object></a></td>"
%>
希望我的回答对你有所帮助。
asp网站源码谁可以给我介绍个啊！！！wns仓储系统源码
推荐使用改装的CMS系统Z-Blog。在搜索CMS模板时，Z-Blog通常会出现在结果中，因为它是一款基于ASP语言开发的CMS系统。
Z-Blog功能强大，具备多语言支持、SEO优化、SEO关键词管理、客服网站源码查询RSS订阅、文章分类、文章标签、文章评论、文章打赏、在线广告、会员系统、积分系统、在线投票、在线调查、在线问卷等功能，满足网站建设和运营的需求。
它支持多种主题设计和自定义模板，允许用户根据自己的需求进行个性化定制。Z-Blog具有简洁易用的后台操作界面，方便用户进行网站管理。其模块化设计使得功能扩展非常方便，用户可以根据自己的需求选择安装相关插件。
在ASP网站源码方面，Z-Blog是一个不错的选择。它提供了源码下载服务，用户可以在官方网站或第三方平台上获取源码，进行网站的建设和运营。
使用Z-Blog搭建ASP网站，用户不仅可以享受到强大的功能支持，还能通过丰富的主题和插件库满足个性化需求，提升网站的用户体验。同时，Z-Blog的社区活跃度高，用户可以随时在官方论坛或第三方社区中寻求帮助、分享经验，共同推动网站的发展。
总之，Z-Blog是一款功能全面、易于使用的ASP网站源码CMS系统。它为开发者和网站运营者提供了一个高效、灵活的平台，帮助他们在ASP环境中轻松搭建并管理网站。
ç¨DWåä¸ä¸ªä¼åç»å½ç§¯åèªå¨ç´¯å çasp代ç
1ï¼ä¸ç§æ¹æ³æ¯ä½¿ç¨SESSIONæ£æµï¼å°ç¨æ·ç»å½ä¿¡æ¯è®°å½å°COOKIEä¸ï¼éè¿è¯»åæ¯è¾æ¥å åï¼
2ï¼å¦ä¸ç§æè§å¾æ´ç®åçæ¹æ³å°±æ¯éè¿æ¥ææ¯è¾æ¥å åï¼ä½ åæ£æ¯ä¸ç»å½å°±å åçãé£å¯ä»¥å°ç»å½çä¿¡æ¯åå ¥å°æ°æ®åºï¼å¦å¤å°å åçè®°å½ä¹åå ¥å°æ°æ®åºä¸ï¼æ¯æ¬¡å åå读åä¸æ°æ®åºå¤æä¸å½å¤©æ没æå åè®°å½ï¼æçè¯å°±ä¸å ï¼å¦åå°±å 5åã
