📄 wellcome.asp

📁 动力商业广告Sql版本全方位的WEB开发学习应用交流共享服务
💻 ASP
字号:
<!--#include file="../../inc/conn.inc" -->

<%

Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection=conn
cmd.CommandText="user_login"
cmd.CommandType=&H0004

cmd.Parameters.Append cmd.CreateParameter("@username",200,,50)
cmd.Parameters.Append cmd.CreateParameter("@password",200,,50)
cmd.Parameters.Append cmd.CreateParameter("@last_login_ip",200,,16)

cmd.Parameters.Append cmd.CreateParameter("@userid",3,2)
cmd.Parameters.Append cmd.CreateParameter("@global_access",200,2,255)
cmd.Parameters.Append cmd.CreateParameter("@result",16,2)


cmd("@username")=request("username")
cmd("@password")=request("password")
cmd("@last_login_ip")=Request.ServerVariables("REMOTE_ADDR")

cmd.execute

if cmd("@result")="0" then
	login_result=0 '用户名或密码错误
		else
			login_result=1 '登陆成功
			session("global_access")=cmd("@global_access")
			session("userid")=cmd("@userid")
			session.timeout=45
end if

Set rs = Server.CreateObject("ADODB.Recordset")



%>

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../../css/ads.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<!--#include file="../../inc/top.inc" -->
<p>&nbsp;</p>
<table width="339" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="px14"> 
<% if login_result=0 then %>
抱歉，用户名或密码错误！请<a href="login.asp">重新登陆</a>。 
<% else %>
<img src="../../images/right.gif" width="20" height="17" align="absmiddle"> 登陆成功，欢迎使用互动广告管理系统！</td>

</tr>
</table>
<p><img src="../../images/iico.gif" width="15" height="15" align="absmiddle"> 
<span class="px14">查看报表快捷方式</span></p>

<form method="post" action="../report/group_report_summary.asp">


<%
sql="select group_id,group_name from group_info order by group_id Desc"
rs.open sql,conn,0,1
%>
<select name="group_id">
<option selected value="0">选择广告组</option>
<% do while not rs.eof %>
<option value="<%=rs("group_id")%>"><%=rs("group_name")%></option>
<%
rs.movenext
loop
rs.close
%>
</select>
<input type="submit" name="Submit" value="查看报表">
</form><form method="post" action="../report/ad_report_summary.asp">


<%
sql="select ad_id,title from ad_info order by ad_id Desc"
rs.open sql,conn,0,1
%>
<select name="ad_id">
<option selected value="0">选择广告条</option>
<% do while not rs.eof %>
<option value="<%=rs("ad_id")%>"><%=rs("title")%></option>
<%
rs.movenext
loop
rs.close
%>
</select>
<input type="submit" name="Submit" value="查看报表">
</form>
<% end if %>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

<!--#include file="../../inc/bottom.inc" -->

</body>
</html>
<%
set rs=nothing
set cmd=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -