Ò»¸öasp³õѧÎÊÌâ,¿´¿´

lala

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 & "'"Õâ¾ä»°µÄ·ûºÅ¿´µÄ²»Ì«¶®,ÇëÖ¸½ÌÒ»ÏÂ,