安徽经济生活频道在线:asp数据接收、查询问题,特急!!!!

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 03:02:54
<!--#include file="conn.asp" -->
<%id=request.querystring("c_id")%>
<%
if request.form("submit")="change" then
shengfen=request.form("shengfen")
shiji=request.form("shiji")
c_content=request.form("c_content")
c_id=request.form("c_id")
%>

<%''这段总是提示"至少一个参数没有被指定值",where shiji="&shiji 为什么不能接收上面接收的值?怎么修改??
sql="Select * from c_news where shiji="&shiji '这里的条件改为“班长”就可以了!
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,1,1
do while not rs.eof
caidan=caidan&"<li><a href='"&rs("c_filepath")&"'>"&rs("c_title")&"</a></li>"
rs.movenext
loop
rs.close
Set rs = Nothing
%>

<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from ssjs where c_id="&c_id
rs.Open sql,conn,3,2
rs("shengfen")=caidan
rs("shiji")=shiji
rs("c_content")=c_content
rs("c_time")=now()
rs.update
rs.close
Set rs = Nothing
End if
%>
<%
if id<>"" then
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from ssjs where c_id="&id
rs.Open sql,conn,1,1
shengfen=rs("shengfen")
shiji=rs("shiji")
c_content=rs("c_content")
end if
%>

<form action="zyrcjqchange_z.asp" method="post">
班级:<input type="text" name="shiji" value=<%=shiji%>><br>
小组菜单:<br><textarea name="shengfen" rows="8" cols="50"><%=shengfen%></textarea><br>
内容:<br>
<textarea name="c_content" rows="8" cols="50"><%=c_content%></textarea><br>
<input type="submit" value="change" name="submit">
<input type="reset" value="Reset">
<input name="c_id" type="hidden" value="<%=id%>">
</form>

sql="Select * from c_news where shiji='"&shiji&"'"

这样做判断是十分不科学的,如果数据为空那肯定会出错的。

sql="Select * from c_news "这里的条件改为“班长”就可以了!
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,1,1
do while not rs.eof
if shiji=request("shiji") then
caidan=caidan&"<li><a href='"&rs("c_filepath")&"'>"&rs("c_title")&"</a></li>"
end if
rs.movenext
loop
rs.close
Set rs = Nothing
%>