网页分享asp代码（asp网站源码免费版）

今天给各位分享网页分享asp代码的知识，其中也会对asp网站源码免费版进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、ASP网页程序设计中10个非常有用的实例代码
• 2、网站ASP 代码 怎么写,
• 3、ASP 网页代码 大侠们帮忙注释一下，越详细越好
• 4、像人人网那样，输入视频链接地址分享，发布后网页自动呈现链接网页标题和截图，这个用ASP代码如何实现
• 5、求一个用ASP做出来的简单的网页源代码，急！！！！！！
• 6、求一段asp网页代码

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 代码 怎么写,

给你个参考例子吧

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 网页代码 大侠们帮忙注释一下，越详细越好

这段代码讲的是分类树状显示的效果。

SCRIPT language=javascript

function opencat(cat,img){

if(cat.style.display=="none"){

cat.style.display="";

img.src="img/class2.gif";

} else {

cat.style.display="none";

img.src="img/class1.gif";

}

}

/Script

这是JS脚本，当前分类没有展开的时候点一下展开，否则就隐藏。

下面那段就是把分类都显示出来。如果当前是在这个大类的页面时，默认当前大类展开状态

像人人网那样，输入视频链接地址分享，发布后网页自动呈现链接网页标题和截图，这个用ASP代码如何实现

直接在视频页面右上角 点 分享 标签。

另外，可以去优酷或者土豆这些网站，都是支持一键分享到人人的。这个具体操作你试一下就知道了，很简单的。

求一个用ASP做出来的简单的网页源代码，急！！！！！！

如果user表存在并且设计好。

假设字段分别为id，name，classname

那么如下代码即可。

name=request("name")

classname=request("classname")

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

rs.open "select * from user",conn,1,3

rs.addnew

rs("name")=name

rs("classname")=classname

rs.update

rs.close

html的表单部分，用你的那2个文本框来输入就可以了。name和classname可以根据你自己的需要来改名。

多动手，祝你成功。

求一段asp网页代码

a href="\qq.asp?A=nameB=2C=3D=4E=5F=6G=7"该页面/a

%a=request("a")

b=request("b")

c=request("c")

d=request("d")

e=request("e")

f=request("f")

g=request("g")

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

sql="select * from user where name="a

rs.open sql,conn,1,3

if not (rs.bof and rs.eof) then '一定有记录

rs("b")=b

rs("c")=c

rs("d")=d

rs("e")=e

rs("f")=f

rs("g")=g

rs.update

else

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

sql1="select * from user"

rs1.open sql1,conn,1,3

rs1("a")=a

rs1("b")=b

rs1("c")=c

rs1("d")=d

rs1("e")=e

rs1("f")=f

rs1("g")=g

rs1.close

set rs1=nothing

end if

rs.close

set rs=nothing%

没测试。有问题的话再问我就行咯。

网页分享asp代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于asp网站源码免费版、网页分享asp代码的信息别忘了在本站进行查找喔。