logout.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/skin.asp-->

<%
dim const_txl_HomeUrl,user_ip
const_txl_HomeUrl=""
OpenDatabase
txl_SiteHead const_txlname&"-安全退出"
user_ip=Session("user_ip")
If user_ip<>"" and  Session("username")<>"" then
	conn.execute ("update online set  sname=null where ip='"&user_ip&"'")
	Call printsuc("退出成功!","<li>恭喜你,成功退出Wap影音!</li>",779)
else
	Call printerror("退出失败!","<li>会话超时或者已经退出!</li>",779)
end if
Session("username")=""
Session("usertype")=""

CloseDataBase
web_end
%>