- 打印本文 关闭窗口
- ASP与SQL网站数据库程序设计(15)
- 作者:.. 文章来源:科学出版社 点击数: 更新时间:2004/1/25 1:03:54
- set "
289: if request.form("Country") = "other" then
290: SQL = SQL & "国家='" & trim(request.form ("OtherCountry")) & "',"
291: else
292: SQL = SQL & "国家='" & trim(request.form ("Country")) & "',"
293: end if
294: SQL = SQL & "公司地址='" & trim(request.form ("address")) & "',"
295: SQL = SQL & "部门名称='" & trim(request.form ("department")) & "',"
296: SQL = SQL & "公司电话='" & trim(request.form ("telno")) & "',"
297: SQL = SQL & "传真号码='" & trim(request.form ("faxno")) & "',"
298: SQL = SQL & "分机号码='" & trim(request.form ("ext")) & "',"
299: SQL = SQL & "职称='" & trim(request.form ("title")) & "'"
300: SQL = SQL & " where 姓名='" & trim(request.form ("name")) & "'"
301: Set Rs = OBJConn.Execute(SQL)
302: end if
303:
304: ' Send datas to system administrator by E-Mail
305:
306: OBJConn.close
307: SendDatasToAdmin
308: strings = "Request received!\n\nThank you very much!"
309: call showinfo(strings,"",0)
310:
311: end function
14-6-5 写入用户填写的信息
本段程序是在后台执行的程序代码。因此,在执行的过程中,除非出现语法错误出现,否则将不会有画面显示。如希望看到执行的结果,则必须进入SQL Server 2000中查看表的内容。这段程序的执行结果、程序内容及程序说明如下所示:
MoreInfo.asp 程序段
230: <%
231: function WriteProcedures
232: strings = ""
233:
234: if trim(request.form("Country")) = "other" & trim (request.form("OtherCountry")) = "" then
235: strings = strings & "请选择/输入您的国家!\n"
236: end if
237:
238: ' 未输入姓名
239: if trim(request.form("name")) = "" then
240: strings = strings & "Enter your name, Please!\n"
241: end if
242:
243: if strings <> "" then
244: call showinfo(strings,"",0)
245: end if
246:
247: Set OBJConn = Server.CreateObject("ADODB.Connection")
248: OBJConn.Open "Trade", "test", "test1"
249: On Error Resume Next
250:
251: SQL = "Select * from用户基本信息where 姓名='" & trim (request.form("name")) & "'"
252: Set Rs = OBJConn.Execute(SQL)
253: if not rs.eof then
254: Founded = True
255: else
256: Founded = False
257:
258: ' 选择以 E-Mail 方式取得详细资料,但未输入E-Mail 帐号
259: if request.form("GetMethods") = "0" and trim (request.form("email")) = "" then
260: strings = "Enter your E-Mail address, Please!\n"
261: end if
262:
263: ' 选择以寄件方式取得详细资料 , 但未输入地址
264: if request.form("GetMethods") = "1" and trim (request.form("address")) = "" then
265: strings = "Enter your Company Address, Please!\n"
266: end if
267:
268: ' 选择以电话的方式取得联系 , 但未输入电话
269: if request.form("GetMethods") = "2" and trim (request.form("telno")) = "" then
270: strings = "Enter your Telphone Number, Please!\n"
271: end if
272: end if
273:
274: if strings <> "" then
275: call showinfo(strings,"",0)
276: end if
277:
278: ' UserNo <=0 表示数据库中没有该用户的资料
279: if Founded = False then
280: SQL = "Insert into用户基本信息(姓名,性别,电子邮件,公司名称) Values("
281: SQL = SQL & "'" & trim(request.form("name")) & "',"
282: SQL = SQL & "'" & trim(request.form("Gender")) & "',"
283: SQL = SQL & "'" & trim(request.form("email")) & "',"
284: SQL = SQL & "'" & trim (request.form("companyname")) & "'"
285: SQL = SQL & ")"
286: Set Rs = OBJConn.Execute(SQL)
287:
288: SQL = "update用户基本信息set "
289: if request.form("Country") = "other" then
290: SQL = SQL & "国家='" & trim (request.form("OtherCountry")) & "',"
291: else
292: SQL = SQL & "国家='" & trim (request.form("Country")) & "',"
293: end if
294: SQL = SQL & "公司地址='" & trim (request.form ("address")) & "',"
295: SQL = SQL & "部门名称='" & trim (request.form ("department")) & "',"
296: SQL = SQL & "公司电话='" & trim (request.form ("telno")) & "',"
297: SQL = SQL & "传真号码='" & trim (request.form ("faxno")) & "',"
298: SQL = SQL & "分机号码='" & trim (request.form("ext")) & "',"
299: SQL = SQL & "职称='" & trim (request.form("title")) & "'"
300: SQL = SQL & " where 姓名='" & trim (request.form ("name")) & "'"
301: Set Rs = OBJConn.Execute(SQL)
302: end if
303:
304: ' Send datas to system administrator by E-Mail
305:
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页
- 打印本文 关闭窗口