请大家帮我修改一下代码?急!
我把回复和发表新文章用同一个save.asp文件来保存代码有点问题.主要是save.asp中没能把回复和新文章分开来.
回复:
<form method= "post " action= "save.asp ">
<input type= "hidden " name= "parentid " value= " <%=rs( "num ")%> "> <input type= "hidden "
name= "serialnum "value= " <%=request( "serialnum ")%> "> <p> <b> <font size= "2 ">
主题： </font> <input type= "text " name= "theme " size= "50 " value= "r: <%=rs( "theme ")%> "
style = "background-color:rgb(192,192,192);color:rgb(128,0,0) "> <br> <font size= "2 ">
内容： </font> </b> <br> <textarea rows= "8 " name= "content " cols= "50 "
style= "background-color:rgb(192,192,192);color:rgb(128,0,0) "> </textarea> </p> <p>
<input type= "submit " value= "提交 " name= "b1 "> <input type= "reset " value= "重写 " name= "b2 "> </p>
</form>
新文章:
<form method= "post " action= "save.asp ">
<input type= "hidden " name= "serialnum " value= " <%=request( "serialnum ")%> ">
<pre
align= "center "> <strong> <font size= "3 "> <font face= "华文楷体 " color=#000000> 发表文章 </font> </font> </strong> </pre>
<pre align= "center "> <font size= "2 "> <b> <font face= "华文楷体 " color=#000000> 请输入文章主题: </font> </b> <input type= "text " name= "theme " size= "31 "
style= "background-color:rgb(255,255,255);color:rgb(128,0,0) "> </font> </pre>
<pre align= "center "> <font size= "2 "> <b> <font face= "华文楷体 " color=#000000> 请输入文章的内容: </font> </b> <strong> <font
color= "#ff00ff ">   </font> </strong>
</font> <textarea rows= "8 " name= "content " cols= "80 "
style= "background-color:rgb(255,255,255);color:rgb(128,0,0) "> </textarea> </pre>
<pre> <input type= "submit " value= "发表 " name= "b1 "> <input type= "reset " value= "取消 "
name= "b2 "> </pre>
</form>
save.asp:
<%
check=request( "serialnum ")
if request( "theme ")= " " then '发表新文章时
if request( "parentid ")= " " then 'parentid是回复时的
argu= " "
else
argu= "?parentid= "&request( "parentid ")
end if
%>
<form method= "post " action= "save.asp <%=argu%> ">
<p align= "center "> <strong> <font size= "3 " color=vbwhite> 发表新文章: </font> </strong> </p>
<pre> <b> <font size= "2 " color= "vbwhite "> 请输入文章主题: <input type= "text " name= "theme " size= "38 "
style= "background-color:rgb(255,255,255);color:rgb(128,0,0) "> </font> </b> </pre>
<pre align= "center "> <b> <font size= "2 " color=vbwhite> 请输入文章内容:
</font> <textarea row= "2 " name= "content " cols= "50 "
style= "background-color:rgb(255,255,255);color:rgb(128,0,0) "> <%=request( "content ")%> </textarea> </b> </pre>
<pre> <input type= "submit " value= "发表 " name= "b1 " > <input type= "reset " value= "取消 " name= "b2 "> </pre>
<input type= "hidden " name= "serialnum " value= " <%=request( "serialnum ")%> ">
</form>
<%
response.end
end if
%>
<% dim cuid
sql= "select * from ever_user where uid in( "
sql=sql& "select uid from currentuser where serialnum= ' "&request( "serialnum ")& " ') "
set save_rs=conn.execute(sql)
if save_rs.eof or save_rs.bof then
response.write " <font color=purple size=5> 你还没有注册过,请选注册新用户进入! </font> <br> "
response.end
else
if isnull(save_rs( "essay ")) then
essay=0
else
essay=save_rs( "essay ")
end if
essay=essay+1
sql= "update ever_user set essay= "&essay& " where uid= ' "&save_rs( "uid ")& " ' "
conn.execute(sql)
end if
uid=save_rs( "uid ")
email=save_rs( "email ")
theme=request( "theme ")
dateandtime=now()
length=len(request( "content "))
homepage=save_rs( "homepage ")
content=request( "content ")
'插入数据
set cmdtemp=server.createobject( "adodb.command ")
set insertcursor=server.createobject( "adodb.recordset ")
'使用对象
cmdtemp.commandtext= "select * from details where(uid is null) "
cmdtemp.commandtype=1
set cmdtemp.activeconnection=conn
insertcursor.open cmdtemp,,1,3
insertcursor.addnew
insertcursor( "levels ")=1
insertcursor( "child ")= "0 "
insertcursor( "uid ")=uid
insertcursor( "email ")=email
insertcursor( "theme ")=theme
insertcursor( "dateandtime ")=dateandtime
insertcursor( "visittimes ")=0
insertcursor( "length ")=length
insertcursor( "homepage ")=homepage
insertcursor( "content ")=content
insertcursor.update
cuid=insertcursor( "num ")
insertcursor.close
'往表details中插入记录
cmdtemp.commandtext= "select * from new_essay where(uid is null) "
cmdtemp.commandtype=1
set cmdtemp.activeconnection=conn
insertcursor.open cmdtemp,,1,3
insertcursor.addnew
insertcursor( "uid ")=uid
insertcursor( "theme ")=theme
insertcursor( "issuetime ")=dateandtime
insertcursor( "fileid ")=cuid
insertcursor.update
insertcursor.close
'往表new_essay中插入记录
parentid=request( "parentid ")
if parentid <> " " then
sql= "select * from details where num= "&parentid
dim rootrs
set rootrs=conn.execute(sql)
on error resume next
rootrs.movefirst
child=rootrs( "child ")
levels=rootrs( "levels ")+1
'child= "0 "
child=cuid
'准备更新数据
sql= "update details set child = ' "&child& " ' where num= "&parentid
conn.execute(sql)
sql= "update details set levels= ' " &levels& " 'where num= "&cuid
conn.execute(sql)
'更新数据
end if%>
[解决办法]
回复文章可以通过 <input type= "hidden " id= '取文章id> 或通过session传值过来!在save.asp页判断有没有id值来区分是发表新文章还是回复文章了
[解决办法]
sql= "update details set child = ' "&child& " ' where num= "&parentid
conn.execute(sql)
Response.Write " <script> "
Response.WRite "alert( '更新数据成功！ '); "
Response.WRite "this.location= 'List.asp '; "
Response.WRite " </script> "
