myrequest.asp

网上购物系统

<%
Function my_request(ParaName,ParaType)
    Dim ParaValue
    ParaValue=Request(ParaName)
    If ParaType=1 Then
        ErrMsg=""
        If Not isNumeric(ParaValue) Then
            FoundErr=True
	        ErrMsg="<li>非法操作！</li>"
	        call WriteErrMsg(ErrMsg)
            response.end
        end if
    Else
        ParaValue=replace(ParaValue,"'","''")
    End if
    my_request=ParaValue
End function


'****************************************************
'过程名：WriteErrMsg
'作  用：显示错误提示信息
'参  数：无
'****************************************************
sub WriteErrMsg(ErrMsg)
	dim strErr
	strErr=strErr & "<link rel=stylesheet type=text/css href=style.css>"
	strErr=strErr & "<br><br><table cellspacing=1 cellpadding=4 width=40% class=tableborder align=center>"
	strErr=strErr & "<tbody class=altbg2>"
	strErr=strErr & "    <tr><td class=title>错误提示：</td></tr>"
	strErr=strErr & "	<tr><td>"&ErrMsg&"</td></tr>"
	strErr=strErr & "	<tr><td align=center><a href='javascript:history.go(-1)'>&lt;&lt; 点此返回操作</a></td></tr>"
	strErr=strErr & "</tbody>"
	strErr=strErr & "</table>"
	response.write strErr
	response.end
end sub

'提交成功返回信息
sub Ok(txt,url)
	response.write  "<br><br><br><br><br><br><table align=center border=1 width=50% height=88 cellspacing=0 cellpadding=4 style='border-collapse: collapse' bordercolor=#FFDDBB>"
	response.write  "<tr>"
	response.write  "<td bgcolor=#FFEFDF align=center><font color=red style='font-size: 12px'>"&txt&" 2秒钟后返回!</font></td>"
	response.write  "</tr>"
	response.write  "</table>"
	%><script language="Javascript">
    setTimeout("window.location='<%=url%>'",2000); 
    </script>
    <%
    'response.write  "<meta http-equiv=""refresh"" content=""2;url="&url&""">"
    response.end
end sub
%>