|
|
Dim strSql,sqla,sqlb
sqla = "Insert Into users(name,password"
sqlb = "Values('" & name & "','" & password & "'"
If tel<>"" Then
sqla = sqla & ",tel"
sqlb = sqlb & ",'" & tel & "'"
End If
If home<>"" Then
sqla = sqla & ",home"
sqlb = sqlb & ",'" & home & "'"
End If
If email<>"" Then
sqla = sqla & ",email"
sqlb = sqlb & ",'" & email & "'"
End If
If age<>"" Then
sqla = sqla & ",age"
sqlb = sqlb & "," & cInt(age)
End If
If intro<>"" Then
sqla = sqla & ",intro"
sqlb = sqlb & ",'" & intro & "'"
End If
strSql = sqla & ") " & sqlb & ")"
db.Execute(strSql)
这段代码中的 sqlb = sqlb & ",'" & email & "'"这句话的符号看的不太懂,请指教一下, |
|
IP卡
狗仔卡
发表于 2009-12-27 05:29:41
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