asp中生成的报表倒入到word或excel中.htm
来自「较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.」· HTM 代码 · 共 386 行 · 第 1/2 页
HTM
386 行
.Weight = -4138
<BR>
.ColorIndex = -4105 <BR>
End with <BR>
with
.Range(.Cells(1,1), .Cells(rowcount + 1,
colcount + 1)).Borders(11) '画下边界
<BR>
.LineStyle = 1 <BR>
.Weight =
2 <BR>
.ColorIndex = -4105
<BR>
End with
<BR>
with .Range(.Cells(1,1),
.Cells(rowcount + 1, colcount +
1)).Borders(12) '画下边界 <BR>
.LineStyle
= 1 <BR>
.Weight = 2
<BR>
.ColorIndex = -4105 <BR>
End with <BR>
End with <BR>
rowcount = 0 <BR>
colcount = 0
<BR> End
if <BR>end sub <BR> <BR>sub
PowerList(flag, obj) <BR>
Dim x, y, c, a,
str_key, str_sql, l_start, location,
b, b_start, str_bkey
<BR> <BR>
If flag= true then
<BR>
x =
rowcount <BR>
y
= colcount <BR>
Else <BR>
x = colcount <BR>
y = rowcount
<BR> End
if <BR>
l_start=1 <BR>
<BR>
for a = 1 to
y <BR>
location=dhCountTime(Userskey,";", a)
<BR>
str_key=Mid(Userskey, l_start, location
- l_start) <BR>
l_start=location + 1 <BR>
<BR>
str_sql="select user_sincluder from
ksweb_usertable where
user_ssyskey='<%=sAppkey%>' and user_skey='"
& str_key & "'"
<BR>
FunRunADC(str_sql) <BR>
<BR>
If
ADC.Recordset.RecordCount > 0 then
<BR>
If
len(Trim(ADC.Recordset("user_sincluder"))) > 0
then <BR>
b_start=1
<BR>
for b = 1 to
x <BR>
location=dhCountTime(UserGroupkey,";",
b) <BR>
str_bkey=Mid(UserGroupkey, b_start,
location - b_start) <BR>
b_start=location
+ 1 <BR>
If instr(1,
Trim(ADC.Recordset("user_sincluder")), str_bkey)
> 0 then <BR>
If flag=true then
<BR>
obj.ActiveWorkBook.Activesheet.Cells(b+1, a+1)="√"
<BR>
Else
<BR>
obj.ActiveWorkBook.Activesheet.Cells(a+1, b+1)="√"
<BR>
end
if <BR>
end if <BR>
next
<BR>
End if
<BR>
End if
<BR> next
<BR>End
sub<BR></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=2 cellSpacing=0 id=footer width=770>
<TBODY>
<TR>
<TD align=middle class=tdt>
<P align=center></P></TD></TR></TBODY></TABLE><BR></BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?