asp 源代码，找一款asp+access源代码高分,追加

编程之家2023-11-01116次浏览

各位老铁们，大家好，今天由我来为大家分享asp 源代码，以及找一款asp+access源代码高分,追加的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！

asp程序实现简单的注册,登录网页的源代码

1，（index.asp用户登陆页面）

<html>

<head>

<!--

body,td,th{

font-family:宋体;

font-size: 14px;

}

-->

</style>

</head>

<body>

<p>会员注册系统</p>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</form>

</center>

</body>

</html>

2，（login.asp用户数据处理文件）

'打开数据库判断用户是否存在,info为表名,username为字段名

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

sqlc="select* from info where username='"&request.Form("username")&"' and password='"&request.Form("password")&"'"

rsc.open sqlc,conn,1,1

session("username")=rsc("username")

session("password")=rsc("password")

session.Timeout=30

set rsc=nothing

response.Redirect("change.asp")

'如果用户不存在,session("username")为空

3，（change.asp用户信息修改页面）

<html>

<head>

<!--

body,td,th{

font-size: 14px;

}

-->

</style></head>

<body>

<br>

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

sqlc="select* from info where username='"&session("username")&"' and password='"&session("password")&"'"

rsc.open sqlc,conn,1,1

nr=rsc("password")

username=rsc("username")

password=rsc("password")

sex=rsc("sex")

qq=rsc("qq")

mail=rsc("mail")

add=rsc("add")

personalinfo=rsc("personalinfo")

vv=rsc("ntime")

set rsc=nothing

if nr="" then

response.Redirect("index.asp")

end if

if strcomp(nr,request.Form("password"))=0 then

response.Write("欢迎你！"&request.Form("username"))

response.Write("你是在"&vv&"注册的")

session("username")=request.Form("username")

end if

if session("username")="" then

response.Redirect("index.asp")

end if

<tr>

*</td>

</tr>

<tr>

*</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<% if strcomp(request.QueryString("se"),"y")=0 then

session("username")=""

response.Redirect("index.asp")

end if

</tr>

</table>

</form>

if strcomp(request.QueryString("ac"),"ch")=0 then

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

sql="select* from info where username='"&session("username")&"'"

rs.open sql,conn,1,3

rs("username")=request.Form("username")

rs("password")=request.Form("password")

rs("mail")=request.Form("mail")

rs("sex")=request.Form("sex")

rs("qq")=request.Form("qq")

rs("add")=request.Form("add")

rs("personalinfo")=request.Form("personalinfo")

rs.update

set rs=nothing

response.Write("修改完成！")

end if

</body>

</center>

</html>

4，（reg.asp新用户注册页面）

<html>

<head>

<!--

body,td,th{

font-family:宋体;

font-size: 14px;

}

-->

</style>

</head>

<body>

用户注册<br>

=request.QueryString("msg")

<tr>

*</td>

</tr>

<tr>

*</td>

</tr>

<tr>

*</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</form>

</center>

</body>

</html>

5，（addnewdata.asp新用户注册数据处理文件）

<html>

<head>

</head>

<body>

ac=request.QueryString("ac")

msg="注册错误信息"

if request.Form("username")="" then

msg=msg&"<br>"&"用户名不能为空"

end if

if strcomp(cstr(request.Form("password")),cstr(request.Form("password2")))<>0 then

msg=msg&"<br>"&"两次密码输入不同"

end if

if len(request.Form("password"))<6 then

msg=msg&"<br>"&"密码太简单"

end if

if strcomp(msg,"注册错误信息")>0 then

response.Redirect("reg.asp?msg="&msg)

end if

if ac="adduser" then

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

sql="select* from info where username='"&request.Form("username")&"'"

rsc.open sql,conn,1,1

ck=rsc("username")

set rsc=nothing

if ck<>"" then

msg=msg&"<br>"&"用户名被人注册"

response.Redirect("reg.asp?msg="&msg)

end if

dsql="select* from info where id is null"

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

rs.open dsql,conn,1,3

rs.addnew

rs("username")=request.Form("username")

rs("password")=request.Form("password")

rs("mail")=request.Form("mail")

rs("sex")=request.Form("sex")

rs("qq")=request.Form("qq")

rs("add")=request.Form("add")

rs("personalinfo")=request.Form("personalinfo")

rs("ntime")=now

rs.update

set rs=nothing

</center>

end if

</body>

</html>

6，（conn.asp数据库连接文件）

