ASP如果文本框没填写,就不保存数据库?

来源:百度知道 编辑:UC知道 时间:2024/06/08 01:07:05
如果rUser文本框内没有填写内容的话,就只保存在baidu_records.而不保存在baidu_messages.请问这个要怎么修改呀?

Sub saveEditData()
Dim cId
Dim rDate,rType,rContent,rUser,cUser
cId = CInt(ABS(Request("cId")))
cUser = Trim(Request("user"))
rDate = Request.Form("rDate")
rType = Request.Form("recordsType")
rContent = htmlEncode2(Request.Form("rContent"))
rUser = htmlEncode2(Request.Form("rUser"))
If Not IsNumeric(cId) Or cId <= 0 Or rType = "" Or Not IsDate(rDate) Or rContent = "" Then
Response.Write("<font color=""#FF0000""><b>资料请求错误。</b></font><br><br>")
Response.Write("<input type=""button"" value="" 返 回 "" onClick=""history.back();"">")
Else
Dim rs
Set rs = Server.CreateObject("ADODB.Records

Sub saveEditData()
Dim cId
Dim rDate,rType,rContent,rUser,cUser
cId = CInt(ABS(Request("cId")))
cUser = Trim(Request("user"))
rDate = Request.Form("rDate")
rType = Request.Form("recordsType")
rContent = htmlEncode2(Request.Form("rContent"))
rUser = htmlEncode2(Request.Form("rUser"))
If Not IsNumeric(cId) Or cId <= 0 Or rType = "" Or Not IsDate(rDate) Or rContent = "" Then
Response.Write("<font color=""#FF0000""><b>资料请求错误。</b></font><br><br>")
Response.Write("<input type=""button"" value="" 返 回 "" onClick=""history.back();"">")
Else
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select Top 1 * From baidu_records",conn,3,2
rs.AddNew