📄 dllook.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="xshjyy.asp"-->
<%'---------程序编写说明-------%>
<%
'本程序由junping96编写
'程序名称：新世纪影院VOD播放系统（商业版）
'FileName: Dllook.asp
'EditDate:2003-12-07
'Editer:junping96
'Email:junping96@163.com
'QQ: 249112913 249114058
'请尊重本人劳动，禁止修改版权，有任何问题请和我联系。
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta name="”keywords”" content="”新世纪影院VOD影视播放程序出售”">
<meta name="”description”" content="”新世纪影院VOD影视(商业版)出售”">
<title>新世纪影院</title>
<link rel="stylesheet" type="text/css" href="../css/css.css">
<script language="vbscript">
sub check()
if login.dlname.value=empty then
alert "错误，请输入代理名称!"
exit sub
end if
if login.phone.value=empty or isnumeric(login.phone.value)=false or len(login.phone.value)<7 then
alert "错误，请输入代理电话!"
exit sub
end if
if login.dladdress.value=empty then
alert "错误，请输入代理地址!"
exit sub
end if
if login.personname.value=empty then
alert "错误，请输入代理人姓名!"
exit sub
end if
if login.personaddress.value=empty then
alert "错误，请输入代理人居住地址!"
exit sub
end if
login.submit
end sub
</script>
</head>
<body topmargin="1" leftmargin="0" bgcolor="#FF9900">
<%
id=trim(request.querystring("id"))
act=trim(request.querystring("act"))
if act<>"save" then
%>
<%
dim pagesize,curpage,numpages
pagesize=20 '每页显示的数据条数.
if request.querystring("page")<>"" then
curpage=cint(request.querystring("page"))
else
curpage=1
end if
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1" width="486">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from dlcom where id="&id
rs.open sql,conn,1,3
if rs.eof or bof then
response.redirect"../error.htm"
else%>
<form name="login" method="post" action=dllook.asp?act=save&id=<%=rs("id")%>>
<tr>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="21" colspan="4" width="484">代理情况、资料查看(代理编号： [<%=rs("id")%>])</td>
</tr>
<tr>
<td valign="middle" align="left" bgcolor="#FFFFFF" height="21" width="121">代理名称：</td>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="22" width="163"><input name=dlname size=25 class="inputs" value="<%=rs("dlname")%>"></td>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="22" width="79">代理电话：</td>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="22" width="121"><input name=phone size=18 class="inputs" value="<%=rs("phone")%>"></td>
</tr>
<tr>
<td valign="middle" align="left" bgcolor="#FFFFFF" height="21" width="121">代理地址：</td>
<td valign="middle" align="left" bgcolor="#FFFFFF" height="22" width="355" colspan="3"><input name=dladdress size=59 class="inputs" value="<%=rs("dlname")%>"></td>
</tr>
<tr>
<td valign="middle" align="left" bgcolor="#FFFFFF" height="21" width="121">代理人姓名：</td>
<td valign="middle" align="left" bgcolor="#FFFFFF" height="22" width="373" colspan="3"><input name=personname size=59 class="inputs" value="<%=rs("personname")%>"></td>
</tr>
<tr>
<td valign="middle" align="left" bgcolor="#FFFFFF" height="21" width="121">代理人居住地址：</td>
<td valign="middle" align="left" bgcolor="#FFFFFF" height="22" width="373" colspan="3"><input name=personaddress size=59 class="inputs" value="<%=rs("personaddress")%>"></td>
</tr>
<tr>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="22" width="484" colspan="4">两个月：<font color="#FF0000">(<%=rs("carid02")%>)</font>元；全年<font color="#FF0000">(<%=rs("carid12")%>)</font>元
最新结帐日期：<%=rs("jzhtime")%></td>
</tr>
<tr>
<td valign="middle" align="left" bgcolor="#FFFFFF" height="22" width="484" colspan="4"><input type=button onclick="check" name=b3 value="提交">
<input type=reset name=b4 value="重置"></td>
</tr>
</form>
<tr>
<td valign="middle" align="right" bgcolor="#FFFFFF" height="22" width="482" colspan="4">
<a href=dldel.asp>删除</a> <a href=dljs.asp?id=<%=rs("id")%>>结算</a> 当前日期：<%=date()%></td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
%>
<table border="0" cellpadding="0" cellspacing="1" width="486">
<tr>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="21" colspan="4" width="484">出售会员卡一览表</td>
</tr>
<tr>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="22" width="121">卡号</td>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="22" width="121">去向</td>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="22" width="121">类型</td>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="22" width="121">时间</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from chzhkbak order by id desc"
rs.open sql,conn,1,1
if rs.eof or bof then
response.write""
else
rs.pagesize=pagesize
numpages=rs.pagecount
if curpage>numpages then
curpage=numpages
end if
rs.absolutepage=curpage
a=1
do while not rs.eof or bof
%>
<tr>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="22" width="121"><%=rs("carid")%> </td>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="22" width="121"><%=rs("username")%> </td>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="22" width="121"><%
carlx=rs("carlx")
if carlx=2 then
carlx="两个月"
elseif carlx=12 then
carlx="全年"
else
carlx="已经结算的卡"
end if
response.write carlx
%></td>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="22" width="121"><%=rs("dateandtime")%></td>
</tr>
<%
rs.movenext
a=a+1
if a>pagesize then exit do
loop
end if
%>
<tr>
<td valign="middle" align="left" bgcolor="#FFFFFF" height="21" width="494" colspan="4">
<%
response.write"共有("&rs.recordcount&")个记录, "
response.write"共分为("&numpages&")页,当前为第"&curpage&"页 "
for m=1 to numpages
response.write"<a href=dllook.asp?page="&m&">["&m&"]</a> "
next
response.write"<a href=dllook.asp?page="&dlname&"&page=1>首页</a> "
if curpage>1 then
response.write"<a href=""dllook.asp?page="&(curpage-1)&""">上一页</a> "
end if
if curpage<numpages then
response.write"<a href=""dllook.asp?page="&(curpage+1)&""">下一页</a> "
end if
response.write"<a href=dllook.asp?page="&numpages&">尾页</a> "
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
</center>
</div>
<%
else
dlname=request.form("dlname")
dladdress=request.form("dladdress")
personname=request.form("personname")
personaddress=request.form("personaddress")
phone=request.form("phone")
set rs=server.createobject("adodb.recordset")
sql="select * from dlcom where id="&id
rs.open sql,conn,1,3
rs("dlname")=dlname
rs("dladdress")=dladdress
rs("personname")=personname
rs("personaddress")=personaddress
rs("phone")=phone
rs.update
rs.close
set rs=nothing
response.redirect request.servervariables("HTTP_REFERER")
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -