% username=trim(request.form("username_admin")) password=trim(request.form("password_admin")) if username<>"" and password<>"" then sql_check="select * from user where username='" & username & "' and password='" & password & "'" set rs_check=server.CreateObject("adodb.recordset") rs_check.open sql_check,conn,1,1 if rs_check.eof or rs_check.bof then session("query")=60 else session("query")=rs_check("query") session("username")=rs_check("username") rs_check.close set rs_check=nothing select case session("query") case 0 response.redirect "guanli_user.asp" case 1 response.redirect "guanli_news.asp" case 2 response.redirect "guanli_zhaopin.asp" case 3 response.redirect "guanli_producttype.asp" case 4 response.redirect "guanli_xunjia.asp" case 5 response.redirect "guanli_liuyan.asp" end select end if end if %> <% username_huiyuan=trim(request.form("username_huiyuan")) password_huiyuan=trim(request.form("password_huiyuan")) if username_huiyuan<>"" and password_huiyuan<>"" then sql_checkhuiyuan="select * from register where username='" & username_huiyuan &"' and password='" & password_huiyuan & "'" set rs_checkhuiyuan=server.createobject("adodb.recordset") rs_checkhuiyuan.open sql_checkhuiyuan,conn,1,1 if not rs_checkhuiyuan.eof and not rs_checkhuiyuan.bof then session("username_huiyuan")=rs_checkhuiyuan("username") response.write "" else session("username_huiyuan")="" end if rs_checkhuiyuan.close set rs_checkhuiyuan=nothing end if %> <%sql_news0="select * from news where type=0 and status=true order by addtime desc" set rs_news0=server.CreateObject("adodb.recordset") rs_news0.open sql_news0,conn,1,1 if rs_news0.recordcount>=3 then int_news0num=3 else int_news0num=rs_news0.recordcount end if sql_news1="select * from news where status=true order by addtime desc" set rs_news1=server.CreateObject("adodb.recordset") rs_news1.open sql_news1,conn,1,1 if rs_news1.recordcount>=8 then int_news1num=8 else int_news1num=rs_news1.recordcount end if sql_news4="select * from news where type=4 and status=true order by addtime desc" set rs_news4=server.CreateObject("adodb.recordset") rs_news4.open sql_news4,conn,1,1 if rs_news4.recordcount>=4 then int_news4num=4 else int_news4num=rs_news4.recordcount end if %>
|
|
|
|
|
|