📄 member_showdomainshopping.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:
<!--#include file="conn.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
if session("usertyp")="企业" then
sql="select * from userentreg where login_name='"& username &"' and id=" & id &""
end if
if session("usertyp")="个人" then
sql="select * from userpersreg where login_name='"& username &"' and id=" & id &""
end if
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
username=session("username")
id=session("userid")
did=request.QueryString("id")
typ=request.QueryString("typ")
%>
<html>

<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>

<body>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="0">
    <tr> 
      <td><div align="center">会员<%=session("username")%>的域名订单详情</div></td>
    </tr>
    <tr> 
      <td bordercolor="#FFFFFF">
	  <div align="center">
        <center>
	  <table width="90%" border="1" cellpadding="3" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
        <%
		Set rs = Server.CreateObject("ADODB.Recordset")
		sql="select * from domainshopping where id="&did&" and user_name='"& username &"' and user_id=" & id &""
		rs.open sql,conn,3,3
		%>
        <tr bordercolor="#f1f1f1" bgcolor="#f1f1f1"> 
          <td width="33%" bgcolor="#EAF1FB">订单号：<span class="f2"><span class="f1"><%=did%></span></span></td>
          <td width="10%" bgcolor="#EAF1FB">　</td>
          <td width="10%" bgcolor="#EAF1FB">　</td>
          <td width="33%" bgcolor="#EAF1FB">　</td>
          <td width="10%" bgcolor="#EAF1FB">　</td>
        </tr>
        <tr> 
          <td height="29" bordercolor="#FFFFFF"> <div align="center"> 
              <% if rs("bolo")="已结算" then %>
              <a href="http://218.5.77.15/domainportal" target="_blank"><%=rs("domain")%></a> 
              <% else %>
              <%=rs("domain")%> 
              <%end if %>
            </div></td>
          <td bordercolor="#FFFFFF"><div align="center"><%=rs("years")%>/年</div></td>
          <td bordercolor="#FFFFFF"><div align="center">￥<span class="f1"><%=rs("money")%></span></div></td>
          <td bordercolor="#FFFFFF" class=f2>
            <%date1=date()
years=rs("years")
if years=0 then
response.Write("")
else
nedate=formatdatetime((year(date1)+years)&"-"&month(date1)&"-"&day(date1),2)
response.Write("到期时间：<span class=f1>"&nedate&"</span>")
end if%> 　</td>
          <td bordercolor="#FFFFFF">
            <%if rs("bolo")="未结算" then
		  response.write""
		  else
           if years=0 then
		  response.Write("")
		  else
		  response.Write("<a href=member_addnewdomainmoney.asp?domain="&rs("domain")&"&money="&rs("money")&"&domainid="&did&">续费</a>")
		  end if
		  end if %> 　</td>
        </tr>
        <tr> 
          <td bordercolor="#FFFFFF">　</td>
          <td bordercolor="#FFFFFF">　</td>
          <td bordercolor="#FFFFFF">　</td>
          <td bordercolor="#FFFFFF">合计金额：￥<span class="f1"><%=rs("allmoney")%></span></td>
          <td bordercolor="#FFFFFF">　</td>
        </tr>
      </table>
        </center>
      </div>
        <br>
		<% if rs("bolo")="未结算" then %>
      <table width="40%" border="0" align="center" cellpadding="5" cellspacing="0">
        <tr>
          <td><div align="center">
              <input name="Submit" type="submit" onClick="MM_goToURL('self','member_balancedomain.asp?cmd=ok&id=<%=rs("id")%>&money=<%=rs("allmoney")%>');return document.MM_returnValue" value="结算订单">
            </div></td>
          <td><div align="center">
              <input name="Submit2" type="submit" onClick="MM_goToURL('self','member_balancedomain.asp?cmd=del&id=<%=rs("id")%>&money=<%=rs("allmoney")%>');return document.MM_returnValue" value="取消订单">
            </div></td>
        </tr>
      </table>
      <br>
	  <% end if %>
    </td>
    </tr>
  </table>

<br>
<br>
</body>
</html>
<% 
end if
rs.close
set rs=nothing
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -