你想先试做就先做啊!遇到了难题就去想,实在想不出来就发贴子问啊!
<!--#include file="conn.asp"-->
<%
if request.Form("title1")="" then
response.Write"<script language=javascript>alert('回复的标题不能为空');history.back(-1);</script>"
response.End()
end if
if request.Form("content")="" then
response.Write"<script language=javascript>alert('您还是写点内容吧!');history.back(-1);</script>"
response.End()
end if
user=session("user")
title=request.Form("title1")
content=request.Form("content")
image=request.Form("head")
type1=request("nx")
retitle=request("id1") '这里就是那张发表留言的标题,记住必须和前一张表的留言标题一样啊!传值的时候,这是我原来的程序,如果现在的话我会记录他的ID,这样就很简单了!免得传递汉字怕出错。
user1=request("tt")
dim ren
randomize timer
ren=Int((20-10)*Rnd+10)+10 '这里是随机的人气,你不用管他!
set rs=server.createobject("adodb.recordset")
rs.open"revert",conn,1,3
rs.addnew array("write1","title1","content1","image1","type1","retitle"),_
array(user,title,content,image,type1,retitle)
set rs1=server.createobject("adodb.recordset")
sql="update login set renqi=renqi+'"&ren&"' where user='"&user&"'"
rs1.open sql,conn,1,3
response.Redirect ("xianshi.asp?id="&retitle&"&nx="&type1&"&user1="&user1&"")'这句就是回到你当前回复的留言那个页面的重定向!
%>
自己先去研究一下吧!
[此贴子已经被作者于2006-9-10 21:10:35编辑过]