}
</style>
<script Language="JavaScript">
var x = 0;
var x_offset =-5;
var y = 0;
var y_offset = -10;
var ptcX=0;
var ptcY=0;
var ptcW=0;
var ptcH=0;
var onshow="m3";
document.onmousedown = get_mouse;
function get_mouse(e)
{
x = event.clientX+document.body.scrollLeft;
y = event.clientY+document.body.scrollTop;
x += x_offset;
y += y_offset;
if (onshow !="")
{ obj=document.all[onshow].style;
if (x<ptcX || x>ptcX+ptcW || y<ptcY || y>ptcY+ptcH)
{
obj.visibility="hidden";
}
}
}
function moveit(name,t,tow,toh,too,fx)
{
var obj=document.all[name].style
if (obj.visibility=="hidden")obj.visibility="visible"
if (fx==1)
{document.all[name].style.clip="rect(0px,"+tow*t/too+"px,"+toh*t/too+"px,0px)"}
else
{
var tttw= tow*t/too
var ttth= toh*t/too
document.all[name].style.clip="rect("+tttw+"px,"+tow+"px,"+toh+"px,"+ttth+"px)"
}
t++
if(t<=too)
{
ls="moveit('m1',"+t+","+tow+","+toh+","+too+","+fx+")"
setTimeout(ls,1)
}
}
function gotopage()
{
document.frmList1.selzh.value=''
document.frmList1.curpage.value=''
document.frmList1.act.value="";
document.frmList1.submit()
}
function hideit(name)
{
document.all[name].style.visibility="hidden"
If Request.Form("act") = "del" then
Err.Clear
ls="delete from tb111 where fb11zh="&Request.Form("selzh")
con.execute ls,,adCmdText
if Err.number<>0 then
RESPONSE.write "<input type='hidden' name='curpage'>"
response.write ls&"<p>"
response.write "err="& Err.Description&"<p> "
Response.Write("<a href=""javascript:the_url("&CInt(curpage)&",'')"">返回</a>")
end if
end if
if Request.Form("act") = "promodi" then
err.Clear
Rs.Open "select fb11dwm from tb11 where fb11zh="&Request.Form("selzh"),Con
%>
<input type=text name="fb11dwm" size=60 value='<%response.write RS("fb11dwm")%>'><p>
<input type='hidden' name='curpage' value=<%response.write curpage%>>
<a href="javascript:the_url(<%response.write curpage%>,'modi')"">修改</a>
<%
Response.Write("<a href=""javascript:the_url("&CInt(curpage)&",'')"">返回</a>")
end if
if Request.Form("act") = "prokhzl" then
err.Clear
Rs.Open "select fb11khzl from tb11 where fb11zh="&Request.Form("selzh"),Con
nFieldSize = RS("fb11khzl").ActualSize
bytes = rs("fb11kjhzl").GetChunk(nFieldSize)
%>
<input type='hidden' id=ykhzl value='<%response.write bytes%>'>
<textarea name="fb11khzl" DATASRC=ykhzl ROWS=10 ></textarea><p>
<input type='hidden' name='curpage' value=<%response.write curpage%>>
<a href="javascript:the_url(<%response.write curpage%>,'khzl')"">修改</a>
<%
Response.Write("<a href=""javascript:the_url("&CInt(curpage)&",'')"">返回</a>")
end if
if Request.Form("act") = "chart" then
%>
<input type='hidden' name='curpage' value=<%response.write curpage%>>
<a href="javascript:img_style(<%response.write Request.Form("selzh")%>,1)">柱图</a>
<a href="javascript:img_style(<%response.write Request.Form("selzh")%>,5)">线图</a>
<a href="javascript:img_style(<%response.write Request.Form("selzh")%>,3)">饼图</a> <br>
<img id="theimg" src="Binwchrt.asp?zh=<%response.write Request.Form("selzh")%>&i_t=5"
style="filter:revealTrans(Duration=0.5,Transition=12)"><br>
<%
Response.Write("<a href=""javascript:the_url("&CInt(curpage)&",'')"">返回</a>")
end if
if Request.Form("act") = "modi" then
Err.Clear
ls="update tb11 set fb11dwm='"&Request.Form("fb11dwm")&"' where fb11zh='"&Request.Form("selzh")&"'"
con.execute ls,,adCmdText
if Err.number<>0 then
%> <input type='hidden' name='curpage' value=<%response.write curpage%>>
<% response.write ls&"<p>"
response.write "err="& Err.Description&"<p> "
Response.Write("<a href=""javascript:the_url("&CInt(curpage)&",'')"">返回</a>")
end if
end if
if Request.Form("act") = "khzl" then
Err.Clear
ls="select * tb11 where fb11zh='"&Request.Form("selzh")&"'"
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.open ls,con
rs.fb11khzl.AppendChunk request.form("fb11khzl")
rs.update()
if Err.number<>0 then
%> <input type='hidden' name='curpage' value=<%response.write curpage%>>
<% response.write ls&"<p>"
response.write "err="& Err.Description&"<p> "
Response.Write("<a href=""javascript:the_url("&CInt(curpage)&",'')"">返回</a>")
end if
end if
if Err.number=0 and Request.Form("act") <> "promodi" and Request.Form("act") <> "prokhzl" and Request.Form("act") <> "chart" then
Set RS1=Server.CreateObject("ADODB.Recordset")
rs.maxrecords=NumPerPage*CurPage
rs.Cursortype= adOpenStatic
rs.CursorLocation = adUseClient
RS1.open "select count(fb11zh) cc from tb11",con
Rs.Open "select fb11zh,fb11dwm from tb11 order by fb11zh",Con
rs.PageSize = NumPerPage
TotalPages =Rs1("cc")
if(cInt(TotalPages) mod NumPerPage)=0 then
TotalPages= ( cInt(TotalPages) - (cInt(TotalPages) mod NumPerPage))/NumPerPage
else
TotalPages= ( cInt(TotalPages) - (cInt(TotalPages) mod NumPerPage))/NumPerPage+1
end if
rs.AbsolutePage = cint(CurPage)
%>
<input type="text" name="curpage" size="5" value="<%response.write curpage%>"> <input type="button" value=" goto "
language="javascript" onclick="gotopage()" name="button1"> <br>
</form>
<form name="mytable" >
<table border="1" width="100%" bgcolor="#FDDBC4" style="font-size:13px">
<tr>
<th width="35%">帐号</th>
<th width="55%">名称</th>
</tr>
<%
Count = 0
Do While Not rs.EOF And Count < NumPerPage %>
<tr>
<td width="15%"><a href='javascript:showmenu(<%response.write RS("fb11zh")%>)'><%response.write RS("fb11zh")%></a></td>
<td width="30%"><%Response.write RS("fb11dwm")%></td>
</tr>
<% Count = Count + 1
rs.MoveNext
Loop
%>
</table>
</form>
<%
Response.Write("第 " & CurPage & " 页,共 " & TotalPages & "页<br>")
if CurPage > 1 then
Response.Write "<a href=""javascript:the_url("&CInt(curpage)-1&",'')"">前一页</a>"
End If
if CInt(CurPage) <> CInt(TotalPages) then
%>
<a href="javascript:the_url(<%Response.write CInt(curpage)+1%>,'')">后一页</a>
<% end if
%>
<form name=frmtoe method=post action="ToExcelBySrv.asp" target="_blank">
<input name=tHtml type=hidden Value="">
<input type=button value="to excel" onclick="document.frmtoe.tHtml.value=document.mytable.innerHTML;document.frmtoe.submit();">
</form>
<%end if%>
</div>
</body>
</html>