for循环的问题。。。

geraldthey · 发表于 14-9-2007 02:29 PM

我做了一个form，然后要把资料输入进msAccess数据库。其中我有用到for循环。。。比如说。。。
   <select name="Year" id="Year">
      <%
for y= 1900 to 1990
%>
      <option value="<% =y%>">
      <% =y%>
      </option>
      <% Next %>
   </select>

但是资料怎样输入不进。。。。
请问用for...loop,怎样把资料输入进access database里面？
谢谢。。。

geraldthey · 发表于 14-9-2007 02:47 PM

guestbook.asp

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" c>
<title>Untitled Document</title>

</head>
<body>
<form method="post" action="insrt.asp">
  <table width="747" border="1">
<tr>
   <td colspan="3">　</td>
</tr>
<tr>
   <td width="142">First Name：</td>
   <td colspan="2"><input name="Fname" type="text" id="Fname" /></td>
</tr>
<tr>
   <td height="49">Last Name：</td>
   <td colspan="2"><input name="Lname" type="text" id="Lname" /></td>
</tr>
<tr>
   <td>Gender：</td>
   <td colspan="2"><input name="Gender" type="radio" value="M" />
      Male
      <input name="Gender" type="radio" value="F" />
      Female</td>
</tr>
<tr>
   <td>Birth Date：</td>
   <td colspan="2">

   <select name="Year" id="Year">
      <%
for y= 1900 to 1990
%>
      <option value="<% =y%>">
      <% =y%>
      </option>
      <% Next %>
   </select>

      <select name="Month" id="Month">
  <option value="1">jan</option>
  <option value="2">feb</option>
  <option value="3">mar</option>
  <option value="4">apr</option>
  <option value="5">may</option>
  <option value="6">jun</option>
  <option value="7">july</option>
  <option value="8">aug</option>
  <option value="9">sep</option>
  <option value="10">oct</option>
  <option value="11">nov</option>
  <option value="12">dec</option>
      </select>
      <select name="Date" id="Date">
      <%
for d= 1 to 31
%>
      <option value="<% =d%>">
      <% =d%>
      </option>
      <% Next %>
      </select></td>
</tr>
<tr>
   <td height="27">Country：</td>
   <td colspan="2"><select name="Country" id="Country">
<option value="MSIA"> 马来西亚 </option>
<option value="SG"> 新加坡 </option>
<option value="CN"> 中国</option>
  <option value="US"> 美国 </option>
   </select>    </td>
</tr>
<tr>
   <td>E-mail：</td>
   <td colspan="2"><input name="Email" type="text" id="Email" /></td>
</tr>
<tr>
   <td>Hobby：</td>
   <td colspan="2"><textarea name="Hobby" id="Hobby"></textarea></td>
</tr>
<tr>
   <td>Message：</td>
   <td colspan="2"> <textarea name="Message" id="Message"></textarea></td>
</tr>
<tr>
   <td>　</td>
   <td width="58"><input type="submit" name="Submit" value="Submit" /></td>
   <td width="525"><input type="reset" name="Submit2" value="Reset" /></td>
</tr>
  </table>
</form>
</body>
</html>

insrt.asp
<html>
<body>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "C:/Documents and Settings/Admin/Desktop/accessasp.mdb"
sql="INSERT INTO guestbook (FirstName,LastName,Gender)"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("Fname") & "',"
sql=sql & "'" & Request.Form("Lname") & "',"
sql=sql & "'" & Request.Form("Gender") & "',"
sql=sql & "'" & Request.Form("BirthYear") & "')"
on error resume next
conn.Execute sql,recaffected
if err<>0 then
  Response.Write("No update permissions!")
else
  Response.Write("<h3>" & recaffected & " record added</h3>")
end if
conn.close
%>
</body>
</html>

[ 本帖最后由 geraldthey 于 14-9-2007 02:57 PM 编辑 ]

jasonmun · 发表于 14-9-2007 10:55 PM

process 都没有 Request.Form("Year"

在 SQL..

还有For Loop 跟你之后要输入资料是无关联的..

		自动登录	找回密码
密码			注册

for循环的问题。。。

所属分类: 电脑手机

浏览过的版块