productbuy.asp

相对于流通企业

<!--#include file="Head.asp"-->
<%
dim ProductName,ProductNo
ProductName=request.QueryString("ProductName")
ProductNo=request.QueryString("ProductNo")
dim MemID,mRealName,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail
if session("MemName")<>"" and session("MemLogin")="Succeed" then 
  call MemInfo()
else
  mSex="先生"
  MemID=0
end if
%>
<div align="center">
  <table width="868" border="0" cellspacing="0" cellpadding="0" class="Outside">
    <tr>
      <td width="200" height="300" valign="top" bgcolor="#F2F2F2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="200"><img src="Images/Pro_menu_title.gif" width="200" height="40"></td>
        </tr>
        <tr>
          <td bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td align="center" bgcolor="#F2F2F2"></td>
        </tr>
        <tr>
          <td align="center" bgcolor="#F2F2F2"><% =WebMenu("suqun_Productsort",0)%></td>
        </tr>
        <tr>
          <td height="30" bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td><img src="Images/Search_title.gif" width="200" height="14"></td>
        </tr>
        <tr>
          <td bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td align="center" bgcolor="#F2F2F2"><%=SearchForm()%></td>
        </tr>
        <tr>
          <td bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
      </table></td>
      <td width="4"></td>
      <td valign="top" class="AllCenter"><table width="664" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="30" height="32" align="center" bgcolor="#F4F4F4"><img src="Images/Arrow_01.gif" width="14" height="11"></td>
          <td bgcolor="#F4F4F4" class="Location"><a href="../index.asp">首页</a><img src="Images/Arrow_02.gif" width="13" height="12" align="absmiddle"><a href='ProductList.asp'>产品展示</a><img src="Images/Arrow_02.gif" width="13" height="12" align="absmiddle">在线订购</td>
          </tr>
        <tr>
          <td height="4" colspan="2" bgcolor="#FFFFFF"></td>
        </tr>
      </table>
        <table width="664" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="30" height="20">&nbsp;</td>
            <td>&nbsp;</td>
            <td width="30">&nbsp;</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td>
			<table width="604" border="0" cellspacing="0" cellpadding="1">
			<form name="formBuy" method="post" action="ProductBuySave.asp?MemberID=<%=MemID%>">
              <tr>
                <td width="120" align="right">产品名称：</td>
                <td width="480"><input name="ProductName" type="text" class="TextBox" id="ProductName" value="<%=ProductName%>" size="40" maxlength="100">&nbsp;<font color="#CC0000">*</font></td>
              </tr>
              <tr>
                <td align="right">产品编号：</td>
                <td><input name="ProductNo" type="text" class="TextBox" id="ProductNo" value="<%=ProductNo%>" size="40" maxlength="50">&nbsp;<font color="#CC0000">*</font></td>
              </tr>
              <tr>
                <td align="right">订购数量：</td>
                <td><input name="Amount" type="text" class="TextBox" id="Amount" size="20" maxlength="50">&nbsp;<font color="#CC0000">*</font>&nbsp;请加上单位，如"1套"</td>
              </tr>
              <tr>
                <td align="right">其他说明：</td>
                <td><textarea name="Remark" cols="66" rows="8" class="TextBox" id="Remark"></textarea></td>
              </tr>
              <tr>
                <td align="right">姓名：</td>
                <td><input name="RealName" type="text" class="TextBox" id="RealName" value="<%=mRealName%>" size="20" maxlength="50">&nbsp;<font color="#CC0000">*</font></td>
              </tr>
              <tr>
                <td align="right">性别：</td>
                <td><input name="Sex" type="radio" value="先生" <%if mSex="先生" then response.write ("checked")%>>先生
                    <input type="radio" name="Sex" value="女士" <%if mSex="女士" then response.write ("checked")%>>女士</td>              </tr>
              <tr>
                <td align="right">单位名称：</td>
                <td><input name="Company" type="text" class="TextBox" id="Company" value="<%=mCompany%>" size="40" maxlength="100">&nbsp;<font color="#CC0000">*</font>&nbsp;个人请填"个人购买"</td>
              </tr>
              <tr>
                <td align="right">地址：</td>
                <td><input name="Address" type="text" class="TextBox" id="Address" value="<%=mAddress%>" size="40" maxlength="100">&nbsp;<font color="#CC0000">*</font></td>
              </tr>
              <tr>
                <td align="right">邮编：</td>
                <td><input name="ZipCode" type="text" class="TextBox" id="ZipCode" value="<%=mZipCode%>" size="20" maxlength="20">&nbsp;<font color="#CC0000">*</font></td>
              </tr>
              <tr>
                <td align="right">电话：</td>
                <td><input name="Telephone" type="text" class="TextBox" id="Telephone" value="<%=mTelephone%>" size="20" maxlength="50">&nbsp;<font color="#CC0000">*</font></td>
              </tr>
              <tr>
                <td align="right">传真：</td>
                <td><input name="Fax" type="text" class="TextBox" id="Fax" value="<%=mFax%>" size="20" maxlength="50"></td>
              </tr>
              <tr>
                <td align="right">移动电话：</td>
                <td><input name="Mobile" type="text" class="TextBox" id="Mobile" value="<%=mMobile%>" size="20" maxlength="50"></td>
              </tr>
              <tr>
                <td align="right">电子邮箱：</td>
                <td><input name="Email" type="text" class="TextBox" id="Email" value="<%=mEmail%>" size="30" maxlength="50">&nbsp;<font color="#CC0000">*</font></td>
              </tr>
              <tr>
                <td align="right">验证码：</td>
                <td valign="bottom">
				<input name="VerifyCode" type="text" class="TextBox" size="4" maxlength="4">
				<img src="../Include/VerifyCode.asp" align="absmiddle">
				</td>
              </tr>
              <tr>
                <td height="30" align="right">&nbsp;</td>
                <td valign="bottom">
				<input name="Submit" type="submit" class="button" value=" 保存 ">
				&nbsp;
				<input name="Reset" type="reset" class="button" value=" 重置 "></td>
              </tr>
			</form>
            </table>
			</td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td height="30"></td>
            <td></td>
            <td></td>
          </tr>
        </table></td>
    </tr>
  </table>
</div>
<%
function WebMenu(DataFrom,ID)
  Dim rs,sql
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag"&LangData&" order by id"
  rs.open sql,conn,1,1
  response.write("<table width='160' border='0' cellspacing='0' cellpadding='0'>")
  if id=0 and rs.bof and rs.eof then
    response.write "<tr><td align='center'>暂无相关信息</td></tr>"
  else
    while not rs.eof
      response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>"
      response.write "<td><a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName"&LangData)&"</a></td></tr>"
      rs.movenext
	wend
  end if
  response.write("</table>")
  rs.close
  set rs=nothing
end function

sub MemInfo()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from suqun_Members where MemName='"&session("MemName")&"'"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "暂无相关信息"
  else
    MemID=rs("ID")
	if not rs("RealName")="" then
	  mRealName=rs("RealName")
	else 
	  mRealName=rs("MemName")
	end if
	mSex=rs("Sex")
	mCompany=rs("Company")
	mAddress=rs("Address")
	mZipCode=rs("ZipCode")
	mTelephone=rs("Telephone")
	mFax=rs("Fax")
	mMobile=rs("Mobile")
	mEmail=rs("Email")
  end if
  rs.close
  set rs=nothing
end sub
%>
<!--#include file="Foot.asp"-->