Question

请教下各位，asp如何使点击上报“按钮”之后，让按钮变为已上报，同时向数据库插入相应的记录。

我这里的代码，只能实现每次只插入第一条记录到数据库，其他的记录插入不了，而且，点击“上报”按钮之后，不能变为信息已上报。请高手赐教。

<%
Set Conn=Server.CreateObject ("ADODB.Connection")
Conn.open MM_conn_STRING
set rs=Server.CreateObject("adodb.Recordset")
sqlstmt = "SELECT * from Advice order by tjdatetime desc"
rs.open sqlstmt, Conn,1,1
If rs.eof then
response.write "数据库中没有记录"
response.end
else
rs.pagesize = 10
page=cint(request("page"))
if page<1 then
page=1
end if
if page>rs.pagecount then
page = rs.pagecount
end if
rs.absolutepage = page
%>

<%
dim action
action=request.QueryString("action")
if action="Reported" then
dim sql,rs1
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from AdviceBoss"
rs1.open sql,Conn,1,3

rs1.addnew
rs1("userName")=rs("userName")
rs1("userTel")=rs("userTel")
rs1("userEmail")=rs("userEmail")
rs1("a_nr")=rs("a_nr")
rs1("tjdatetime")=rs("tjdatetime")
rs1.update
action=2
rs1.close
set rs1=nothing
end if
if action=2 then
response.Redirect("advice_manage.asp")
end if
%>
<h3>意见信息管理</h3>
<form action="advice_manage.asp?action=Reported" method="post" name="form1" id="form1">
<table width="957" border="1" cellspacing="0" cellpadding="6" bordercolor="#999999">
<tr>
<td align="center" >姓名</td>
<td align="center">联系电话</td>
<td width="159" align="center">Email地址</td>
<td width="179" align="center">内容</td>
<td width="179" align="center">填写日期</td>
<td width="119" align="center">操作</td>
</tr>
<% Do while not rs.eof %>
<tr>
<td width="114" align="center" ><%=rs("userName")%></td>
<td width="215" align="center" ><%=rs("userTel")%></td>
<td width="159" align="center" ><%=rs("userEmail")%></td>
<td width="179" align="center" ><%=rs("a_nr")%></td>
<td width="179" align="center" ><%=rs("tjdatetime")%></td>
<%if (rs.Fields.Item("flag").Value)=0 then %><input name="提交" type="submit" value="上报"><%else%>信息已上报<%end if%>
</td>
</tr>
<%
rs.MoveNext
loop

%>
</table>
<br>
<%
response.write "<center>"
if page <> 1 then
response.Write "<a href=advice_manage.asp?page=1>首页</a>" & " "
response.Write "<a href=advice_manage.asp?page="&page-1&">上一页</a>" & " "
end if
for n = 1 to rs.pagecount
response.write "<a href=advice_manage.asp?page=" & n & ">" & "[" & n & "]" & "</a>" & " "
next
if page <>rs.pagecount then
response.Write "<a href=advice_manage.asp?page="&page+1&">下一页</a>" & " "
response.Write "<a href=advice_manage.asp?page="&rs.pagecount&">末页</a>"
end if
response.write "</center>"
%>
</form>
<%
rs.close
set rs=nothing
end if
%>

Answer 1

通过js新技术(ajxa技术)来添加记录，并改变按钮文字，很简单的
1先创建xml.js文件，代码如下
//表单xml判断
var xmlHttp = false;
var xmlHttpcar = false;
try{
if( window.ActiveXObject ){
for( var i = 5; i; i-- ){
try{
if( i == 2 ){
xmlHttp = new ActiveXObject( "Microsoft.XMLHTTP" );
xmlHttpcar = new ActiveXObject( "Microsoft.XMLHTTP" );
}
else{
xmlHttp = new ActiveXObject( "Msxml2.XMLHTTP." + i + ".0" );
xmlHttp.setRequestHeader("Content-Type","text/xml");
xmlHttp.setRequestHeader("Charset","gb2312");
xmlHttpcar = new ActiveXObject( "Msxml2.XMLHTTP." + i + ".0" );
xmlHttpcar.setRequestHeader("Content-Type","text/xml");
xmlHttpcar.setRequestHeader("Charset","gb2312");
}
break;
}
catch(e){ xmlHttp = false; xmlHttpcar = false;}
}
}
else if( window.XMLHttpRequest ){
xmlHttp = new XMLHttpRequest();
xmlHttpcar = new XMLHttpRequest();
if ( xmlHttp.overrideMimeType ){ xmlHttp.overrideMimeType('text/xml'); }
if ( xmlHttpcar.overrideMimeType ){ xmlHttpcar.overrideMimeType('text/xml'); }
}
}
catch(e){ xmlHttp = false; xmlHttpcar = false;}

2再在asp页面里面引用xml.js代码
然后内陷js触发事件代码
function showvn(paraaction,paracmd,parapage,paraid,xothervalue){
var action=paraaction;
var cmd=paracmd;
var page=parapage;
var id=paraid;
var othervalue=xothervalue;
var url = "/ajxaother.asp?fl="+action+"&cmd="+cmd+"&page="+page+"&id="+paraid+"&formvalue="+othervalue;
xmlHttp.open("GET", url, true);
xmlHttp.onreadystatechange = updateVN;
xmlHttp.send(null);
}

function updateVN() {
if (xmlHttp.readyState < 4) {
document.getElementById("viewernum").innerHTML="<img src='/images/loading.gif'/>";
}
if (xmlHttp.readyState == 4) {
var response = xmlHttp.responseText;
document.getElementById("viewernum").innerHTML=response;
}
}

Answer 2

if (rs.Fields.Item("flag").Value)==0 then
两个等号

Answer 3

在每条对应的记录面前,加上复选框,复先框的值用id来记录,点上报的时候,对此批ID数据同时更新

Answer 4

用ajax可以实现。