📄 output.inc
字号:
' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
if Not rs.EOF then
rs.move (iCurrentPage - 1) * iRecordsPerPage
end if
while not rs.EOF and iCounter <= iRecordsPerPage
rowCount = rowCount + 1
sGoodsID = rs("id")
sGoodsName = rs("goods_name")
sModel = rs("model")
sUnit = rs("unit")
sQuantity = rs("quantity")
sGoodsType = rs("type_desc")
sInputMethod = rs("input_method")
sCurrentStatus = rs("current_status")
sDepotID = rs("depot_name")
select case sInputMethod
case "1"
sInputMethod = "采购入库"
case "2"
sInputMethod = "移交入库"
case "3"
sInputMethod = "归还入库"
end select
select case sCurrentStatus
case "1"
sCurrentStatus = "在库中"
case "2"
sCurrentStatus = "已借出"
case "3"
sCurrentStatus = "已报废"
case "4"
sCurrentStatus = "已退货"
case "5"
sCurrentStatus = "已领用"
case "6"
sCurrentStatus = "已移出"
case "7"
sCurrentStatus = "待选择"
end select
sTemp = sTemp & "<tr bgcolor=white height=20>" & _
"<td align=center title=""" & sGoodsName & """ nowrap> <img src=""../images/bg/ar-g.gif"" width=8 height=8> " & sGoodsName & " </td>" & _
"<td align=center><input type=""checkbox"" id=choose2_" & rowCount & " name=""choose2"" value=""" & rowCount & """ style=""border-width:0"">" & _
"<input type=""hidden"" name=""goods_id2_" & rowCount & """ value=""" & sGoodsID & """></td>" & _
"<td align=center title=""" & sModel & """ nowrap> " & sModel & " </td>" & _
"<td align=center title=""" & sUnit & """ nowrap> " & sUnit & " </td>" & _
"<td align=center title=""" & sQuantity & """ nowrap> " & sQuantity & " </td>" & _
"<td align=center title=""" & sGoodsType & """ nowrap> " & sGoodsType & " </td>" & _
"<td align=center title=""" & sInputMethod & """ nowrap> " & sInputMethod & " </td>" & _
"<td align=center title=""" & sCurrentStatus & """ nowrap> " & sCurrentStatus & " </td>" & _
"<td align=center title=""" & sDepotID & """ nowrap> " & sDepotID & " </td>" & _
"</tr>"
iCounter = iCounter + 1
rs.movenext
wend
'response.write sTemp : response.end
rs.Close()
set rs = nothing
' 首页、前页、后页、尾页等分页信息
sTemp = sTemp & "<tr bgcolor=white height=20><td colspan=" & iCols & " align=right>" & _
Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
" </td></tr>"
TableRecords2 = _
"<table cellspacing=1 cellpadding=0 width=""100%"" align=center bgcolor=silver style=""table-layout:fixed"">" & vbLF & _
"<tr style=""display:none"">" & vbLF & _
" <td width=75>这一行仅用于控制表格的宽度</td>" & vbLF & _
" <td width=35></td>" & vbLF & _
" <td width=75></td>" & vbLF & _
" <td width=40></td>" & vbLF & _
" <td width=75></td>" & vbLF & _
" <td width=75></td>" & vbLF & _
" <td width=75></td>" & vbLF & _
" <td width=75></td>" & vbLF & _
" <td width=75></td></tr>" & vbLF & _
"<tr height=20>" & _
"<td colspan=" & iCols & " bgcolor=""#0040a0"" align=center style=""color:white;font-weight:600"">准备出库物品</td></tr>" & _
sTemp & vbLF & _
"<input type=""hidden"" name=""row"" value=""" & rowCount & """>" & _
"</table>" & vbLF & _
ActionLink2 & vbLF
End Function
'*******************************************************************************
Function ActionLink1
ActionLink1 = _
"<img height=2>" & _
"<table cellspacing=0 cellpadding=1 width=""100%"" align=center bgcolor=""#0099cc"" style=""color:white"">" & vbLF & _
"<tr height=20>" & vbLF & _
" <td align=right" & _
" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""CheckAllRows1();"">全部选中</td>" & vbLF & _
" <td align=center" & _
" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnInput_OnClick();"">添加</td>" & vbLF & _
"</tr>" & vbLF & _
"</table>" & vbLF
End Function
'*******************************************************************************
Function ActionLink2
ActionLink2 = _
"<img height=2>" & _
"<table cellspacing=0 cellpadding=1 width=""100%"" align=center bgcolor=""#0099cc"" style=""color:white"">" & vbLF & _
"<tr height=20>" & vbLF & _
" <td align=right" & _
" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""CheckAllRows2();"">全部选中</td>" & vbLF & _
" <td align=center" & _
" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnOutput_OnClick();"">剔除</td>" & vbLF & _
"</tr>" & vbLF & _
"</table>" & vbLF
End Function
'*******************************************************************************
function TableAction()
TableAction = _
"<table width=""100%"" cellspacing=0 cellpadding=5 height=30 align=center>" & vbLF & _
"<tr height=60>" & _
" <td width=100 align=right>出库方式：</td>" & _
" <td width=100 align=left><select name=""output_method"" style=""width:150"">" & _
" <option value=""4"">领用</option>" & _
" <option value=""5"">退货</option>" & _
" <option value=""6"">报废</option>" & _
" <option value=""7"">移交</option>" & _
" <option value=""8"">借用</option>" & _
" </td>" & _
" <td width=400 align=center>" & _
" <a title=""选择出库物品和出库方式，点击按钮进入各出库页面"" style=""cursor:hand"" onclick=""btnNext_OnClick();""><img border=0 src=""../images/arrowr.gif""> 进入所选物品出库页面</a>" & vbLF & _
" " & _
" <a title=""放弃出库"" style=""cursor:hand"" onclick=""btnCancel_OnClick();""><img border=0 src=""../images/delete.gif""> 放弃出库</a>" & vbLF & _
" </td>" & vbLF & _
" </tr>" & vbLF & _
"</form></table>"
end function
'*******************************************************************************
sub Input(choose1)
dim arrayInput, sGoodsID, j
dim sSQL1
' response.write choose & "<br>"
' response.end
arrayInput = split(choose1, ",")
' response.Write arrayInput(0) & "<br>"
' response.end
for j = 0 to UBound(arrayInput) step 1
sGoodsID = GetParam("goods_id1_" & Trim(arrayInput(j)))
sSQL1 = "update t_goods set current_status = 7 where goods_id = " & sGoodsID
call Openrs(conn, sSQL1)
next
end sub
'*******************************************************************************
sub Output(choose2)
dim arrayOutput, sGoodsID, j
dim sSQL2
arrayOutput = split(choose2, ",")
for j = 0 to UBound(arrayOutput) step 1
sGoodsID = GetParam("goods_id2_" & Trim(arrayOutput(j)))
sSQL2 = "update t_goods set current_status = 1 where goods_id = " & sGoodsID
' response.Write sSQL2 & "<br>"
call Openrs(conn, sSQL2)
next
end sub
'*******************************************************************************
sub NextStep()
dim sOutputMethod : sOutputMethod = GetParam("output_method")
dim sql
sql = "update t_goods set current_status = 1 where current_status = 7"
select case sOutputMethod
case "4" ''领用
Response.Redirect "item_output.asp"
case "5" ''退货
Response.Redirect "return_output.asp"
case "6" ''报废
Response.Redirect "discard_output.asp"
case "7" ''移交
call Openrs(conn,sql)
Response.Redirect "handover_output.asp"
case "8" ''借用
Response.Redirect "borrow_output.asp"
end select
end sub
'*******************************************************************************
sub Cancel()
dim sql
sql = "update t_goods set current_status = 1 where current_status = 7"
call Openrs(conn,sql)
response.redirect "goods_query.asp"
response.end
end sub
'*******************************************************************************
Function TableLink()
TableLink = _
"<table width=""100%"" cellspacing=0 cellpadding=0 border=0 align=center>" & vbLF & _
"<tr height=10>" & vbLF & _
" <td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & vbLF & _
"</tr>" & vbLF & _
"<tr>" & vbLF & _
" <td width=600> " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/goods_query.asp"">库存查询</a>" & vbLF & _
" " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/goods_input.asp"">物品入库</a>" & vbLF & _
" " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/goods_move.asp"">物品移动</a>" & vbLF &_
" " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/sheet_mgr.asp"">出入库单管理</a></td>" & vbLF & _
"</tr>" & vbLF & _
"</table>" & vbLF
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -