asp复杂判断写入数据库

[sj348253541]

一：判断值123是否存在数据库，是则写入对应的值（如123对应值50）二：判断123已写入对应的值，提示123已使用，拒绝写入

[hookee]

...
conn.Open ...

sql = "SELECT * FROM tbl WHERE fld=123"
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open sql, conn, 1, 3
If rs.EOF And rs.BOF Then
    rs.AddNew
    rs("fld").Value = 123
    rs("xxx").Value = 'xxxx'
    ...
    rs.Update
Else
    err_msg = "已使用"
End If
If rs.State <> 0 Then rs.close
conn.Close
Set rs = Nothing
Set conn = Nothing

[华丽丽的小低调]

引用 1 楼 hookee 的回复:

...
conn.Open ...

sql = "SELECT * FROM tbl WHERE fld=123"
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open sql, conn, 1, 3
If rs.EOF And rs.BOF Then
    rs.AddNew
    rs("fld").Value = 123
    rs("xxx").Value = 'xxxx'
    ...
    rs.Update
Else
    err_msg = "已使用"
End If
If rs.State <> 0 Then rs.close
conn.Close
Set rs = Nothing
Set conn = Nothing

正解

[sj348253541]

引用 1楼hookee 的回复:

...
conn.Open ...

sql = "SELECT * FROM tbl WHERE fld=123"
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open sql, conn, 1, 3
If rs.EOF And rs.BOF Then
    rs.AddNew
    rs("fld").Value = 123
    rs("xxx").Value = 'xxxx'
    ...
    rs.Update
Else
    err_msg = "已使用"
End If
If rs.State <> 0 Then rs.close
conn.Close
Set rs = Nothing
Set conn = Nothing

十分感谢，如123换成一个数据列表怎么弄呢

[华丽丽的小低调]

引用 3 楼 sj348253541 的回复:

[quote=引用 1楼hookee 的回复:]

...
conn.Open ...

sql = "SELECT * FROM tbl WHERE fld=123"
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open sql, conn, 1, 3
If rs.EOF And rs.BOF Then
    rs.AddNew
    rs("fld").Value = 123
    rs("xxx").Value = 'xxxx'
    ...
    rs.Update
Else
    err_msg = "已使用"
End If
If rs.State <> 0 Then rs.close
conn.Close
Set rs = Nothing
Set conn = Nothing

十分感谢，如123换成一个数据列表怎么弄呢[/quote] 写循环啊。

[Go 旅城通票]

引用 3 楼 sj348253541 的回复:

[quote=引用 1楼hookee 的回复:]

...
conn.Open ...

sql = "SELECT * FROM tbl WHERE fld=123"
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open sql, conn, 1, 3
If rs.EOF And rs.BOF Then
    rs.AddNew
    rs("fld").Value = 123
    rs("xxx").Value = 'xxxx'
    ...
    rs.Update
Else
    err_msg = "已使用"
End If
If rs.State <> 0 Then rs.close
conn.Close
Set rs = Nothing
Set conn = Nothing

十分感谢，如123换成一个数据列表怎么弄呢[/quote] 数据列表是什么鸡毛也没说清楚？提交的数据自己request获取就行了