用表单来提交sql - 1 | 天下站长网

 1   
 2'从表单中提取值   
 3fName = request.form("fName")   
 4lName = request.form("lName")   
 5age = request.form("age")   
 6  
 7'建立SQL语句   
 8iStr = "insert into uData (fName, lName, age) "   
 9iStr = iStr & "values ("   
10iStr = iStr & "'" & fName & "', "   
11iStr = iStr & "'" & lName & "', "   
12iStr = iStr & age & ")"   
13  
14if trim(fName <> "") then   
15response.write( iStr & "

<br/>

1")   
2else

 1<html>
 2<body>
 3<form action="listing1.asp" method="post" name="f">   
 4Gimme your:<br/>   
 5First Name: <input name="fName" type="text"/><br/>   
 6Last Name: <input name="lName" type="text"/><br/>   
 7Age: <input name="age" type="text"/><br/>
 8<input type="submit" value="Submit"/>
 9</form>
10</body>
11</html>

1   
2end if

列表 B:使用 request.form 来轻松建立SQL字符串。

 1   
 2iStr = "insert into uData "   
 3vStr = "values ("   
 4nStr = "("   
 5  
 6' 在表单集合中循环，并建立起SQL语句的组成部分   
 7for each x in request.form   
 8' 建立字段名列表   
 9nStr = nStr & x & ", "   
10' 建立字段值列表   
11if uCase(x) = "AGE" then   
12vStr = vStr & request.form(x) & ", "   
13else   
14vStr = vStr & "'" & request.form(x) & "', "   
15end if   
16next   
17  
18' 把结尾的", " 从我们建立的字符串中去掉   
19vStr = left(vStr, len(vStr) - 2) & ")"   
20nStr = left(nStr, len(nStr) - 2) & ") "   
21  
22' 把SQL语句组装起来   
23iStr = iStr & nStr & vStr   
24  
25if trim(request("fName")) >> "" then   
26response.write( iStr & ">BR>")   
27else

 1<html>
 2<body>
 3<form action="列表2.asp" method="post" name="f">   
 4Gimme your:<br/>   
 5First Name: <input name="fName" type="text"/><br/>   
 6Last Name: <input name="lName" type="text"/><br/>   
 7Age: <input name="age" type="text"/><br/>
 8<input type="submit" value="Submit"/>
 9</form>
10</body>
11</html>

1   
2end if