& "'"
If body<>"" Then
sql = sql & ",body"
svalues = svalues & "," & "'" & body & "'"
End If
sql = sql & ") " & svalues & ")"
db.Execute(sql)
db.Close
Response.Redirect "bbs.asp"
End If
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<form name="form1" method="post" action="">
<table width="50%" height="316" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ccffff">
<tr>
<td colspan="2"><div align="center"><font color="#000000" size="6" face="华文彩云">发表文章</font></div></td>
</tr>
<tr>
<td><div align="right">主题:</div></td>
<td><input name="title" type="text" id="title" size="40"></td>
</tr>
<tr>
<td><div align="right">内容:</div></td>
<td><textarea name="body" cols="45" rows="10" id="body"></textarea></td>
</tr>
<tr>
<td><div align="right">姓名:</div></td>
<td><input name="wm" type="text" id="wm"></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="提交">
</div></td>
</tr>
</table>
</form>
</body>
</html>
回复的程序如下：
<%
dim db
set db=server.CreateObject("adodb.connection")
db.Open "driver={microsoft Access driver (*.mdb)};dbq=" &server.MapPath(".../data/yhzc.mdb")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
首页 上一页 7 8 9 10 11 12 13 下一页 尾页 10/14/14
ASP同学录设计asp+sql(十)由毕业论文网（www.huoyuandh.com）会员上传。
