可用链接标签链接到子程序？请见红色的代码
noteid=request.querystring("noteid")subject=left("re:"&request.querystring("subject"),17)
'response.write subject
%>
<html>
<head>
<title>回复留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
.class1{font:10pt; color:#9900CC;}
.class2{font:11pt;}
.class3{background-color:#eeeeee;border-style:solid;border-color:#6666cc;border-width:1;}
-->
</style>
</head>
<body bgcolor="#FFFFFF" style="font:10pt" topmargin=8>
<div id="floater" align="center" style="left: 15px; top: 2px; width: 280;font:10pt">
<table width=270 border=0 cellspacing="1" bgcolor="#b0cfef">
<tr>
<td align=center bgcolor="#D8F3FE"> <b><font color=#669900 class=class2>留言回复</font><font color=999999 face=arial size=4>...</font>
</b>
</td>
</tr>
<tr>
<td height="278" align=center bgcolor="#ffffff">
<form action="backinsert.asp" method="post" name="noteback">
<input type=hidden name=noteid value=<%=noteid%>>
<p align="center">
<br>
<font class=class1>您的呢称</font>  <input name="userid" size="22" maxlength=20 class=class3>
<br>
<font class=class1>您的信箱</font>  <input name="email" size="22" class=class3>
<br>
<font class=class1>留言主题</font>  <input name="subject" size="22" class=class3 value=<%=subject%>>
<br>
<font class=class1><font color=#FF00FF>(-- 留言主题请不要超过17个字 --)</font></font><br>
<br>
<font class=class1>
详细内容</font> <br>
<textarea name="content" cols="31" rows="4"></textarea>
<table border=0 width="90%"><tr>
<td valign=middle> <font color=#D8F3FE>|</font><a name="tijiao"><font color=#7070ff class=class1 style="cursor:hand"> 完 成 </font></a> </td>
<td valign=middle> <font color=#D8F3FE>|</font><a href="javascript:document.forms[0].reset()"><font color=#7070ff class=class1 style="text-decoration:none"> 重 写 </font></a></td>
<td valign=middle><a href="vbscript:window.close()"><font color=#7070ff class=class1 style="text-decoration:none"> 关 闭 </font></a><font color=#D8F3FE>|</font></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</div>
</body>
</html>
<script language=vbscript>
<!--
sub tijiao_onclick()
dim msgstr
dim userid
dim email
dim subject
msgstr=""
userid=trim(noteback.userid.value)
email=trim(noteback.email.value)
subject=trim(noteback.subject.value)
if userid="" then
msgstr=msgstr&"请输入您的大名！ "
end if
if email="" then
msgstr=msgstr&"请输入您的email！ "
end if
if subject="" then
msgstr=msgstr&"请为您的留言加上标题"
end if
if msgstr<>"" then
alert msgstr
exit sub
else
noteback.submit()
end if
end sub
-->
</script>
