dim sql
dim rs
sql="select * from learning where articleid="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if cint(rs("user_id"))cint(session("u_id")) then
response.redirect "../info.asp?msg=您没有修改文章的权利!"
response.end
end if
%>
function submitonce(theform){
if (document.all||document.getElementById){
//screen thru every element in the form, and hunt down "submit" and "reset"
for (i=0;i var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
tempobj.disabled=true}
}
}
function CheckAll()
{
//检查非空
if (!CheckEmpty(form.title, "文章标题")) return false;
if (!CheckEmpty(form.content, "文章内容")) return false;
//全部通过
submitonce(form)
return true;
}
-->
修改文章
文章标题：
class="put" maxlength="255" value="">
文章栏目：
dim rs1,sql1,sel
set rs1=server.createobject("adodb.recordset")
sql1="select * from type"
rs1.open sql1,conn,1,1
do while not rs1.eof
sel="selected"
response.write " ' Response.Write rs1("typeid")& rs("typeid")
if rs("typeid")=rs1("typeid") then Response.Write sel
Response.Write ">"+rs1("type")+""+chr(13)+chr(10)
rs1.movenext
loop
rs1.close
%>
文章内容：
content=replace(rs("content"),"",chr(13))
content=replace(content," "," ")
else
content=rs("content")
end if
response.write content%>
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
