meminfo.asp

网上购物源代码

<%
dim rsObj,strSQL

set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM member WHERE memberID = '"&Session("memberID")&"'"
'Response.Write strSQL
'Response.End
rsObj.Open strSQL, conn, 2,1
%>
<%if not (rsObj.eof or err) then %>
      <form method = "post" action = "memSave.asp" name = "memModify" ID = "Form1">
        <TABLE cellSpacing = 0  cellPadding = 0 
                  width = "100%" borderColorLight = #aaaaaa border = 1 ID = "Table1">
  <tbody> 
          <tr  align="center"> 
            <td colspan = 2 height = "18" "> 
              <p align = "center">modify member file</p>
    </td>
  </tr>
          <tr> 
            <td width = 70 align = "right" height = "25" nowrap> 
              <div align = "left">membid :</div>
            </td>
            <td width = "445" height = "25"> <%=rsObj("memberID")%> </td>
          </tr>
          <tr> 
            <td width = 70 align = "right" height = "25" nowrap> 
              <div align = "right">membname：</div>
            </td>
            <td width = "445" height = "25"> 
              <input type = "text" name = "name" size = "20" value = "<%=rsObj("name")%>" style = "font-size: 9pt; border: 1px solid #7D85A2; " ID = "Text1">
            </td>
          </tr>
          <tr> 
            <td width = 70 align = "right" height = "25" nowrap> 
              <div align = "right"><font color = "#000000">membsex ：</font></div>
            </td>
            <td width = "445" height = "25"> 
              <SELECT name = "sex"  ID = "Select1">
                <%if rsObj("sex") = "mail" then %>
                <option selected>mail</option>
                <option>femail</option>
                <%else %>
                <option>mail</option>
                <option selected>femail</option>
                <%end if %>
              </SELECT>
            </td>
          </tr>
          <tr> 
            <td width = 70 align = left" height = "26" nowrap> 
              <div align = "left">mempwd :</div>
            </td>
            <td width = "445" height = "26"> 
              <input type = "checkbox" name = "modifyPassword" value = "1" ID = "Checkbox1">
              <font color = "#FF0000">modify</font> 
              <input type = "password" name = "password1" size = "12" style = "font-size: 9pt; border: 1px solid #7D85A2; " ID = "Password1">
              <input type = "password" name = "password2" size = "12" style = "font-size: 9pt; border: 1px solid #7D85A2; " ID = "Password2">
            </td>
          </tr>
          <tr> 
            <td width = 70 align = "right" height = "26" nowrap> 
              <div align = "right">qestion：</div>
            </td>
            <td width = "445" height = "26"> 
              <input type = "text" name = "question" size = "40" value = "<%=rsObj("question")%>" style = "font-size: 9pt; border: 1px solid #7D85A2;" ID = "Text2">
            </td>
          </tr>
          <tr> 
            <td width = 70 align = "right" height = "26" nowrap> 
              <div align = "right">answer：</div>
            </td>
            <td width = "445" height = "26"> 
              <input type = "text" name = "answer" size = "40" value = "<%=rsObj("answer")%>" style = "font-size: 9pt; border: 1px solid #7D85A2; " ID = "Text3">
            </td>
          </tr>
          <tr> 
            <td width = 70 align = "right" height = "26" nowrap> 
              <div align = "right">E-mail：</div>
            </td>
            <td width = "445" height = "26"> 
              <input type = "text" name = "email" size = "30" value = "<%=rsObj("email")%>" style = "font-size: 9pt; border: 1px solid #7D85A2; )" ID = "Text4">
            </td>
          </tr>
          <tr> 
            <td width = 70 align = "right" height = "26" nowrap> 
              <div align = "right">phone：</div>
            </td>
            <td width = "445" height = "26"> 
              <input type = "text" name = "phone" size = "30" value = "<%=rsObj("phone")%>" style = "font-size: 9pt; border: 1px solid #7D85A2;" ID = "Text5">
            </td>
          </tr>
          <tr> 
            <td width = 70 align = "right" height = "26" nowrap> 
              <div align = "right">address：</div>
            </td>
            <td width = "445" height = "26"> 
              <input type = "text" name = "address" size = "60" value = "<%=rsObj("address")%>" style = "font-size: 9pt; border: 1px solid #7D85A2; " ID = "Text6">
            </td>
          </tr>
          <tr> 
            <td width = 70 align = "right" height = "26" nowrap> 
              <div align = "right">zipcode：</div>
            </td>
            <td width = "445" height = "26"> 
              <input type = "text" name = "code" size = "10" value = "<%=rsObj("Zipcode")%>" style = "font-size: 9pt; border: 1px solid #7D85A2; " ID = "Text7">
            </td>
          </tr>
          <tr> 
            <td width = 70 align = "right" height = "26" nowrap> 
              <div align = "right">ordered：</div>
            </td>
            <td width = "445" height = "26"> 
<%
			dim rsOrder
     		strSQL = "SELECT * FROM OrderList WHERE memberID = '" & Session("memberID") & "'"
			set rsOrder = conn.execute (strSQL)
			do while not (rsOrder.eof or err)
%>
				<a href = orderSearch.asp?orderID=<%=rsOrder("id")%>><%=rsOrder("id")%></a>&nbsp;
<%
				rsOrder.MoveNext
			loop
			rsOrder.Close()
			Set rsOrder  =  Nothing
%>&nbsp; 
            </td>
          </tr>
          <tr > 
            <td colspan = "2" align = "center" height = "26" nowrap "> 
              <div align = "center"> 
                <input type = "submit" name = "Submit2" value = "modify" style = "font-size: 9pt; border: 1px solid #7D85A2; " ID = "Submit1">
                <input type = "button" name = "Submit3" value = "return" onClick = "window.location = '<%=Session("oldUrl")%>'" style = "font-size: 9pt; border: 1px solid #7D85A2; " ID = "Button1">
              </div>
            </td>
          </tr>
  </tbody> 
</table>
</form>
      <%else %><br>
      <div align = "center">no login ，or be deleted，please login again。　<a href = "Javascript:window.history.go(-1)">return</a> 
      </div>
      <%end if %>