📄 batchstep1.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.FieldID.selectedIndex==0)
{
alert("请选择修改字段。")
return false;
}
if(frmData.ModifyRange[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="batchstep2.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 Close()
{
parent.window.close();
}
//-->
</script>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Sheet")
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
dim FieldID,ModifyRange,CurSelectedRows,PageRows
dim Querys
if Request.QueryString("Rows")<>"" then
'说明从父页面来的
FieldID=0
ModifyRange=1 '缺省未修改页面中选定的记录
Querys=split(Request.QueryString("Rows"),"|")
CurSelectedRows=Querys(0)
PageRows=Querys(1)
Response.Cookies("Temp")("optModify")=1
Response.Cookies("Temp")("ValueStr")=""
Response.Cookies("Temp")("FieldByStr")=0
Response.Cookies("Temp")("FormulaStr")=""
else
'说明从后面的步骤回来的
FieldID=Request.Cookies("Temp")("BatchFieldID")
ModifyRange=Request.Cookies("Temp")("ModifyRange")
CurSelectedRows=Request.Cookies("Temp")("CurSelectedRows")
PageRows=Request.Cookies("Temp")("PageRows")
end if
dim RangeChk(3)
RangeChk(0)=""
RangeChk(1)=""
RangeChk(2)=""
RangeChk(ModifyRange)=" checked "
dim ModifyFieldOption
ModifyFieldOption=WExcel.GetModifyFieldOption(cint(UserID),cint(SheetID),cint(FieldID))
CheckErr
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<%if ModifyFieldOption="" then%>
<BODY>
<table align=center width="70%" border=0 CELLSPACING="1" CELLPADDING="0">
<tr height=200 valign=center>
<td>
系统未授予您修改权限。
</td>
</tr>
<tr>
<td>
<input id="btnClose" type="button" value="关闭" name="btnClose" style="CURSOR: hand; HEIGHT: 24px; WIDTH: 65px" LANGUAGE="javascript" onclick="return Close()">
</td>
</tr>
</table>
</BODY>
<%else%>
<BODY>
<form METHOD="post" name="frmData">
<table width="70%" align=center border=0 cellPadding=0 cellSpacing=1>
<tr height=35>
<td colspan=2>
<b>第1步：选择修改字段、修改范围</b>
</td>
</tr>
<tr height=45>
<td colspan=2>
可一次性修改一批数据，对调整成批信息非常方便。
</td>
</tr>
<tr>
<td bgcolor="#e0e0e0" width="30%">
<p align="left">修改字段</p>
</td>
<td width="70%">
<p align="left">
<select name="FieldID" style="width:220px;">
<%=ModifyFieldOption%>
</select>
</p>
</td>
</tr>
<tr>
<td bgcolor="#e0e0e0" width="30%">
<p align="left">修改范围</p>
</td>
<td width="70%">
<table width="100%" border=0 cellPadding=0 cellSpacing=0>
<tr height=15>
</tr>
<tr>
<td>
<p align=left>
<INPUT id=ModifyRange name=ModifyRange value='0' <%=RangeChk(0)%> type =radio>当前页所有记录
</p>
</td>
</tr>
<tr>
<td>
<p align=left>
<INPUT id=ModifyRange name=ModifyRange value='1' <%=RangeChk(1)%> type =radio>当前页中选定的记录
</p>
</td>
</tr>
<tr>
<td>
<p align=left>
<INPUT id=ModifyRange name=ModifyRange value='2' <%=RangeChk(2)%> type=radio>所有页所有记录
</p>
</td>
</tr>
</table>
</td>
</tr>
<tr height=96 valign=bottom>
<td colspan=2>
<p align="left">说明：修改记录时还将检查您的修改权限，只有权限允许才真正修改。</p>
</td>
</tr>
<tr height=40 valign=bottom>
<td colspan=2>
<table align=center width="71%">
<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%>">
</form>
</BODY>
<%end if%>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -