发信人: zykitty()
整理人: jinhu(1999-06-22 21:06:04), 站内信件
|
发信人: yuei(缘) 信区: CGI
标 题: 如何用VB编写CGI程序 (4)
发信站: 商盟社区 (1999-6-21 上午 09:09:39) 转信
----------------------------------------------------------------------
----------
三）现在开始编写CGI 程序了，第一步工作就是读入用户输入的
参数，这方面cgi32.bas 已经帮我们做好了，只需要用GetSmallField("参数名"
)
就可以得到。
于是我们在CGI_MAIN中这样写
dim strUserName,strPassword,strEmail
strUserName=Trim(GetSmallField("username"))
strPassword=Trim(GetSmallField("password"))
strEmail=Trim(GetSmallField("Email"))
然后要做的工作就是把这些东西存入数据库中：
' 打开数据库
dim myDB as database
dim rsUserInfo as RecordSet
set myDB=OpenDatabase("All.mdb")
set rsUserInfo=myDB.OpenRecordset("UserInfo")
' 往数据库增加资料
rsUserInfo.AddNew
rsUserInfo.field("username")=username
rsUserInfo.field("password")=password
rsUserInfo.field("email")=email
rsUserInfo.Update
rsUserInfo.close
myDB.close
最后就用send命令输出结果提示：
' 输出CGI头
Send ("Content-type: text/html")
Send ("")
' 输出HTML
Send ("<HTML><TITLE>注册成功</TITLE><body>")
Send ("用户"+username+"资料已经成功加入系统数据库中")
Send ("</body></html>")
四）就这样，一个简单的CGI 程序就完成了。
--
云深不知处
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.189.17]
|
|