发信人: zykitty()
整理人: (1999-06-22 21:06:34), 站内信件
|
发信人: yuei(缘) 信区: CGI
标 题: 如何用VB编写CGI程序 (5)附程序:register.bas
发信站: 商盟社区 (1999-6-21 上午 09:13:11) 转信
----------------------------------------------------------------------
----------
Sub CGI_Main()
dim strUserName,strPassword,strEmail as string
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
' 输出CGI头
Send ("Content-type: text/html")
Send ("")
' 输出HTML
Send ("<HTML><TITLE>注册成功</TITLE><body>")
Send ("用户"+username+"资料已经成功加入系统数据库中")
Send ("</body></html>")
End Sub
Sub Inter_Main()
MsgBox "This is a CGI program."
' Exit Sub will end the program
End Sub
--
云深不知处
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.189.17]
|
|