'连接数据库开始

dim conn,rs,sql

on error resume next

dbpath=server.mappath("userinfo.mdb")

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

conn.open"PROVIDER=Microsoft.jet.OLEDB.4.0;data source="

'创建记录对象

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

7，（userinfo.mdb ACCESS数据库）

在ACCESS中建一个表，然后在这个表中建立字段名称

表名：info

字段名称数据类型

id自动编号

username文本

password文本

sex文本

quest文本

qq文本

mail文本

personalinfo文本

ntime文本

asp网站源代码

在局域网里搭建一个web服务器，固定该机的内网IP，要win2003系统,XP的不行，因为IIS连接数有限制，搭建好，把程序放上去，其他电脑直接输入这台服务器的IP地址就可以访问了。

如果要外网登陆，要先把局域网的路由器映射到这台服务器上，一般是在路由器里设置DMZ主机，然后填上服务器的内网IP。

外网访问时是要输入外网的IP，可以上IP138查询到。

如果你们宽带是固定IP的话申请个域名指向这个IP就行了，如果不是固定IP，就需要使用动态域名，现在常用的是“花生壳”

找一款asp+access源代码高分,追加

<html>

<head>

<!--

body{font-size:9pt}

td{font-size:9pt}

-->

</style>

</style>

<title>欢迎光临上海蒂赛科技有限公司主页!</title>

<!--

function MM_reloadPage(init){//reloads the window if Nav4 resized

if(init==true) with(navigator){if((appName=="Netscape")&&(parseInt(appVersion)==4)){

document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage;}}

else if(innerWidth!=document.MM_pgW|| innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);

//-->

</script>

</head>

<!--

function xufen(){

var xu=document.mounting.products;

if(xu.value==""){

alert("请选择下拉列表中的具体型号！");

}else{

var fen="files/"+xu.options[xu.selectedIndex].value;

window.open(fen);

}}

//-->

</SCRIPT>

<HEAD><TITLE>欢迎光临上海蒂赛科技有限公司主页!</TITLE>

var h;

var w;

var l;

var t;

var topMar= 3;

var leftMar=-10;

var space= 2;

var isvisible;

var MENU_SHADOW_COLOR='#999999';

var global= window.document

global.fo_currentMenu= null

global.fo_shadows= new Array

function HideMenu()

{

var mX;

var mY;

var vDiv;

var mDiv;

if(isvisible== true)

{

vDiv= document.all("menuDiv");

mX= window.event.clientX+ document.body.scrollLeft;

mY= window.event.clientY+ document.body.scrollTop;

if((mX< parseInt(vDiv.style.left))||(mX> parseInt(vDiv.style.left)+vDiv.offsetWidth)||(mY< parseInt(vDiv.style.top)-h)||(mY> parseInt(vDiv.style.top)+vDiv.offsetHeight)){

vDiv.style.visibility="hidden";

isvisible= false;

}

function ShowMenu(vMnuCode,tWidth){

vSrc= window.event.srcElement;

vMnuCode="<table id='submenu' cellspacing=1 cellpadding=3 style='width:"+tWidth+"' class=tableborder1 onmouseout='HideMenu()'><tr height=23><td nowrap align=left class=tablebody1>"+ vMnuCode+"</td></tr></table>";

h= vSrc.offsetHeight;

w= vSrc.offsetWidth;

l= vSrc.offsetLeft+ leftMar+4;

t= vSrc.offsetTop+ topMar+ h+ space-2;

vParent= vSrc.offsetParent;

while(vParent.tagName.toUpperCase()!="BODY")

{

l+= vParent.offsetLeft;

t+= vParent.offsetTop;

vParent= vParent.offsetParent;

}

menuDiv.innerHTML= vMnuCode;

menuDiv.style.top= t;

menuDiv.style.left= l;

menuDiv.style.visibility="visible";

isvisible= true;

makeRectangularDropShadow(submenu, MENU_SHADOW_COLOR, 4)

}

function makeRectangularDropShadow(el, color, size)

{

var i;

for(i=size; i>0; i--)

{

var rect= document.createElement('div');

var rs= rect.style

rs.position='absolute';

rs.left=(el.style.posLeft+ i)+'px';

rs.top=(el.style.posTop+ i)+'px';

rs.width= el.offsetWidth+'px';

rs.height= el.offsetHeight+'px';

rs.zIndex= el.style.zIndex- i;

rs.backgroundColor= color;

var opacity= 1- i/(i+ 1);

rs.filter='alpha(opacity='+(100* opacity)+')';

el.insertAdjacentElement('afterEnd', rect);

global.fo_shadows[global.fo_shadows.length]= rect;

}

var About='<a style=font-size:9pt;line-height:14pt; href=\"About.asp\"><font color="#EEEEEE">公司简介</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"Culture.asp\"><font color="#EEEEEE">公司文化</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"Organize.asp\"><font color="#EEEEEE">组织机构</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"Principle.asp\"><font color="#EEEEEE">精神理念</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"Contact.asp\"><font color="#EEEEEE">联系我们</font></a>'

var News='<a style=font-size:9pt;line-height:14pt; href=\"News.asp\"><font color="#EEEEEE">企业新闻</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"yeNews.asp\"><font color="#EEEEEE">业内资讯</font></a>'

var Product='<a style=font-size:9pt;line-height:14pt; href=\"Product.asp\"><font color="#EEEEEE">产品展示</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"Products.asp\"><font color="#EEEEEE">产品分类</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"search.asp\"><font color="#EEEEEE">产品搜索</font></a>'

var Job='<a style=font-size:9pt;line-height:14pt; href=\"Job.asp\"><font color="#EEEEEE">人才招聘</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"Jobs.asp\"><font color="#EEEEEE">人才策略</font></a>'

var sale='<a style=font-size:9pt;line-height:14pt; href=\"Sale.asp\"><font color="#EEEEEE">国内市场</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"Salea.asp\"><font color="#EEEEEE">国外市场</font></a>'

var server='<a style=font-size:9pt;line-height:14pt; href=\"Server.asp\"><font color="#EEEEEE">会员中心</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"NetBook.asp\"><font color="#EEEEEE">留言中心</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"E_shop.asp\"><font color="#EEEEEE">订单查询</font></a>'

var index='<a style=font-size:9pt;line-height:14pt; href=\"Default.asp\"><font color="#EEEEEE">网站首页</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"Index.asp\"><font color="#EEEEEE">企业形象页</font></a>'

var img='<a style=font-size:9pt;line-height:14pt; href=\"Honor.asp\"><font color="#EEEEEE">企业荣誉</font></a><br><a style=font-size:9pt;line-height:14pt; href=\"Img.asp\"><font color="#EEEEEE">企业形象</font></a>'

</script>

</head>

<tr>

</object></td>

</tr>

</table>

<tr>

</object></td>

</tr>

<tr>

</tr>

</table>

</div>

<tr>

<tr>

<tr>

</tr>

<tr>

<tr>

<p style="line-height: 150%"><img border="0" src="images/arrow1.gif" width="6" height="7"><span lang="zh-cn">东方号顺利下水运行良好</span><img border="0" src="images/arrow1.gif" width="6" height="7"><img border="0" src="images/arrow1.gif" width="6" height="7">东方造船厂制定使用品牌<br>

<img border="0" src="images/arrow1.gif" width="6" height="7">巴西引进斯达利系列产品</td>

</tr>

</table>

</div></td>

</tr>

</table>

<tr>

</tr>

<tr>

<tr>

<p style="line-height: 150%"><img border="0" src="images/arrow1.gif" width="6" height="7"><a rel="external nofollow" href="new1.asp">我厂厂房已顺利搬迁(组图</a>)<img src="images/hot.gif" width="25" height="12"><br>

<img border="0" src="images/arrow1.gif" width="6" height="7"><a rel="external nofollow" href="new2.asp">我厂正在组装国内最大的高弹性联轴器(组图</a>)<img src="images/new02.gif" width="35" height="20"><br>

</td>

</tr>

</table>

</div></td>

</tr>

</table>

<tr>

</tr>

<tr>

<tr>

<td height="19" style="font-size: 9pt; font-family: Arial"><img border="0" src="images/arrow1.gif" width="6" height="7">斯达利获得3项大奖</td>

</tr>

<tr>

</tr>

</table>

</div></td>

</tr>

</table>

<p>

</div></td>

</tr>

<tr>

<tr>

<tr>

</tr>

<tr>

<td width="341"><span lang="zh-cn">配套我公司GTL5021F型高弹性联轴器的中国首批6M453C型柴油机（2200KW/600r/min）5000吨多用途船和345TEU集装箱船几年来运行良好。</span></td>

</tr>

<tr>

<td width="341">和GTL16021F型联轴器（160KNm）配套的4410KW/425min的德国MAK6M601AK柴油机在越南装船运行。</td>

</tr>

<tr>

<td width="341"> WX25M-400L型干式火星熄灭器已经安装于江南造船集团生产的8200m液化气船，该船入德国GL船级社，性能优越。</td>

</tr>

<tr>

<td width="341">我公司新开发的GN820型硅油减震器已和广州柴油机厂的8320型柴油机系列一并配套使用。</td>

</tr>

<tr>

<td width="341"> YZ系列圆锥型橡胶减震器（负载：100-5000kgf），已和振华港机、上海电信和淄博柴油机厂等单位配套联合使用。</td>

</tr>

<tr>

<td width="341" valign="top">上海蒂赛科技有限公司早已获得ISO9001质量体系认证。</td>

</tr>

<tr>

</tr>

</table></td>

<tr>

</tr>

<tr>

<tr>

var index= 50;

link= new Array(50);

text= new Array(50);

text[0]='<b>联轴器部分(主要产品)</b>'

text[1]='GTL系列高弹性联轴器'

text[2]='TL系列高弹性联轴器'

text[3]='CTL系列高弹性联轴器'

text[4]='XL系列高弹性联轴器'

text[5]='SL系列高弹性联轴器'

text[6]='JXL系列联轴器'

text[7]='GNL系列联轴器'

text[8]='DML系列高弹性联轴器<br>'

text[9]='<font color=ffffff>sdfsdf</font>'

text[10]='<b>联轴器(国标和部标产品)</b>'

text[11]='DB3202-87挠性鼓形联轴器'

text[12]='GB4323-84弹性套柱销联轴器'

text[13]='GB5272-85梅花型弹性联轴器'

text[14]='GB5844-86轮胎式联轴器'

text[15]='GB5014-85弹性柱销联轴器'

text[16]='GB5015-85弹性柱销齿式联轴器'

text[17]='GB6069-85滚子链联轴器'

text[18]='GICLZ4223-86鼓形齿式联轴器'

text[19]='GIICL4378-86鼓形齿式联轴器'

text[20]='JS/jsb系列蛇形弹簧联轴器'

text[21]=''

text[22]='GB5843-86型凸缘联轴器'

text[23]='CL型齿轮联轴器'

text[24]='老CLZ型齿轮联轴器'

text[25]='滑块联轴器(GB4384-86)'

text[26]='立式夹壳联轴器(HG5-213-65)'

text[27]='<font color=ffffff>sdfsdf</font>'

text[28]='<b>减震器部分</b>'

text[29]='YXN压入式扭振减震器'

text[30]='GN硅油扭振减震器'

text[31]='SH系列双板式减震器'

text[32]='JB系列夹板式减震器'

text[33]='PB系列平板式减震器'

text[34]='SJ系列斜置式减震器'

text[35]='JG系列剪切式减震器'

text[36]='JZ系列支柱式减震器'

text[37]='LJZ系列支柱式减震器'

text[38]='DJ系列剪切式减震器'

text[39]='E系列减震器'

text[40]='EA系列减震器'

text[41]='<font color=ffffff>sdfsdf</font>'

text[42]='<b>消声器部分</B>'

text[43]='WX系列微孔式消声器'

text[44]='KXM系列干式灭火式消声器'

text[45]='AX系列消声器'

text[46]='HMX系列消声器'

text[47]='<font color=ffffff>sdfsdf</font>'

text[48]='<font color=ffffff>sdfsdf</font>'

text[49]='<b>更多型号...</b>'

document.write("<marquee scrollamount='1' scrolldelay='10' direction='up' width='176' id=flink height='200' onmouseover=flink.stop() onmouseout=flink.start()><table border='0' cellspacing='0' cellpadding='0' width='100%'>");

for(i=0;i<index;i+=1){

document.write("<tr><td width='176'><font size='2'>"+text[i]+"</font></td>");}

document.write("</table></marquee>");

</script></td>

</tr>

好了，关于asp 源代码和找一款asp+access源代码高分,追加的问题到这里结束啦，希望可以解决您的问题哈！

杭州优化公司(杭州做SEO比较厉害的公司)旺道seo系统，求求教我旺道优化软件的技术seo绝招

asp 源代码，找一款asp+access源代码 高分,追加

asp程序实现简单的注册,登录网页的源代码

asp网站源代码

找一款asp+access源代码 高分,追加

asp 源代码，找一款asp+access源代码高分,追加

找一款asp+access源代码高分,追加