📄 alloper.asp
字号:
<!--#include file ="../profile/checkuser.asp"-->
<HTML><HEAD><TITLE>申请其他业务</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>TD {
FONT-SIZE: 9pt; FONT-FAMILY: "宋体"
}
.e_8 {
FONT-SIZE: 8pt; FONT-FAMILY: "Verdana"
}
.select {
COLOR: #000000; BACKGROUND-COLOR: #ffffcc
}
.input {
BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; COLOR: #ff0000; BORDER-BOTTOM: #000000 1px solid; BACKGROUND-COLOR: #ffffff
}
.x18 {
LINE-HEIGHT: 18pt
}
</STYLE>
<script language="javascript" src="calender.js"></script>
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY text=#000000 vLink=#cc0000 aLink=#990099 link=#0066ff bgColor=#ffffff leftMargin=0 topMargin=0>
<form name=form1 action="" method=post>
<TABLE cellSpacing=0 cellPadding=1 width=640 align=center bgColor=#000000
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 bgColor=#ffffff border=0>
<TBODY>
<TR bgColor=#ffb41d>
<TD colSpan=3 height=12>
<div align="center"><img src="../images/enuologo.gif" width="468" height="60"></div>
</TD>
</TR>
<TR>
<TD colSpan=3><IMG height=1
src="../images/paycenter_02.gif"
width=640></TD></TR>
<TR>
<TD vAlign=top bgColor=#ffffff height=406><IMG height=35
src="../images/paycenter_03.gif" width=475>
<TABLE cellSpacing=0 cellPadding=8 width=98% align=center
border=0 height="488">
<TBODY>
<TR>
<TD><IMG height=21
src="../images/paycenter-bar_02.gif"
width=400></TD></TR>
<TR>
<TD valign="top">
<TABLE cellSpacing=0 cellPadding=1 width="100%" align=center
bgColor=#993300 border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=1 cellPadding=3 width="100%" border=0>
<TBODY>
<TR>
<TD colSpan=4 height="10"><b><font color="#FFFFFF">本站已有的服务</font></b></TD>
</TR>
<TR>
<TD width="26%" bgColor=#ffffff align="center">
服务名称 </TD>
<TD bgColor=#ffffff width="27%" align="center">单价</TD>
<TD bgColor=#ffffff align="center" width="19%">服务周期</TD>
<TD bgColor=#ffffff align="center" colspan="2" width="28%">在线申请</TD>
</TR>
<%
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database/yino.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from service order by ID ASC"
rs.open sql,Con,1,1
do while not rs.eof
%>
<TR>
<TD width="26%" bgColor=#ffffff align="center">
<%=rs("servname")%> </TD>
<TD bgColor=#ffffff width="27%" align="center"><%=rs("price")%>元</TD>
<TD bgColor=#ffffff align="center" width="19%"><%=rs("period")%></TD>
<TD bgColor=#ffffff align="center" colspan="2" width="28%"><a href=appserv.asp?id=<%=rs("ID")%>>申请此服务</a></TD>
</TR>
<%
rs.movenext
loop
rs.close
Con.close
%>
</TBODY>
</TABLE>
</TD></TR>
<TR>
<TD>
<table cellspacing=1 cellpadding=3 width="100%" border=0>
<tbody>
<tr bgcolor="#FFFFFF">
<td colspan=6 height="20"><b></b></td>
</tr>
<tr>
<td colspan=6 height="20"><b><font color="#FFFFFF">用户申请的业务</font></b></td>
</tr>
<tr>
<td width="32%" bgcolor=#ffffff align="center">
服务名称 </td>
<td bgcolor=#ffffff width="13%" align="center">单价</td>
<td bgcolor=#ffffff align="center" width="14%">服务周期</td>
<td bgcolor=#ffffff align="center" width="16%">申请时间</td>
<td bgcolor=#ffffff align="center" width="14%">申请人</td>
<td bgcolor=#ffffff align="center" width="11%"> </td>
</tr>
<%
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database/yino.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from appoper order by ID ASC"
rs.open sql,Con,1,1
do while not rs.eof
%>
<tr>
<td width="32%" bgcolor=#ffffff align="center">
<%=rs("appname")%> </td>
<td bgcolor=#ffffff width="13%" align="center">
<%=rs("price")%>元</td>
<td bgcolor=#ffffff align="center" width="14%">
<%=rs("period")%> </td>
<td bgcolor=#ffffff align="center" width="16%">
<%=year(rs("adddate"))%>-<%=month(rs("adddate"))%>-<%=day(rs("adddate"))%> </td>
<td bgcolor=#ffffff align="center" width="14%">
<%=rs("adder")%> </td>
<td bgcolor=#ffffff align="center" width="11%">
<%
dim isman
call isManager(session("username"),session("password"))
if isman=1 then
%>
<a href=../manage/deloper.asp?id=<%=rs("ID")%>>删除</a>
<%
end if
%>
</td>
</tr>
<%
rs.movenext
loop
rs.close
Con.close
%>
</tbody>
</table>
</TD>
</TR>
</TBODY></TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="41">
<tr>
<td align="center">
<p> </p>
<p>
<input type="button" name="bt1" value="新的申请" onclick=window.open("newoper.asp","_self")>
<input type="button" name="bt2" value="返回" onclick=window.open("../main.asp","_self")>
</p>
</td>
</tr>
</table>
</TD>
</TR></TBODY></TABLE></TD>
<TD width=1 bgColor=#000000 rowSpan=2><IMG height=407
src="../images/paycenter_04.gif" width=1></TD>
<TD vAlign=top align=middle width=164 bgColor=#ffb41d rowSpan=2>
<P><IMG height=7
src="../images/paycenter_05_01.gif"
width=164></P>
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolordark="#CCCCCC" bordercolorlight="#000000" height="235">
<tr>
<td width="236" class="font" height="27" bgcolor="#FFFFCC"> <img border="0" src="../images/hand.gif" width="20" height="15"><img border="0" src="../images/link1.jpg" width="88" height="21"></td>
</tr>
<tr>
<td class="font" height="204" width="236"> <span style="background-color: #FF0000"><font color="#FFFFCC">总部电话：</font></span><br>
010-68133624(3线)<br>
<span style="background-color: #FF0000"><font color="#FFFFCC">总部传真：</font></span><br>
010-68253386<br>
<span style="background-color: #FF0000"><font color="#FFFFCC">昼夜值班：</font></span><br>
13911056652<br>
<span style="background-color: #0000FF"><font color="#FFFFFF">业务部：</font></span><br>
<a href="mailto:info@e-icann.com?subject=来自网站的反馈">info@e-icann.com</a><br>
<span style="background-color: #0000FF"><font color="#FFFFFF">技术部：</font></span><br>
<a href="mailto:master@e-icann.com?subject=来自网站的技术咨询">master@e-icann.com</a><br>
<span style="background-color: #0000FF"><font color="#FFFFFF">客户投诉：</font></span><br>
<a href="mailto:gao@e-icann.com?subject=来自网站的投诉">gao@e-icann.com</a>
</td>
</tr>
</table></TD></TR>
<TR>
<TD colSpan=3 height=1><IMG height=1
src="../images/paycenter_07.gif"
width=640></TD></TR>
<TR>
<TD><IMG height=18
src="../images/paycenter_08.gif"
width=475></TD>
<TD width=1><IMG height=18
src="../images/paycenter_09.gif" width=1></TD>
<TD><IMG height=18
src="../images/paycenter_10.gif"
width=164></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></form></BODY></HTML>
<%
sub isManager(username,password)
user=username
userpasswd=password
Set pCon=Server.CreateObject("ADODB.Connection")
pCon.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database/yino.mdb")
set prs=server.createobject("adodb.recordset")
sql="select * from main where username='"&user&"' and password='"&userpasswd&"'"
prs.open sql,pCon,1,1
if prs.eof and prs.bof then
isman=0
else if prs("perm")<2 then
isman=0
else
isman=1
end if
prs.close
pCon.close
end if
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -