当前位置:首页 > 代码 > 正文

asp课程设计代码(ASP课程)

admin 发布:2022-12-19 20:08 104


今天给各位分享asp课程设计代码的知识,其中也会对ASP课程进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!

本文目录一览:

具体的asp代码怎么写

public class Global : System.Web.HttpApplication

{

protected void Application_Start(object sender, EventArgs e)

{

// 在应用程序启动时运行的代码

int count = 0;

StreamReader srd;

//取得文件的实际路径

string file_path = Server.MapPath("counter.txt");

//打开文件进行读取

srd = File.OpenText(file_path);

while (srd.Peek() != -1)

{

string str = srd.ReadLine();

count = int.Parse(str);

}

srd.Close();

object obj = count;

//将从文件中读取的网站访问量存放在Application对象中

Application["counter"] = obj;

}

protected void Session_Start(object sender, EventArgs e)

{

// 在新会话启动时运行的代码

Application.Lock();

//数据累加

int Stat = 0;

//获取Application对象中保存的网站总访问量

Stat = (int)Application["counter"];

Stat += 1;

object obj = Stat;

Application["counter"] = obj;

//将数据记录写入文件

string file_path = Server.MapPath("counter.txt");

StreamWriter srw = new StreamWriter(file_path, false);

srw.WriteLine(Stat);

srw.Close();

Application.UnLock();

}

protected void Application_BeginRequest(object sender, EventArgs e) {

}

protected void Application_AuthenticateRequest(object sender, EventArgs e) {

}

protected void Application_Error(object sender, EventArgs e) {

}

protected void Session_End(object sender, EventArgs e) {

}

protected void Application_End(object sender, EventArgs e)

{

// 在应用程序关闭时运行的代码

int Stat = 0;

Stat = (int)Application["counter"];

string file_path = Server.MapPath("counter.txt");

StreamWriter srw = new StreamWriter(file_path, false);

srw.WriteLine(Stat);

srw.Close();

}

}

}

建立个Counter.text就用于存储访问量数据,需要显示的地方接收Application["counter"]的值就可以了。

网站ASP 代码 怎么写,

给你个参考例子吧

connection.asp里的代码是:

%

set conn=server.createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source="server.MapPath("student.mdb")

%

2.yanzheng.asp里的代码是:

!--#include file="connection.asp"--

%

dim zhanghao,mima

zhanghao=request("zhanghao")

mima=request("mima")

if zhanghao="" then

%

script language=javascript

alert("帐号为空");

location.href="denglu.asp"

/script

% end if %

% if mima="" then

%

script language=javascript

alert("密码为空");

location.href="denglu.asp"

/script

% end if %

%set rs=server.createobject("adodb.recordset")

rs.open "select * from student where zhanghao='"zhanghao"'",conn,1,3

if not rs.eof then

if mima=rs("mima") then

session("zhanghao")=zhanghao

Response.write("scriptlocation.href('index.asp')/script" )

else

response.write ("scriptalert('用户密码错误');location.href('denglu.asp')/script")

end if

end if

if rs.eof then

response.write ("scriptalert('用户帐号错误');location.href('denglu.asp')/script")

end if

set rs=nothing

rs.close

%

二、

conn.asp

 

%

Set conn=Server.CreateObject("ADODB.Connection")

connstr="DBQ="+server.mappath("haha.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"

conn.Open connstr

%

 

index.asp

 

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%

!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" ""

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

title无标题文档/title

/head

 

body

form name="form1" method="post" action="login.asp"

table width="50%" height="108" border="0" cellpadding="0" cellspacing="0"

tr

td用户名:/td

tdinput name="us" type="text" id="us"/td

/tr

tr

td密码:/td

tdinput name="pa" type="password" id="pa" value=""/td

/tr

tr

td /td

tdinput type="submit" name="Submit" value="提交"/td

/tr

/table

/form

/body

/html

 

login.asp

 

!--#include file="conn.asp"--

%

us=replace(request.form("us"),"'","’")

pa=replace(request.form("pa"),"'","’")

%

%

set rs=server.createobject("adodb.recordset")

sql="select * from haha where us='"us"' and pa='"pa"'"

rs.open sql,conn,1,1

%

%

if rs.eof or rs.bof then

response.write"密码错误~"

else

response.redirect"main.asp"

end if

%

 

三、

连接数据库(conn.asp)

%

dim db,conn,connstr

db="@data.mdb"

set Conn = server.CreateObject("ADODB.Connection")

connstr="provider=microsoft.jet.oledb.4.0;data source=" server.MapPath("../data/"db"")

conn.Open connstr

%

登录页面(login.asp)

% @language=vbscript %

!--#include file="conn.asp"--

%

On Error Resume Next

dim uid

dim pwd

uid=trim(request.Form("uid")) '获得用户名

pwd=trim(request.form("pwd")) '获得密码

dim rs

set rs=server.createobject("adodb.recordset")

 

if uid"" then

dim sqlstr

sqlstr="select uid,pwd from admin where uid='"replace(uid,"'","''")"' and pwd='"replace(pwd,"'","''")"'"

rs.open sqlstr,conn,3,1

if not rs.eof then

session("uid")=uid

response.redirect "login_ok.asp" '重定位url

else

response.redirect "error.htm"

end if

else

response.redirect "error.htm"

end if

%

ASP网页程序设计中10个非常有用的实例代码

ASP网页程序设计中10个非常有用的实例代码

ASP可以与Web数据库以及其它程序进行交互,是一种简单、方便的编程工具。下面由我带来ASP网页程序设计中10个非常有用的实例代码。

1.如何用Asp判断你的网站的.虚拟物理路径

答:使用Mappath方法: %= Server.MapPath("\")%

2.我如何知道使用者所用的浏览器

答:使用the Request object方法:

3.如何计算每天的平均反复访问人数

答:解决方法

% startdate=DateDiff("d",Now,"01/01/1990")

if strdate 0 then startdate=startdate*-1

avgvpd=Int((usercnt)/startdate) %

显示结果

% response.write(avgvpd) %

that is it.this page have been viewed since November 10,1998

4.如何显示随机图象

% dim p,ppic,dpic

ppic=12

randomize

p=Int((ppic*rnd)+1)

dpic="graphix/randompics/"p".gif"

%

显示

img src=" %=dpic% "

5.如何回到先前的页面

答: a href=" %=request.serverVariables("Http_REFERER")% " preivous page /a

或用图片如: img src="arrowback.gif" alt=" %=request.serverVariables("HTTP_REFERER")% "

6.如何确定对方的IP地址

答: %=Request.serverVariables("REMOTE_ADDR)%

7.如何链结到一副图片上

答: % @Languages=vbscript %

% response.expires=0

strimagename="graphix/errors/erroriamge.gif"

response.redirect(strimagename)

%

8.强迫输入密码对话框

答:把这句话放载页面的开头

% response.status="401 not Authorized"

response.end

%

9.如何传递变量从一页到另一页

答:用 HIDDEN 类型来传递变量

% for each item in request.form %

input namee=" %=item% " type="HIDDEN"

value=" %=server.HTMLEncode(Request.form(item)) % "

% next %

/form

10.怎样才能使得htm文件如同asp文件一样可以执行脚本代码

答:Internet Sevices Manager - 选择default web site - 右鼠键- 菜单属性-〉主目录- 应用程序设置(Application Setting)- 点击按钮 "配置"- app mapping - 点击按钮"Add" - executable browse选择 \WINNT\SYSTEM32\INETSRV\ASP.DLL EXTENSION 输入 htm method exclusions 输入PUT.DELETE 全部确定即可。但是值得注意的是这样对htm也要由asp.dll处理,效率将降低。

;

ASP代码解释,越详细越好,马上论文答辩上要用

'MD5加密取得的值

apass=md5(apass)

'在数据库 [admin] 表中查找 用户名 = 变量'aname'; 密码 = 变量'apass' 用户

dim sql,rs

sql="select a_name,a_pass,a_flag from admin where a_name='"aname"' and a_pass='"apass"'"

set rs=server.createobject("adodb.recordset")

rs.open sql,conn,1,1

’如果记录集rs为空,则表示没有此记录,表中没有这个用户信息,登陆失败

if rs.BOF and rs.EOF then

ErrMsg="用户名或是密码错误!"

Call LoginError(ErrMsg)

rs.close '关闭记录集

set rs=Nothing '清空记录集

conn.close '关闭数据库连接

set conn=Nothing '清空数据库连接

response.End

elseif Not(rs.BOF or rs.EOF) then '如果查询结果不为空,则表示记录存在,将用户信息写入session

session("aname")=rs("a_name") '用户名写入session

session("admin_flag")="into" '用户权限写入session

session("admin_sys")=rs("a_flag")

response.Redirect("useradmin.asp") '跳转到用户中心页面,用户登陆成功

rs.close '关闭记录集

set rs=Nothing '清空记录集

conn.close '关闭数据库连接

set conn=Nothing '清空数据库连接

response.End

关于asp课程设计代码和ASP课程的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。

版权说明:如非注明,本站文章均为 AH站长 原创,转载请注明出处和附带本文链接;

本文地址:http://ahzz.com.cn/post/22218.html


取消回复欢迎 发表评论:

分享到

温馨提示

下载成功了么?或者链接失效了?

联系我们反馈

立即下载