?? my_host.asp
字號:
<% if not session("sel") then
Response.redirect "usdl.asp"
end if
%>
<%
if IsNumeric(request("bh")) AND request("bh")<>"" then
%>
<!--#include file="conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE><%=page_name%> – <%=page_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="images/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
</HEAD>
<BODY leftMargin=0 background=images/bg.jpg topMargin=0 marginheight="0"
marginwidth="0">
<!--#include file="head.asp" -->
<TABLE height=288 cellSpacing=0 cellPadding=0 width=760 align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD width=171 height=288 vAlign=top background="images/bg_l_n.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><img src="images/domain_image.gif" width="174" height="119"></div></td>
</tr>
<tr>
<td height="17" bgcolor="#EEEEEE"><div align="center">歡迎: <font color="#FF0000"><strong><%= session("us") %></strong></font> 光臨</div></td>
</tr>
<tr>
<% us=session("us")
sql="select * from user where userid='"&us&"'"
rs.open sql,conn,1,1
zje1=rs("je")
%>
<td><p>您的賬面存款：</p>
<p align="center"><font color="#FF0000">￥ <%= rs("je") %></font></p>
<p align="center">客戶等級: <font color="#FF0000"><%= rs("sf") %>
<% rs.close %>
</font></p></td>
</tr>
<tr>
<td height="1" background="images/2.jpg"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center">
<!--#include file="user_inc.asp" -->
</div></td>
</tr>
<tr>
<td><p></td>
</tr>
<tr>
<td height="1" background="images/2.jpg"></td>
</tr>
</table></TD>
<td height="288" valign="top"><table width="573" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="573"><img src="images/mameger.gif" width="437" height="43"></td>
</tr>
<tr>
<td><table width="95%" height="276" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<%
bh=request("bh")
if Trim(Request.QueryString("w"))="sf" then
sql="select * from shop where bh="&bh
rs.open sql,conn,2,3
jg1=rs("jg")
sf1=request("sf")
zsf=jg1*sf1
if zje1<zsf then
%>
<script language="VBScript" type="text/VBScript">
msgbox "對不起您賬號上面的余額不足 請及時入賬"
</script>
<%
else
zsl=rs("sl")+sf1
rs("sl")=zsl
rs.update
sql="update user set je="&zje1&"-"&zsf&" where userid=('"&session("us")&"')"
conn.execute(sql)
sql="update host_shop set nx="&zsl&" where userid=('"&session("us")&"')"
conn.execute(sql)
sql="insert into memo(userid,je,body,log,zje) values ('"&session("us")&"',"&-zsf&",'訂單號:"&bh&"/空間續(xù)費','續(xù)費',"&zje1&"-"&zsf&")"
conn.execute(sql)
%>
<script language="VBScript" type="text/VBScript">
msgbox "續(xù)費成功"
</script>
<%
end if
rs.close
end if
bh=request("bh")
sql="select * from host_shop where bh="&bh&"and userid='"&session("us")&"'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<td width="20%">訂單號：</td>
<td width="80%"><%= rs("bh") %> </td>
</tr>
<tr>
<td>產(chǎn)品名稱：</td>
<td><%= rs("mc") %></td>
</tr>
<tr>
<td>用戶名稱：</td>
<td><%= rs("userid") %></td>
</tr>
<tr>
<td>邦定域名：</td>
<td><%= rs("domain") %></td>
</tr>
<tr>
<td>ftp用戶名：</td>
<td><%= rs("ftp") %></td>
</tr>
<tr>
<td>ftp密碼：</td>
<td><%= rs("ftp_password") %></td>
</tr>
<tr>
<td>注冊年限：</td>
<td><%= rs("nx") %></td>
</tr>
<% rs.close
sql="select * from shop where bh="&bh
rs.open sql,conn,1,1
%>
<tr>
<td>應支付金額：</td>
<td><%= rs("je") %></td>
</tr>
<tr>
<td>提交時間：</td>
<td><%= rs("dat") %></td>
</tr>
<tr>
<td>交費是否：</td>
<td><font color="#FF0000"><%= rs("jf") %></font></td>
</tr>
<tr>
<td>生效是否：</td>
<td><font color="#FF0000"><%= rs("sx") %></font></td>
</tr>
<tr bordercolor="#F5F5F5">
<td height="23"><font color="#CC0000"><strong>管理員答復：</strong></font></td>
<td><font color="#990000"><%= rs("msg") %></font></td>
</tr>
<tr>
<td height="64" colspan="2"><% if rs("sx") then %>
<form name="form2" method="post" action="my_host.asp?w=sf">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="23%" height="36"><strong><font color="#990000">對產(chǎn)品續(xù)費：</font></strong></td>
<td width="77%"><select name="sf" id="sf">
<option value="1" selected>1年</option>
<option value="2">2年</option>
<option value="3">3年</option>
<option value="5">5年</option>
<option value="10">10年</option>
</select>
<input name="bh" type="hidden" id="bh" value="<%=request("bh") %>">
</td>
</tr>
<tr>
<td height="25"> </td>
<td><p>
<input type="submit" name="Submit2" value="確定續(xù)費">
</p>
<p> </p>
<p><font color="#FF0000">注：在這里續(xù)費請確認您的賬號上面有足夠的余額。</font></p></td>
</tr>
</table>
</form>
<% end if %>
<% else
Response.Write("<p><p><b><td>對不起參數(shù)不正確</b>")
end if %>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td> </td>
<td><a href="javascript:history.back(1)">返回上頁 >>></a></td>
</tr>
</table></td>
</tr>
</table>
<p> </p></td>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD bgColor=#999999><IMG height=1 src="images/spacer.gif"
width=1></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="foot.asp" -->
<%conn.close
set conn= nothing
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -