orderlist_save.asp

ASP网站源程序

<%@ language="VBScript"%>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<%
djfc="已经发货"
set rs=server.createobject("adodb.recordset")
sqltext="select Flag from OrderList where OrderNum='"&request("OrderNum")&"'"
rs.open sqltext,conn,1,1
if rs("Flag")="已经发货" then
Response.Write"<script>alert('您现在使用的是千寻科技提供的免费版本！\n\n请到官方网站：http://www.ybwz.com获取正式版本！');history.back(-1);</script>"
Else
Response.Write"<script>alert('您现在使用的是千寻科技提供的免费版本！\n\n请到官方网站：http://www.ybwz.com获取正式版本！');history.back(-1);</script>"
end if
%>