📄 opermoddb.asp
字号:
<!--#include file ="../profile/checksec.asp"-->
<%
action=request("action")
if action=0 then
operid=request("operid")
'开始数据库操作
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database/yino.mdb")
Con.Execute "delete from [deal] where id=" & operid
Con.close
response.redirect "operation.asp"
else if action=1 then
username=request("username")
operid=request("operid")
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 [main] where username='"&username&"'"
rs.open sql,Con,1,3
if rs.eof and rs.bof then
response.redirect "../profile/errorpage.asp?id=unknow"
else
rs("state")=0
rs.update
rs.close
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [deal] where id=" & operid
rs.open sql,Con,1,3
if rs.eof and rs.bof then
response.redirect "../profile/errorpage.asp?id=unknow"
else
rs("isdredge")=0
rs.update
rs.close
end if
else if action=2 then
username=request("username")
operid=request("operid")
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 [main] where username='"&username&"'"
rs.open sql,Con,1,3
if rs.eof and rs.bof then
response.redirect "../profile/errorpage.asp?id=unknow"
else
rs("state")=1
rs.update
rs.close
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [deal] where id=" & operid
rs.open sql,Con,1,3
if rs.eof and rs.bof then
response.redirect "../profile/errorpage.asp?id=unknow"
else
rs("isdredge")=1
rs.update
rs.close
end if
end if
end if
end if
%>
<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>
<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("operid")
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
%>
<TR bgcolor="#cc6600">
<TD colSpan=2 height="20"><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%"> <%=rs("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 height="22"> <%=rs("dealname")%></TD>
</TR>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>支票号</b></TD>
<TD bgColor=#ffffff width="73%"> <%=rs("chequenum")%></TD>
</TR>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>是否处理</b></TD>
<TD bgColor=#ffffff width="73%">
<% if rs("isdispose")=0 then response.write "未处理" else response.write "已处理" end if%>
</TD>
</TR>
<%
if rs("isdispose")<>0 then
%>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>处理日期</b></TD>
<TD bgColor=#ffffff width="73%"> <%=rs("disposedate")%></TD>
</TR>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>是否开通</b></TD>
<TD bgColor=#ffffff width="73%">
<% if rs("isdredge")=0 then response.write "未开通" else response.write "已开通" end if%>
</TD>
</TR>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>处理人</b></TD>
<TD bgColor=#ffffff width="73%"> <%=rs("disposer")%></TD>
</TR>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>生效日期</b></TD>
<TD bgColor=#ffffff width="73%"> <%=rs("inuredate")%></TD>
</TR>
<TR>
<TD width="27%" bgColor=#FFCC33 align="center" height="20"><b>失效日期</b></TD>
<TD bgColor=#ffffff width="73%"> <%=rs("abatedate")%></TD>
</TR>
<%
end if
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="button" name="bt2" value="返回" onclick=window.open("../main.asp","_self")>
</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>
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -