<% '------------------------------------- '功能：用户修改网站信息 '作者：ITlearner '演示：http://www.itlearner.com/link/ '------------------------------------- dim action dim strerror %> 管理网站信息_<%=WebName & ChannelName%> - Powered By ITlearner
网路联盟┊门户┊小游戏┊软件┊商城┊客齐黄山┊下载┊汽车娱乐┊Hsqskj┊超级音像┊营销论坛
黄山网路社区-友情合作
欢迎您使用自助友情链接系统! 申请友情链接
收藏本站┊门户首页
系统使用说明 | 申请友情链接 | 链接网站列表 | 所有友情链接 | 管理网站信息
<% action=request("action") dim username username = session("username") if action="chklogin" then call chklogin elseif action="loginform" then call loginform elseif action="getcode" and username<>"" then call getcode elseif action="showlog" and username<>"" then call showlog elseif action="saveedit" and username<>"" then call saveedit elseif action="exit" then call exitlogin else call listinfo end if sub exitlogin session("username")="" strerror="
  • 成功退出" call loginform end sub sub chklogin dim username,password username=hx.checkstr(request.form("username"),12) password=hx.checkstr(request.form("password"),12) if username="" or password="" then strerror="
  • 请重新输入" call loginform else dim rs set rs=hx.execute("select * from CL_Link where username='"&username&"'") if rs.eof then strerror="
  • 无此用户名" call loginform else if rs("password")<>md5(password,16) then strerror="
  • 密码不符" call loginform else session("username")=username call listinfo end if end if end if end sub sub shownavbar %>

    获取链接代码 修改网站信息 详细点击记录 退出管理

    <% end sub sub getcode call shownav("获取链接代码") %>
    <%call shownavbar%>

    文字链接 代码：

    显示样式：<%=WebName%>

    图标链接 代码：

    显示样式：<%=WebAlt%>
    <% end sub sub listinfo if session("username")="" then call loginform exit sub end if dim rs set rs=hx.execute("select * from CL_Link where username='"&session("username")&"'") call shownav("修改网站信息") %>
    <%call shownavbar%>
    用 户 名： <%=rs("username")%>(不能修改)
    网站名称： "> * 不能超过12个字符（6个汉字）
    网站地址： "> * 不能超过100个字符
    图片地址：
    ">
    可选项，不能超过100个字符 （图片大小尺寸为:88*31，如果暂时没有，请留空）
    网站类型： * 请正确选择您网站的类型
    密　　码： "> * 不能超过12个字符
    密码确认： "> * 请再输一遍确认
    联系邮箱： "> * 请输入有效的邮件地址，不能超过50个字符
    网站简介：
    * 不能超过200个字符（100个汉字）
    <%end sub%> <%sub loginform call shownav("第一步：登陆") %>
    <%=strerror%>
    用 户 名：
    密　　码：
    <%end sub%> <%sub showlog call shownav("详细点击记录") dim rs%>
    <%call shownavbar%> <% dim allin,allout allin = hx.execute("select count(0) from CL_Log where inout=0 and dateandtime>"&SqlNowString&"-3 and username='"&session("username")&"'")(0) allout = hx.execute("select count(0) from CL_Log where inout=1 and dateandtime>"&SqlNowString&"-3 and username='"&session("username")&"'")(0) %>
    最近三天点入点出日志统计：点入：<%=allin%>次 点出：<%=allout%>次

    点入记录（你站对我站的贡献）最近3天的记录

    <% set rs=hx.execute("select * from CL_Log where inout=0 and dateandtime>"&SqlNowString&"-3 and username='"&session("username")&"' order by id desc") if rs.eof then Response.write "" else do while not rs.eof %> <% rs.movenext loop end if set rs=nothing%>
    时间 IP地址 来源
    暂时还没有记录
    <%=rs("dateandtime")%> <%=""&rs("ip")&""%> <%if trim(rs("come"))="" then response.write "无" else response.write ""&rs("come")&"" end if%>

    点出记录（我站对你站的贡献）最近3天的记录

    <% set rs=hx.execute("select * from CL_Log where inout=1 and dateandtime>"&SqlNowString&"-3 and username='"&session("username")&"' order by id desc") if rs.eof then Response.write "" else do while not rs.eof %> <% rs.movenext loop end if set rs=nothing%>
    时间 IP地址 来源
    暂时还没有记录
    <%=rs("dateandtime")%> <%=""&rs("ip")&""%> <%if trim(rs("come"))="" then response.write "无" else response.write ""&rs("come")&"" end if%>
    <%end sub%> <% sub saveedit dim username,sitename,siteurl,sitelogo,email,password,pwdconfirm,webtype,siteintro sitename=hx.checkstr(request.form("sitename"),12) siteurl=hx.checkstr(request.form("siteurl"),100) sitelogo=hx.checkstr(request.form("sitelogo"),100) email=hx.checkstr(request.form("email"),50) password=hx.checkstr(request.form("password"),16) pwdconfirm=hx.checkstr(request.form("pwdconfirm"),16) webtype=request.form("webtype") siteintro=hx.checkstr(request.form("siteintro"),250) dim blnerror,strerror blnerror=false if session("username")="" then blnerror=true strerror="
  • 意外出错，请重新登陆" end if if sitename="" or siteurl="" or password="" or siteintro="" or email="" then blnerror=true strerror=strerror & "
  • 请检查是否有必填信息没有填写" end if if hx.blnfilter(sitename,1) then blnerror = true strerror = strerror & "
  • 网站名称不能包含某些特殊关键词" end if if hx.blnfilter(siteintro,1) then blnerror = true strerror = strerror & "
  • 网站简介不能包含某些特殊关键词" end if if hx.blnfilter(siteurl,2) then blnerror = true strerror = strerror & "
  • 此域名已经被屏蔽！
    • " end if if not isnumeric(webtype) then blnerror=true strerror=strerror & "
  • 请正确选择网站类型" end if if password<>pwdconfirm then blnerror=true strerror=strerror & "
  • 两次密码不相同" end if if blnerror=true then call shownav("错误信息") response.write "
    " response.write strerror response.write "

    << 返回上一页 << 返回管理首页

    " response.write "
    " else if sitelogo="" then sitelogo="http://" & hx.BaseUrl & "images/wu.gif" elseif left(sitelogo,7)<>"http://" then sitelogo="http://" & sitelogo end if if left(siteurl,7)<>"http://" then siteurl="http://" & siteurl end if dim rs,sql sql= "select * from CL_Link where username='"&session("username")&"'" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,3 rs("email")=email rs("sitename")=sitename rs("webtype")=webtype if len(password)<16 then rs("password")=md5(password,16) end if rs("siteurl")=siteurl rs("siteintro")=siteintro rs("sitelogo")=sitelogo rs.Update rs.close set rs=nothing call shownav("资料修改成功") response.write "
    " response.write "

    资料修改成功

    " response.write "

    << 返回上一页 << 返回管理首页 << 退出管理

    " response.write "
    " '删除系统缓存 set hxcache=new cls_cache hxcache.DelCahe("js") set hxcache=nothing end if end sub sub shownav(str) %>
    您的位置:首页 -- <%=ChannelName%> -- 管理网站信息 -- <%=str%>
    <% end sub %> <%set hx=nothing%>