UC知道请高手帮我看看这个ASP页面程序应该如何帮两个radio button添加编辑和删除的性能
来源：百度知道 编辑：UC知道 时间：2024/09/21 21:53:55
此页面需要收集数据库里的用户资料自动生成一个table，每个用户资料分配一行，每行有两个radio button,一个编辑这行用户资料的，一个删除这行用户资的。我不知道怎么编这两个性能。麻烦高手帮帮忙，把修改好的程序发上来，十分感谢!
<% Dim send
send = cbool(Request.QueryString("send"))
Dim cutoffdate, cutoffemaildate
cutoffdate = DateAdd("d", -345, date()) cutoffemaildate = DateAdd("d", -25, date())
If (send) Then
Dim sSql, result
sSql = "SELECT Email FROM Person WHERE (EmailDate < #" & cutoffemaildate & "#) AND (Authorized <= #" & cutoffdate & "# Or Authorized Is Null)"
result = Query2Array(sSql)
If Not IsNull(result) Then
Dim iSql, i, Email
For i=0 To UBound(result, G_ROW)
Email = result(0,i)
SendConfEmail Email
iSql = "UPDATE Person Set EmailDate=now() WHERE Email='" & Email & "';"
Update2Db(iSql)
Next
output = i & " Emails Sent!"
Else
output = "
<% Dim send
send = cbool(Request.QueryString("send"))
Dim cutoffdate, cutoffemaildate
cutoffdate = DateAdd("d", -345, date()) cutoffemaildate = DateAdd("d", -25, date())
If (send) Then
Dim sSql, result
sSql = "SELECT Email FROM Person WHERE (EmailDate < #" & cutoffemaildate & "#) AND (Authorized <= #" & cutoffdate & "# Or Authorized Is Null)"
result = Query2Array(sSql)
If Not IsNull(result) Then
Dim iSql, i, Email
For i=0 To UBound(result, G_ROW)
Email = result(0,i)
SendConfEmail Email
iSql = "UPDATE Person Set EmailDate=now() WHERE Email='" & Email & "';"
Update2Db(iSql)
Next
output = i & " Emails Sent!"
Else
output = "
************接上面的程序****************
Response.Write "</td>"
Elseif (emaildate < coEmailDate) Then
Response.Write "<td class=""green"">" & FormatDateTime(emaildate, 2) & "</td><td class=""red"">"
If Not IsNull(authdate) Then
Response.Write FormatDateTime(authdate, 2)
Else
Response.Write " "
End If Response.Write "</td>"
Else
Response.Write "<td class=""red"">" & FormatDateTime(emaildate, 2) & "</td><td class=""red"">"
If Not IsNull(authdate) Then Response.Write FormatDateTime(authdate, 2)
Else Response.Write " "
End If Response.Write "</td>"
End If Response.Write "</tr>"