📄 copystep1.asp
字号:
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<link href="../include/main.css" rel="stylesheet" type="text/css">
<script src="../include/function.js" type="text/javascript"></script>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function LocalDC()
{
if(frmData.CopyRange[1].status==true)
if(frmData.CurSelectedRows.value=="")
{
alert("当前页中您未选定任何记录，请选择后再复制。")
return false;
}
return true;
}
function Next()
{
if(LocalDC()==true)
{
DisableButton();
document.frmData.target ="_self";
document.frmData.action="copystep2.asp";
document.frmData.submit();
}
}
function Cancel()
{
var discard;
discard=confirm("放弃复制吗？");
if(discard==true)
{
parent.window.returnValue = "";
parent.window.close();
}
}
function DisableButton()
{
frmData.btnCancel.disabled =true;
frmData.btnPre.disabled =true;
frmData.btnNext.disabled =true;
}
function Init()
{
}
//-->
</script>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Sheet")
dim CopyRange,CopyTo,CurSelectedRows,PageRows,TotalCount
dim RangeChk(3)
dim SheetID
SheetID=Request.Cookies("Temp")("SheetID")
dim Exist
Exist=WExcel.SheetExist(cint(UserID),cint(SheetID))
CheckErr
if Exist=false then
Response.Redirect "/hcgis/notfound.asp?Name=数据表&Depth=2"
end if
CopyRange=Request.Cookies("ImExport")("CopyRange")
CopyTo=Request.Cookies("ImExport")(SheetID & "CopyTo")
CurSelectedRows=Request.Cookies("ImExport")("CurSelectedRows")
PageRows=Request.Cookies("ImExport")("PageRows")
TotalCount=Request.Cookies("ImExport")("TotalCount")
dim QueryString,Querys
if Request.QueryString("Rows")<>"" then
'从数据表界面来，需要读取保存行选择
QueryString=Request.QueryString("Rows")
Querys=split(QueryString,"|")
CurSelectedRows=Querys(0)
PageRows=Querys(1)
TotalCount=Querys(2)
Response.Cookies("ImExport")("CurSelectedRows")=CurSelectedRows
Response.Cookies("ImExport")("PageRows")=PageRows
Response.Cookies("ImExport")("TotalCount")=TotalCount
Response.Cookies("ImExport").Expires = CookieLife
end if
RangeChk(0)=""
RangeChk(1)=""
RangeChk(2)=""
if CopyRange="" then
CopyRange=1 '缺省选中第2个
end if
if CopyRange>2 or CopyRange<0 then
CopyRange=0
end if
RangeChk(CopyRange)=" checked "
if CopyTo="" then
CopyTo=SheetID '缺省在本表内COPY
end if
dim ToSheetOption
ToSheetOption=WExcel.GetCopyToSheet(cint(UserID),cint(SheetID),cint(CopyTo))
CheckErr
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY LANGUAGE=javascript onload="return Init()">
<form METHOD="post" name="frmData">
<table width="60%" border=0 align=center cellPadding=0 cellSpacing=1>
<tr height=35>
<td colspan=2>
<b>第1步：选择复制范围、复制到何处</b>
</td>
</tr>
<tr height=45>
<td colspan=2>
可复制现有记录，既可本表复制，也可跨数据表复制。
</td>
</tr>
<tr height=70 valign=center>
<td bgcolor="#e0e0e0" valign=center>
<p align="left">复制范围</p>
</td>
<td>
<table width="80%" border=0 cellPadding=0 cellSpacing=0>
<tr height=15>
</tr>
<tr>
<td>
<p align=left>
<INPUT id=CopyRange name=CopyRange value='0' <%=RangeChk(0)%> type =radio>当前页所有记录
</p>
</td>
</tr>
<tr>
<td>
<p align=left>
<INPUT id=CopyRange name=CopyRange value='1' <%=RangeChk(1)%> type =radio>当前页中选定的记录
</p>
</td>
</tr>
<tr>
<td>
<p align=left>
<INPUT id=CopyRange name=CopyRange value='2' <%=RangeChk(2)%> type=radio>所有页所有记录
</p>
</td>
</tr>
</table>
</td>
</tr>
<tr height=40 valign=center>
<td bgcolor="#e0e0e0" width="30%" valign=center>
<p align="left">复制到</p>
</td>
<td width="70%">
<table width="80%" border=0 cellPadding=0 cellSpacing=0>
<tr height=15>
</tr>
<tr>
<td>
<p align=left>
<select name=CopyTo id=CopyTo style='width:140px'>
<%=ToSheetOption%>
</select>
</p>
</td>
</tr>
</table>
</td>
</tr>
<tr height=120 valign=bottom>
<td colspan=2>
<table align=center width="84%">
<tr>
<td width="33%"><input id="btnCancel" type="button" value="取消" name="btnCancel" style="CURSOR: hand; HEIGHT: 24px; WIDTH: 65px" LANGUAGE="javascript" onclick="return Cancel()"></td>
<td width="33%"><input id="btnPre" type="button" disabled value="上一步" name="btnPre" style="CURSOR: hand; HEIGHT: 24px; WIDTH: 65px" LANGUAGE="javascript" onclick="return Pre()"></td>
<td width="33%"><input id="btnNext" type="button" value="下一步" name="btnNext" style="CURSOR: hand; HEIGHT: 24px; WIDTH: 65px" LANGUAGE="javascript" onclick="return Next()"></td>
</tr>
</table>
</td>
</tr>
</table>
<input TYPE="hidden" NAME="CurSelectedRows" value="<%=CurSelectedRows%>">
<input TYPE="hidden" NAME="PageRows" value="<%=PageRows%>">
<input TYPE="hidden" NAME="TotalCount" value="<%=TotalCount%>">
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -