一聚教程网：一个值得你收藏的教程网站
PHP教程 Css教程 操作系统 数据库
希赛统招专升本
她伴
每日记事本
手机录屏精灵
嘎嘎记账
简爱相机
米加世界
二维码设计
天煞异种
华体会
《觅长生》丹方汇总
《dnf》2022金秋幻梦蝴蝶礼包时装分享
《寻找夏日的宝物》全事件流程如何过
字母圈是什么梗 字母圈什么意思
《绯月仙行录》魔界怎么到达
龙图是什么梗 龙图是什么意思
反差婊是什么梗 反差婊是什么意思
《觅长生》丹方配方及效果汇总
苹果iOS系统怎么安装AVnight（爱威奶）软件
《周五夜放克》网页版地址一览
时间：2010-11-01 编辑：简简单单 来源：一聚教程网
<a target="_blank" href="/asp/asp.html">asp教程</a>用户登录，退出登录函数 用户名： 密 码： 保持登录： 不保存 保持一天 保持一个月 login.asp <% on error resume next set conn=server.createobject("adodb.connection") conn.open connstr if err then response.write ""&issqlver&"数据库教程连接出错，请检查连接字串。"&err.source&" ("&err.number&")" set conn = nothing err.clear response.end end if dim expires,userpass username=request("username") userpass=md5(request("userpass"),16) expires=request("issave") if username<>"test" then set rs=server.createobject("adodb.recordset") rs.open"select * from lg50_my_user where username='"&username&"' and password='"&userpass&"'",conn,1,3 if rs.eof and rs.bof then rs.close set rs=nothing response.write("") response.end else response.cookies(cookiesname)("username")=username if int(expires)>0 then response.cookies(cookiesname).expires = date+expires response.redirect ("index.asp") end if else response.cookies(cookiesname)("username")=username response.redirect ("index.asp") response.end end if %> 退出登录 <% if request("out")="bbs" then response.cookies(cookiesname)("username")="" response.redirect "/www.111com.net/login.asp?menu=out&bbs=bbs" else response.cookies(cookiesname)("username")="" response.redirect ("login.htm") end if %> 上一个： asp读写文件函数 下一个： 简单asp投票系统源码 相关文章 VBS 批量Ping的项目讲解 09-19 如何封装一个Ajax函数介绍 09-16 ASP实现加法验证码方法 09-16 ASP错误捕获的几种常规处理方法介绍 09-16 ajax实现城市三级联动的代码介绍 09-16 asp中获取日期为星期几的技巧 09-14 热门栏目 php教程 php入门 php安全 php安装 php常用代码 php高级应用 asp.net教程 基础入门 .Net开发 C语言 VB.Net语言 WebService 手机开发 安卓教程 ios7教程 Windows Phone Windows Mobile 手机常见问题 css教程 CSS入门 常用代码 经典案例 样式布局 高级应用 网页制作 设计基础 Dreamweaver Frontpage js教程 XNL/XSLT 办公数码 word excel powerpoint 金山WPS 电脑新手 jsp教程 Application与Applet J2EE/EJB/服务器 J2ME开发 Java基础 Java技巧及代码
login.asp
<% on error resume next set conn=server.createobject("adodb.connection") conn.open connstr if err then response.write ""&issqlver&"数据库教程连接出错，请检查连接字串。"&err.source&" ("&err.number&")" set conn = nothing err.clear response.end end if dim expires,userpass username=request("username") userpass=md5(request("userpass"),16) expires=request("issave") if username<>"test" then set rs=server.createobject("adodb.recordset") rs.open"select * from lg50_my_user where username='"&username&"' and password='"&userpass&"'",conn,1,3 if rs.eof and rs.bof then rs.close set rs=nothing response.write("") response.end else response.cookies(cookiesname)("username")=username if int(expires)>0 then response.cookies(cookiesname).expires = date+expires response.redirect ("index.asp") end if else response.cookies(cookiesname)("username")=username response.redirect ("index.asp") response.end end if %>
<% on error resume next set conn=server.createobject("adodb.connection") conn.open connstr if err then response.write ""&issqlver&"数据库教程连接出错，请检查连接字串。"&err.source&" ("&err.number&")" set conn = nothing err.clear response.end end if
dim expires,userpass username=request("username") userpass=md5(request("userpass"),16) expires=request("issave") if username<>"test" then
set rs=server.createobject("adodb.recordset") rs.open"select * from lg50_my_user where username='"&username&"' and password='"&userpass&"'",conn,1,3 if rs.eof and rs.bof then rs.close set rs=nothing response.write("") response.end else response.cookies(cookiesname)("username")=username if int(expires)>0 then response.cookies(cookiesname).expires = date+expires response.redirect ("index.asp") end if
else response.cookies(cookiesname)("username")=username response.redirect ("index.asp") response.end end if %>
退出登录
<% if request("out")="bbs" then response.cookies(cookiesname)("username")="" response.redirect "/www.111com.net/login.asp?menu=out&bbs=bbs" else response.cookies(cookiesname)("username")="" response.redirect ("login.htm") end if %>
上一个： asp读写文件函数
下一个： 简单asp投票系统源码
