admin_default.asp

来自「关于网络渗透技术的详细讲解」· ASP 代码 · 共 102 行

ASP
102 行
字号 
<%Response.Buffer=true%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 6.0">
</HEAD>
<style>
<!--
body, table {font-size:12pt; line-height:12pt;}
        A:link {text-decoration: none; color: black;}
        A:visited {text-decoration: none; color:663300;}
        A:active {text-decoration: none; }
        A:hover {text-decoration: underline; color: FF0000}
.aaa {font-size:9pt}
        A.aaa:link {text-decoration: none; color: 0000FF;}
        A.aaa:visited {text-decoration: none; color:yellow;}
        A.aaa:active {text-decoration: none;}
        A.aaa:hover {text-decoration: underline; color: FF0000}
.b {font-size:9pt}
        A.b:link {text-decoration: underline; color: blue;}
        A.b:visited {text-decoration: underline; color:663300;}
        A.b:active {text-decoration: underline;}
        A.b:hover {text-decoration: underline; color: FF0000}
input {  font-size: 9pt}
input.buttonface
     {
     font-size:9pt;
     BACKGROUND-COLOR: #9bcdff;
     color: rgb(0,0,128) ;
     }
-->
</style>
<BODY > 
<p align="center"><b><font color="#FF0000" size="5">今日派单 </font></b></p>
<form name="frame_form">
<center>
<table name=default_table border=1>
	<tr>
	<td nowrap>
	维修单当前状态
	</td>	
	<td nowrap>
	维修单号码
	</td>


	<td nowrap>
	工程师号码</td>


	</tr>		
<!---#include file="../conn1.asp"--->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from nsr_work where work_state='0' order by serv_id desc"
rs.open sql,conn,1,3
%><tr> 
<%do while not rs.eof
i=i+1
%> 
<td><%=rs("work_stat")%> 
　<td><%=rs("id")%> 
　<td><%=rs("eng_id")%>　<tr> 
<%rs.MoveNext 
Loop

%></tr>
</table>
<input name=Source type=hidden>
<input name=StationID type=hidden value=<%session("station_id")%>>
　</p>
</form>
<script language="vbscript">
	sub Dispatch_onclick
		frame_form.Source.value ="t3"
		frame_form.action ="admin_default.asp"
		frame_form.method="post"
		frame_form.submit 
	end sub

</script>

</BODY>
</HTML>
<% 
If request("source")="t3" Then 
dim selectid()
For p = 1 To i 
if request("id"&p)<>""  then
k=k+1
Redim Preserve selectid(k)
selectid(k)=request("id"&p)
end if
Next 
session("selectid")=selectid
session("idcount")=ubound(selectid)
response.redirect "admin_dispatch.asp"
end if%>

admin_default.asp - 源码说明

本页面展示了「关于网络渗透技术的详细讲解」中的 admin_default.asp 源码文件，采用 ASP 编程语言编写，共 102 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与网络渗透相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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