在网站中具体实现如下:
前台就不说了,说一下后台的实现方法:
也不清楚你是使用什么语言,假设是ASP吧
dim s1,s2,s3 '这里是定义的变量,用于获取前台中填入的相应值,这里假设有三个值
s1 = Request.Form("txtBox1") '因为也不知道前台接收用户填值的控件名称,这里假设是文本框,依次为txtBox1,txtBox2,txtBox3,具体你可以查看你前台中使用的控件的name属性
s2 = Request.Form("txtBox2")
s3 = Request.Form("txtBox3")
'这里省略了对各字段值的合法性的校验
dim rs
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM [你想插入的表名称]",conn,1,3 '这里的conn为你连接数据库的对象
(如果你不知道如何连接数据库,则看看这篇文章:
http://www.biye5u.com/article/netsite/ASP/2010/2130.html)
rs.AddNew '增加一行
rs("字段1") = s1 '由于不清楚你表中的字段,这里假设为字段1,字段2,字段3,你改一下就行
rs("字段2") = s2
rs("字段3") = s3
rs.Update '更新到数据库中
if not err then '如果没有错误
Response.Write ""
end if
rs.Close : set rs = nothing
open "c:\\sy8-2.txt" for ouput as #1 for i= 1 to 30 print #1,int(500+rnd*300), if i mod 5=0 then print #1, '换行 next close,rdwVrH