📄 dispoper.asp
字号:
<!--#include file ="../profile/checksec.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>
<TABLE cellSpacing=0 cellPadding=1 width=640 align=center bgColor=#000000
border=0>
<TBODY>
<TR>
<TD>
<form name=dispoper method=post action=dispoperDB.asp>
<TABLE cellSpacing=0 cellPadding=0 bgColor=#ffffff border=0>
<TBODY>
<TR bgColor=#ffb41d>
<TD colSpan=3 height=12><IMG height=72
src="../images/paycentertop_01.gif"
width=174><IMG height=72
src="../images/paycentertop_02.gif"
width=168><IMG height=72
src="../images/paycentertop_03.gif"
width=158><IMG height=72
src="../images/paycentertop_04.gif"
width=140></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>
<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 height="20">
<TABLE cellSpacing=1 cellPadding=3 width="100%" border=0>
<TBODY>
<%
operid=request("id")
if operid="" then
response.redirect "../profile/errorpage?id=unknow"
else
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 deal where id=" & operid
rs.open sql,Con,1,1
if rs.eof and rs.bof then
response.redirect "../profile/errorpage.asp?id=unknow"
else
dealtype=rs("dealtype")
%>
<TR bgcolor="#cc6600">
<TD colSpan=2 height="22"><b><font color="#FFFFFF">处理业务</font></b></TD>
</TR>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>代理ID号</b></TD>
<TD bgColor=#ffffff width="73%"> <%=rs("dealobj")%></TD>
</TR>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>
业务类型</b></TD>
<TD bgColor=#ffffff width="73%"> <%=dealtype%></TD>
</TR>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>加入时间</b></TD>
<TD bgColor=#ffffff width="73%"> <%=rs("dealdate")%></TD>
</TR>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>业务内容</b></TD>
<TD bgColor=#ffffff width="73%" height="22"> <%=rs("dealname")%></TD>
</TR>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>是否开通</b></TD>
<TD bgColor=#ffffff width="73%"> <input type=radio value=1 name=isopen checked>是 <input type=radio value=0 name=isopen>否</TD>
</TR>
<%
dim dprice
call getDealPrice(dealtype)
%>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>业务价格</b></TD>
<TD bgColor=#ffffff width="73%"> <%=dprice%>元 <font color=#990000>(注:一个<%=dealtype%>服务的一年服务费为<%=dprice%>元)</font></TD>
</TR>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>生效日期</b></TD>
<TD bgColor=#ffffff width="73%"> <input type=text name=opendate value=<%=now%> readonly><INPUT type="button" value="..." onclick="fPopCalendar(opendate,opendate);return false"></TD>
</TR>
<%
end if
rs.close
Con.close
end if
%>
</TBODY>
</TABLE>
</TD></TR></TBODY></TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="41">
<tr>
<td align="center">
<input type=hidden name=isSub value="true">
<input type=hidden name=operid value=<%=operid%>>
<input type=hidden name=dealworth value=<%=dprice%>>
<INPUT name=B3 style="FONT-FAMILY: 宋体; FONT-SIZE: 9pt" type=submit value=提交>
<input type="button" name="bt2" value="取消" onclick=window.open("../main.asp","_self")>
</td>
</tr>
</table>
</TD>
</TR></TBODY></TABLE></form></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>
<P><A
href="http://www.paycenter.com.cn/cgi-bin/Agent/AgentIndex"><IMG
height=49 src="../images/bakc.gif" width=35
border=0></A></P></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></BODY></HTML>
<%
sub getDealPrice(dealname)
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database/yino.mdb")
set nrs=server.createobject("adodb.recordset")
sql="select * from service where servname='"&dealname&"'"
nrs.open sql,Conn,1,1
if nrs.eof and nrs.bof then
response.redirect "../profile/errorpage.asp?id=unknow"
else
dprice=nrs("price")
end if
nrs.close
Conn.close
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -