upgradevh2.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 140 行

<%
if request("T")="3" then
	ModuleCode="M0510"
else
	ModuleCode="M0410"
end if
%>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead

%>
<!--#include file="../../Include/connect.asp"-->
<%

T=request("T")

strProdTypeName=request("ProdTypeName")
strVHName=request("VHName")

strProdCode=request("ProdCode")
strProdName=request("ProdName")
strProdCode2=request("ProdCode2")
strUOID=request("UOID")
strVHID=request("VHID")

if Session("ISADMIN")="YES" then
	strUserID=request("UserID")
else
	strUserID=session("UserID")
end if

'计算价格
'日期
'总日期
D1=request("D1")
'剩余日期
D2=request("D2")

strSQL="Select * from T_DNS_UserInfo Where UserID=" & strUserID 
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn
If Rs.Eof Then
	strLevelCode=""
else
	strLevelCode=rs("LevelCode")
end if
rs.close

''原来总价
'PD1=request("TotPrice")
'
''新价格
'ppp=0
'if strLevelCode<>"" then
'	ppp=1
'	strSQL="Select * from T_DNS_ProdPrice Where ProdCode='" & strProdCode2 & "' and LevelCode='" & strLevelCode & "' and ProdYear=1"
'	Rs.open strSQL,Cn
'	If not Rs.Eof Then
'		PD2=rs("ProdPrice")
'	end if
'	rs.close
'end if
'
''没有价格，取直接售价，365天的价格
'if (ppp=0) then
'	strSQL="Select * from T_DNS_ProdInfo Where ProdCode='" & strProdCode2 & "'"
'	Rs.open strSQL,Cn
'	If not Rs.Eof Then
'		PD2=rs("ProdPrice")
'	else
'		PD2=0
'	end if
'	rs.close
'end if
'
''一天的价格*剩下天数
''实际增加价:
'PD0=(CCur(PD2)/365-CCur(PD1)/Cint(D1))*Cint(D2)
'PD9=PD0
'PD0=FormatNumber(PD0,2)

'取费用
strSQL="exec SP_Upgrade_Fee '"& T & "','" & strProdCode2 & "','" & strVHID & "'"
Rs.open strSQL,Cn
If rs("result")="0" then
	response.write rs("msg")
	Call PrintPageBottom
	responwe.end
end if
PD0=rs("TotPrice")
rs.close


%>
	<form name="form1" action="UpgradeVH3.asp?T=<%=T%>&VHID=<%=strVHID%>&UOID=<%=strUOID%>&UserID=<%=strUserID%>&ProdCode=<%=strProdCode2%>&ProdName=<%=strProdName%>&VHName=<%=strVHName%>&ProdTypeName=<%=strProdTypeName%>" method="post">
	  <table width="60%" border="0" cellspacing="1" cellpadding="5" align="center" bgcolor="<%=Opt_Table_BGColor%>">
		<tr bgcolor="<%=Opt_TR_BGColor%>">
		  <td colspan=2  bgcolor="<%=Opt_TR_BGColor%>" align=center>
		    <%=request("ProdTypeName")%>产品<font color=red><%=request("VHName")%></font>升级--确定升级
		  </td>
		</tr>
		<tr bgcolor="<%=Opt_TD_BGColor2%>">
		  <td align=right bgcolor="<%=Opt_TR_BGColor%>" width="30%">产品</td>
		  <td width="70%">
		    <%=strProdName%>  -> 
		    <%
			strSQL="Select * from T_DNS_ProdInfo Where ProdCode='" & strProdCode2 & "'"
			Rs.open strSQL,Cn
			If not Rs.Eof Then
				strProdName2=rs("ProdName")
				response.write strProdName2
			end if
			rs.close
		    %>
		  </td>
		</tr>
		<tr bgcolor="<%=Opt_TD_BGColor2%>">
		  <td align=right bgcolor="<%=Opt_TR_BGColor%>">价格</td>
		  <td>
			<input name="ProdName2" type="hidden" value="<%=strProdName2%>">
			<font color=red><%=PD0%>  </font>元
			<input name="PD0" type="hidden" value="<%=PD0%>">
		  </td>
		</tr>
		<tr>
		  <td colspan=2  bgcolor="<%=Opt_TD_BGColor2%>" align=center>
		    <input name="submit1" type=submit value="确定升级" class="button">&nbsp;&nbsp;&nbsp;&nbsp;
		    <input type=button onclick="javascript:history.go(-1)" value="返回" class="button" name=button1>
		  </td>
		</tr>
	  </table>
	</form>   
	
	<%
Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>