2,209
社区成员
发帖
与我相关
我的任务
分享新手请教有关asp向数据库中添加数据的问题
下面是源代码
<%
names=Request("t1")
sex=Request("t2")
dates=Request("t3")
class0=Request("t4")
room=Request("t5")
phone=Request("t6")
memo=Request("t7")
ah=Request("t8")
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data.mdb")
sql="INSERT INTO anhui (names,sex,dates,class0,room,phone,memo,ah) VALUES ('"&names&"','"&sex&"','"&dates&"','"&class0&"','"&room&"','"&phone&"','"&memo&"','"&ah&"')"
conn.execute sql
conn.Close
Set conn=Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>00000000000000</title>
<style type="text/css">
<!--
.f {
BORDER-RIGHT: #666699 1px solid; BORDER-TOP: #666699 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #666699 1px solid; BORDER-BOTTOM: #666699 1px solid
}
.left1 { font-family: "宋体"; font-size: 9pt}
-->
</style>
<body>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#00AAAA">
<tr>
<td> </td>
</tr>
</table>
<form name="form1" method="post" action="admin.asp">
<table width="500" border="1" align="center" cellpadding="0" cellspacing="0"bordercolorlight="000000">
<tr>
<td colspan="2" align="center" bgcolor="#0086C6"><font color="#FFFFFF"><strong>个人资料填写</strong></font></td>
</tr>
<tr>
<td width="90" align="center" class="left1">姓名：</td>
<td width="404">
<input name="t1" type="text" class="f" size="6">
</td>
</tr>
<tr>
<td align="center" class="left1" >性别：</td>
<td>
<input name="t2" type="text" class="f" size="6">
</td>
</tr>
<tr>
<td height="20" align="center" class="left1" >生日：</td>
<td>
<input name="t3" type="text" class="f" size="12">
</td>
</tr>
<tr>
<td align="center" class="left1" >班级：</td>
<td>
<input name="t4" type="text" class="f" size="10">
</td>
</tr>
<tr>
<td height="20" align="center" class="left1" >宿舍：</td>
<td>
<input name="t5" type="text" class="f" size="10">
</td>
</tr>
<tr>
<td align="center" class="left1" >电话：</td>
<td>
<input name="t6" type="text" class="f" size="20">
</td>
</tr>
<tr>
<td align="center" class="left1" >籍贯：</td>
<td>
<input name="t7" type="text" class="f" id="ah" size="50">
</td>
</tr>
<tr>
<td align="center" class="left1" >备注：</td>
<td>
<textarea name="t8" cols="40" rows="10" class="f"></textarea>
</td>
</tr>
</table>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
<td width="250"><input type="submit" name="Submit" value="提交"></td>
<td><input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form>
</body>
</html>
<%
names=Request("t1")
sex=Request("t2")
dates=Request("t3")
class0=Request("t4")
room=Request("t5")
phone=Request("t6")
memo=Request("t7")
ah=Request("t8")
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data.mdb")
sql="INSERT INTO anhui (names,sex,dates,class0,room,phone,memo,ah) VALUES ('"&names&"','"&sex&"','"&dates&"','"&class0&"','"&room&"','"&phone&"','"&memo&"','"&ah&"')"
conn.execute sql
conn.Close
Set conn=Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>00000000000000</title>
<style type="text/css">
<!--
.f {
BORDER-RIGHT: #666699 1px solid; BORDER-TOP: #666699 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #666699 1px solid; BORDER-BOTTOM: #666699 1px solid
}
.left1 { font-family: "宋体"; font-size: 9pt}
-->
</style>
<body>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#00AAAA">
<tr>
<td> </td>
</tr>
</table>
<form name="form1" method="post" action="admin.asp">
<table width="500" border="1" align="center" cellpadding="0" cellspacing="0"bordercolorlight="000000">
<tr>
<td colspan="2" align="center" bgcolor="#0086C6"><font color="#FFFFFF"><strong>个人资料填写</strong></font></td>
</tr>
<tr>
<td width="90" align="center" class="left1">姓名：</td>
<td width="404">
<input name="t1" type="text" class="f" size="6">
</td>
</tr>
<tr>
<td align="center" class="left1" >性别：</td>
<td>
<input name="t2" type="text" class="f" size="6">
</td>
</tr>
<tr>
<td height="20" align="center" class="left1" >生日：</td>
<td>
<input name="t3" type="text" class="f" size="12">
</td>
</tr>
<tr>
<td align="center" class="left1" >班级：</td>
<td>
<input name="t4" type="text" class="f" size="10">
</td>
</tr>
<tr>
<td height="20" align="center" class="left1" >宿舍：</td>
<td>
<input name="t5" type="text" class="f" size="10">
</td>
</tr>
<tr>
<td align="center" class="left1" >电话：</td>
<td>
<input name="t6" type="text" class="f" size="20">
</td>
</tr>
<tr>
<td align="center" class="left1" >籍贯：</td>
<td>
<input name="t7" type="text" class="f" id="ah" size="50">
</td>
</tr>
<tr>
<td align="center" class="left1" >备注：</td>
<td>
<textarea name="t8" cols="40" rows="10" class="f"></textarea>
</td>
</tr>
</table>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
<td width="250"><input type="submit" name="Submit" value="提交"></td>
<td><input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form>
</body>
</html>
...全文
请发表友善的回复…
发表回复
chsk 2003-10-07
- 打赏
- 举报
<%
names=Request("t1")
sex=Request("t2")
dates=Request("t3")
class0=Request("t4")
room=Request("t5")
phone=Request("t6")
memo=Request("t7")
ah=Request("t8")
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data.mdb")
sql="INSERT INTO anhui (names,sex,dates,class0,room,phone,memo,ah) VALUES ('"&names&"','"&sex&"','"&dates&"','"&class0&"','"&room&"','"&phone&"','"&memo&"','"&ah&"')"
conn.execute sql
conn.Close
Set conn=Nothing
%>
上面这段代码应放在另一个ASP文件中,根据代码这个ASP文件名应为admin.asp.这个文件实现了个人资料提交后把资料加入数据库的功能.
names=Request("t1")
sex=Request("t2")
dates=Request("t3")
class0=Request("t4")
room=Request("t5")
phone=Request("t6")
memo=Request("t7")
ah=Request("t8")
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data.mdb")
sql="INSERT INTO anhui (names,sex,dates,class0,room,phone,memo,ah) VALUES ('"&names&"','"&sex&"','"&dates&"','"&class0&"','"&room&"','"&phone&"','"&memo&"','"&ah&"')"
conn.execute sql
conn.Close
Set conn=Nothing
%>
上面这段代码应放在另一个ASP文件中,根据代码这个ASP文件名应为admin.asp.这个文件实现了个人资料提交后把资料加入数据库的功能.
ezhou 2003-09-26
- 打赏
- 举报
怎么了？有什么问题吗？
