code.asp
------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
Dim VCode
VCode = Trim(Request.Form("VCode"))
If VCode = "" Then
%>
<form name="form1" id="form1" method="post" action="">
<table width="70%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#000000">
<tr bgcolor="#FFFFFF">
<th colspan="3" bgcolor="#CCCCCC">演示</th>
</tr>
<tr bgcolor="#FFFFFF">
<td width="30%">请输入验证码：</td>
<td width="47%"><input name="VCode" type="text" id="VCode" size="10" />
<img src="showcode.asp?type=<%=Request.QueryString("type")%>" alt="验证码" border="1" align="absmiddle" /></td>
<td width="23%" align="center"><input type="submit" name="Submit" value="提交" /></td>
</tr>
</table>
</form>
<%
Else
%>
<table width="70%" border="0" align="center">
<tr>
<td><span style="color: #FF0000">
<%
If Not IsNumeric(VCode) Then
Response.Write "验证失败，<a href='" & Request.ServerVariables("HTTP_REFERER") & "'> ← 返回上一页</a>"
ElseIf CLng(VCode) = Session("VerifyCode") Then
Response.Write "验证成功，<a href='" & Request.ServerVariables("HTTP_REFERER") & "'> ← 返回上一页</a>"
Else
Response.Write "验证失败，<a href='" & Request.ServerVariables("HTTP_REFERER") & "'> ← 返回上一页</a>"
End If
%>
</span></td>
</tr>
</table>
<%
End If
%>
</body>
</html>
--------------------------------------------------
showcode.asp
-------------------------------------------------------
(出错!还有一个文件上不了)
------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
Dim VCode
VCode = Trim(Request.Form("VCode"))
If VCode = "" Then
%>
<form name="form1" id="form1" method="post" action="">
<table width="70%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#000000">
<tr bgcolor="#FFFFFF">
<th colspan="3" bgcolor="#CCCCCC">演示</th>
</tr>
<tr bgcolor="#FFFFFF">
<td width="30%">请输入验证码：</td>
<td width="47%"><input name="VCode" type="text" id="VCode" size="10" />
<img src="showcode.asp?type=<%=Request.QueryString("type")%>" alt="验证码" border="1" align="absmiddle" /></td>
<td width="23%" align="center"><input type="submit" name="Submit" value="提交" /></td>
</tr>
</table>
</form>
<%
Else
%>
<table width="70%" border="0" align="center">
<tr>
<td><span style="color: #FF0000">
<%
If Not IsNumeric(VCode) Then
Response.Write "验证失败，<a href='" & Request.ServerVariables("HTTP_REFERER") & "'> ← 返回上一页</a>"
ElseIf CLng(VCode) = Session("VerifyCode") Then
Response.Write "验证成功，<a href='" & Request.ServerVariables("HTTP_REFERER") & "'> ← 返回上一页</a>"
Else
Response.Write "验证失败，<a href='" & Request.ServerVariables("HTTP_REFERER") & "'> ← 返回上一页</a>"
End If
%>
</span></td>
</tr>
</table>
<%
End If
%>
</body>
</html>
--------------------------------------------------
showcode.asp
-------------------------------------------------------
(出错!还有一个文件上不了)
