reg.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<%
FunCode="F000"
session("title")="业务申请"
session("headline")="首页 -> 注册系统 -> 业务申请"
ID = request("ID")
ptype=request("ptype")
regAction = request("regAction")
	select case ptype		'购买产品
		case	"P1000"
			nextURL = "domainreg.asp?ID="&ID
		case	"P2000"
			'nextURL =  "dummyapply.asp?ID="&ID
			nextURL =  "apply.asp?ID="&ID
		case	"P3000"
			'nextURL =  "mailapply.asp?ID="&ID
			nextURL =  "apply.asp?ID="&ID
		case	"P4000"
			'nextURL =  "adverapply.asp?ID="&ID
			nextURL =  "apply.asp?ID="&ID
		case	"P5000"
			nextURL =  "oneplusone.asp?ID="&ID
'		case	"P6000"
'			nextURL =  "apply.asp?ID="&ID
		case	else
			nextURL =  "apply.asp?ID="&ID
			'nextURL = "reg.asp"
	end select
%>
<!--#include file="../inc/head2.asp"-->

<%
if regAction <> "reg" or nextURL="" then
	call List()				
else
	response.Redirect	nextURL					
end if

sub List
set rs=server.createobject("adodb.recordset")
	sql="select a.*,b.A as PriceA from product a  join productprice b on a.ID=b.PID where class='"&ptype&"' and status=1 and levelcode='"&session("userlevel")&"'  order by listID "
	rs.open sql,conn,1,1
	'response.write sql
%>
<br>
<img src='../images/dotdb.gif' width='10' height='10'> 
            <font color='#000000'>共计 <%=rs.recordcount%> 种产品</font>
<br><br>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=95% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>产品编号</td><td class='color01' bgcolor='#efefef'>产品</td><td class='color01' bgcolor='#efefef'>说明</td><td class='color01' bgcolor='#efefef'>市场价</td><td class='color01' bgcolor='#efefef'>您的价格</td><td class='color01' bgcolor='#efefef'>购买</td></tr>

<% 
do while not rs.eof 
if rs("PriceA") <> "" then 
%> 
<tr><td><%=rs("ID")%></td><td><%=rs("name")%></td><td><%=rs("detail")%></td>
<td><%=rs("MPrice")%>元&nbsp;</td><td><%=rs("PriceA")%>元/<%=rs("A")%><%=rs("pricetype")%>&nbsp;</td>
<form action="reg.asp"><input type="Hidden" name="regAction" value="reg"><input type="Hidden" name="ID" value="<%=rs("ID")%>"><input type="Hidden" name="ptype" value="<%=ptype%>"><td><input type='submit' value='购  买' name='B1' class=form></td></form>
</tr>
<%
end if                                                                                                  
          rs.movenext                                                                                                  
		  loop                                                                    
           %>

</table>
<%
rs.close                                                                                                
          set rs=nothing                                                                                                
          conn.close                                                                                                
          set conn=nothing
end sub

%>
<!--#include file="../inc/bottom2.asp"-->