求助,发表完信息之后如何返回此页面
kovin 2004-12-03 11:48:47 <%
id=request.querystring("id")
set rs1=server.createobject("adodb.recordset")
sql1="select * from class where id="&id
rs1.open sql1,conn,1,1
%>
<TABLE cellSpacing=1 cellPadding=0 width=500 align=center bgColor=#0099ff
border=0>
<TBODY>
<TR>
<TD vAlign=top bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=4 width="98%" align=center bgColor=#0099ff
border=0>
<TBODY>
<TR>
<TD width="557" align="center" vAlign=middle bgColor=#ffffff><TABLE borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%"
border=1>
<TBODY>
<TR>
<TD align="center" bgColor=#fff0b3><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="78%" height="15"><span class="style1"><%=rs1("class")%></span></td>
<td width="22%" align="right">点击继续添加</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align="center" vAlign=middle bgColor=#ffffff><DIV align=center>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from aclass where class_id="&id
rs.open sql,conn,1,3
%>
<tr>
<%
i=1
do while not rs.eof
%>
<td align="center" height="20"><a href="<%=rs("web")%>"><span class="style1"><%=rs("name")%></span></a> 修改 删除</td>
<%
if i mod 2=0 then response.write "</tr><tr>"
i=i+1
rs.movenext
loop
%>
</tr>
</table>
</DIV></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<br>
<TABLE cellSpacing=1 cellPadding=0 width=500 align=center bgColor=#0099ff
border=0>
<TBODY>
<TR>
<TD vAlign=top bgColor=#ffffff><form method="post" action="" id="form" name="form">
<TABLE cellSpacing=0 cellPadding=4 width="98%" align=center bgColor=#0099ff
border=0>
<TBODY>
<TR>
<TD width="557" align="center" vAlign=middle bgColor=#ffffff><TABLE borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%"
border=1>
<TBODY>
<TR>
<TD align="center" bgColor=#fff0b3>添加治疗疾病网站(带*为必添项目)</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align="center" vAlign=middle bgColor=#ffffff><DIV align=center>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
</tr>
<tr>
<td width="39%" height="20" align="right">请输入网站名称:</td>
<td width="61%" height="20"><input name="name" type="text" id="name" size="30">
***</td>
</tr>
<tr>
<td width="39%" height="20" align="right">请输入网站地址:</td>
<td width="61%" height="20"><input name="web" type="text" id="web" size="40">
***</td>
</tr>
<tr>
<td width="39%" height="20" align="right">专家热线:</td>
<td width="61%" height="20"><input name="tel" type="text" id="tel" size="40">
</td>
</tr>
<tr>
<td width="39%" height="20" align="right">是否推荐此网站</td>
<td width="61%" height="20"><input type="radio" name="a_good" value="true">
推荐
<input name="a_good" type="radio" value="false" checked>
不推荐</td>
</tr>
</table>
</DIV></TD>
</TR>
<TR>
<TD width="557" align="center" vAlign=middle bgColor=#ffffff><input name="info" type="hidden" id="info" value="yes">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit" value="重写"></TD>
</TR>
</TBODY>
</TABLE>
</form></TD>
</TR>
</TBODY>
</TABLE>
<%
dim class_id
class_id=request.querystring("id")
if request.form("info")="" then
else
if request.form("name")="" then
response.write "<script language=javascript>alert('名称不能为空!');history.back(-1);</script>"
response.end
end if
if request.form("web")="" then
response.write "<script language=javascript>alert('网站不能为空!');history.back(-1);</script>"
response.end
end if
rs.addnew
rs("name")=trim(request.form("name"))
rs("web")=trim(request.form("web"))
rs("tel")=trim(request.form("tel"))
rs("a_good")=trim(request.form("a_good"))
rs("class_id")=class_id
rs.update
rs.close
set rs=nothing
response.write ("<script language=javascript>window.alert('添加成功!');location.href='adminaclass.asp?id="&class_id&"';</script>")
end if
%>
这个页面是进入分类的一个ID详细内容页面,现在的想法是添加完信息之后,弹出添加成功对话框,点确定,继续返回此ID的详细页面。。。
请问
response.write ("<script language=javascript>window.alert('添加成功!');location.href='adminaclass.asp?id="&request.querystring("id")&"';</script>")
这段应该如何获取这个ID呢。。。。。