📄 admin_redispatch.asp

📁 关于网络渗透技术的详细讲解
💻 ASP
字号:
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
</HEAD>
<BODY>
<form name=Dis_Form>
	<center>
	维修单列表<br>
	<table name=table1 border=1>
	<tr>
	<td>
	维修单号码
	</td>
	<td>
	工程师号码
	</td>
	</tr>
	<!---#include file="conn.asp"--->
	<%'定义工程师ID集
	Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from eng"
rs.open sql,conn,1,3
dim engid()
i=1
do while not rs.eof
Redim Preserve engid(i)
engid(i)=rs("eng_id")
i=i+1
rs.movenext
loop	
j=ubound(engid)
'dim engid()
'j=rs.recordcount
'For k=1 To j 
'Redim Preserve engid(i)
'engid(k)=rs("eng_id")
'Next 
%>
	<%
	for i=1 to session("idcount")
	%>	<tr>
		<td>
		<%=session("selectid")(i)%>
　</td>
		<td>
		
<select name=sele<%=i%>>						
<%for k=1 to j%>
<option ><%=engid(k)%></option>	
<%next%></select>		</td>			
		</tr>
		<%next%>
	</table>
	<br>
	<HR>
	工程师信息列表<br>
	<table name=table2 border=2>
	<tr>
	<td>
	工程师号码	
	</td>
	<td>
	工程师姓名
	</td>
	<td>
	工程师状态
	</td>
	<td>
	积累未完成维修单数量
	</td>
	</tr>
<%rs.movefirst
do while not rs.eof%>		<tr>
	
	<td>	
	<font color=#FF0000>
	</font>
<%=rs("eng_id")%>　</td>	
	<td>
	<font color=#FF0000>
	</font>
	<%=rs("eng_name")%>　</td>	
	<td>
	<font color=#FF0000>	
	</font>
	　<%=rs("eng_stat")%></td>	
	<td>
	<font color=#FF0000>	
	</font>
	　<%=rs("eng_incomp")%></td>		
	</tr>	
	<%rs.movenext
	loop%>
	</table>
<input name=Source type=hidden>
<input name=Station_id type=hidden value=>
<br>
<input name=Save type=button value="保存">
<input name=Return type=button value="返回">
</center>
</form>
<script language="vbscript">
	sub save_onclick	
		Dis_Form.Source.value ="me"
		Dis_Form.method ="post"
		Dis_Form.action ="admin_redispatch.asp"
		Dis_Form.submit 
	end sub
	sub return_onclick
		Dis_Form.method ="post"
		Dis_Form.action ="admin_cancelservice.asp"
		Dis_Form.submit 		
	end sub
</script>
</BODY>
</HTML>
<%'保存数据
if request("source")="me" then%>
<%for i=1 to session("idcount")
'修改维修单状态
Set lrs = Server.CreateObject("ADODB.Recordset")
sql="select * from service where serv_id='"&session("selectid")(i)&"'"
lrs.open sql,conn,1,3
already_pai=lrs("eng_id")
lrs("eng_id")=request("sele"&i)
lrs("is_read")="y"
lrs("is_jie")="n"
lrs("serv_stat")="工程师接单"
lrs.update
'修改改派工程师状态
Set jrs = Server.CreateObject("ADODB.Recordset")
sql="select * from eng where eng_id='"&request("sele"&i)&"'"
jrs.open sql,conn,1,3
jrs("eng_stat")="忙"
jrs("eng_incomp")=jrs("eng_incomp")+1
jrs.update
'修改原派工程师状态
Set frs = Server.CreateObject("ADODB.Recordset")
sql="select * from eng where eng_id='"&already_pai&"'"
frs.open sql,conn,1,3
frs("eng_incomp")=frs("eng_incomp")-1
if frs("eng_incomp")=0 then
frs("eng_stat")="闲"
else
frs("eng_stat")="忙"
end if
frs.update
response.write session("selectid")(i)&"号单派单成功！已由工程师"&frs("eng_id")&"改派给工程师"&request("sele"&i)&"<br>"
next
end if%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -