📄 company_payresult.asp
字号:
<%
ds="../"
%>
<!--#include file="../conn/conn.asp" -->
<!--#include file="../inc/sub.asp"-->
<!--#include file="checkcmember.asp" -->
<%
payID=Replace(Trim(Request.Form("payID"))," ","")
If payID="" Then
Response.Write("<script>alert(""请至少选择一项消费项目！"");history.back();</script>")
Response.End()
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>购买结果-<%=SiteName%></title>
<LINK href="../css/css.css" rel=stylesheet>
</head>
<body>
<!--#include file="../inc/head.asp"-->
<br class="br">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="200" valign="top"><!--#include file="menu.asp" --></td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" background="../images/companyleftregbg.gif"> <font class=font-14><b><img src="../images/arrow_01.gif" width="11" height="11" align="absmiddle"> </b></font><span class="bl_14"><b>您的企业名称是</b></span><font class=font-14><b>：</b></font><font
class=font-title color="#FF6600"><%=session("user_cname")%></font></td>
<td width="122" background="../images/companyleftregbg.gif"><font
class=font-title color="#FF6600"><a
style="CURSOR: hand"
href="logout.asp"><img src="../images/exit.gif" width=79
height=19 border="0"></a></font></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="orange-bar">
<tr>
<td width="2%" align="right"> </td>
<td width="97%" class="white14">购买结果</td>
<td width="1%"> </td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td><table width="98%" border="0" align="center" cellpadding="6" cellspacing="0">
<tr align="center">
<td width="40%" height="28" bgcolor="#E7E7E7"><b>消费项目</b></td>
<td width="10%" bgcolor="#E7E7E7"><b>消费点数</b></td>
<td width="10%" bgcolor="#E7E7E7"><b>可用天数</b></td>
<td width="30%" bgcolor="#E7E7E7"><b>简要说明</b></td>
<td width="10%" bgcolor="#E7E7E7"><b>购买状态</b></td>
</tr>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="Select * From job_prices Where id In("&payID&")"
rs.Open sql,conn,1,1
If Not(rs.EOF) Then
Do while Not rs.EOF
If rs("id")<>4 Then
Call SetItem(rs("id"))
End If
%>
<tr bgcolor="#f7f7f7">
<td height="22" align="center"><%=rs("price_name")%></td>
<td align="center"><%=rs("price_value")%></td>
<td align="center"><%=rs("price_useday")%></td>
<td align="center"><%=rs("price_content")%></td>
<td align="center">
<%
If rs("id")=4 Then
If CheckPoint(session("user_name"),2,PayItem(rs("id"),0))=True Then
Response.Write("继续购买")
DisabledFlag=""
Else
DisabledFlag=" disabled"
Response.Write("点数不足")
End If
Else
If CheckPoint(session("user_name"),2,PayItem(rs("id"),0))=True Then
Response.Write("成功")
Else
Response.Write("点数不足")
End If
End If
%></td>
</tr>
<%
rs.MoveNext
Loop
End If
rs.Close
Set rs=Nothing
%>
</table>
<table width="98%" align="center">
<tr>
<td>您的剩余点数：
<%
set rsd=Server.CreateObject("adodb.recordset")
sqld="select * from JOB_C_cmember where cmember_login='"&session("user_name")&"'"
rsd.open sqld,conn,1,1
if not(rsd.eof) then
leavepoint=rsd("cmember_consumenums")
end if
rsd.close
set rsd=nothing
response.Write(CLng(leavepoint))
%>点</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center">
<%If InStr(payID,"4") Then%>
<input name="submit1" type="submit" id="submit2" value="继续购买剩余项目" onClick="javascript:window.location='company_payhire.asp'" <%=DisabledFlag%>>
<%End If%>
<input name="submit3" type="button" id="submit3" value="查看购买记录" onClick="javascript:window.location='company_paylog.asp'">
<input type="button" name="submit1" value=" 返 回 " onClick="javascript:history.back()">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="../inc/bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -