本文目录
- 寻一个ASP的在线显示进销存的简单系统源码
- 谁可以给我一个小型工作任务管理系统的ASP源码啊、
- asp注册登录系统源代码
- ASP 在线考试系统 源代码
- asp 制作简单的查询系统
- ASP天气预报系统源码，速求
- asp网页设计源代码
寻一个ASP的在线显示进销存的简单系统源码
WEB进销存管理系统功能介绍 产品入库，入库查询 （对已有产品可快速入库） 库存管理，库存调拨 （可设置库存报警功能，库存不足的情况下程序将自动报警） 产品出库，出库查询 统计报表 （各时段统计） 会员管理 员工管理 工资管理 单位管理 仓库管理 产品分类管理 （设置二级分类） 免费下载地址： http://www.yuanma.cc/software/view-software-1678.html
谁可以给我一个小型工作任务管理系统的ASP源码啊、
easybug：最简单的bug管理系统 软件测试，网站测试： 说明 请看： http://easybug.net/Home/Intro 希望能帮到你.
asp注册登录系统源代码
1，（index.asp 用户登陆页面）《!-- #include file=“conn.asp“ --》《!-- blog.soowooo.cn 悠悠长假期 --》《html》《head》《meta http-equiv=“Content-Type“ content=“text/html; charset=gb2312“》《title》会员《/title》《style type=“text/css“》《!--body,td,th { font-family: 宋体; font-size: 14px;}--》《/style》《/head》《body》《center》《p》会员注册系统《/p》《form name=“form1“ method=“post“ action=“login.asp“》《table width=“34%“ border=“0“》《tr》《td width=“33%“ height=“30“》用户名:《/td》《td width=“67%“ height=“30“》《input name=“username“ type=“text“ id=“username“ size=“15“》《/td》《/tr》《tr》《td height=“30“》密 码:《/td》《td height=“30“》《input name=“password“ type=“password“ id=“password“ size=“15“》《/td》《/tr》《tr》《td colspan=“2“ align=“center“》《input type=“submit“ name=“Submit“ value=“确定“》《input type=“reset“ name=“Submit“ value=“重置“》《/td》《/tr》《tr》《td colspan=“2“》《a href=“reg.asp“ target=“_self“》注册《/a》《/td》《/tr》《/table》《/form》《/center》《/body》《/html》2，（login.asp 用户数据处理文件）《!-- #include file=“conn.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,1session(“username“)=rsc(“username“)session(“password“)=rsc(“password“)session.Timeout=30set rsc=nothingresponse.Redirect(“change.asp“)’如果用户不存在,session(“username“)为空%》3，（change.asp 用户信息修改页面）《!-- #include file=“conn.asp“ --》《html》《head》《meta http-equiv=“Content-Type“ content=“text/html; charset=gb2312“》《title》修改《/title》《style type=“text/css“》《!--body,td,th { font-size: 14px;}--》《/style》《/head》《center》《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,1nr=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=nothingif nr=““ thenresponse.Redirect(“index.asp“)end ifif strcomp(nr,request.Form(“password“))=0 thenresponse.Write(“欢迎你！“&request.Form(“username“))response.Write(“你是在“&vv&“注册的“)session(“username“)=request.Form(“username“)end ifif session(“username“)=““ thenresponse.Redirect(“index.asp“)end if%》《form name=“form1“ method=“post“ action=“change.asp?ac=ch“》《table width=“39%“ height=“105“ border=“0“ 》《tr》《td width=“27%“ height=“30“》用户名：《/td》《td width=“73%“ height=“30“》《input name=“username“ type=“text“ id=“username“ value=“《%=username%》“》*《/td》《/tr》《tr》《td height=“30“》密 码：《/td》《td height=“30“》《input name=“password“ type=“text“ id=“password“ value=“《%=password%》“》*《/td》《/tr》《tr》《td height=“30“》性 别：《/td》《td height=“30“》《input name=“sex“ type=“text“ id=“sex“ value=“《%=sex%》“》《/td》《/tr》《tr》《td height=“30“》QQ：《/td》《td height=“30“》《input name=“qq“ type=“text“ id=“qq“ value=“《%=qq%》“》《/td》《/tr》《tr》《td height=“30“》Mail：《/td》《td height=“30“》《input name=“mail“ type=“text“ id=“mail“ value=“《%=mail%》“》《/td》《/tr》《tr》《td height=“30“》地 址：《/td》《td height=“30“》《input name=“add“ type=“text“ id=“add“ value=“《%=add%》“》《/td》《/tr》《tr》《td》介绍《/td》《td》《textarea name=“personalinfo“ cols=“30“ rows=“6“ id=“personalinfo“》《%=personalinfo%》《/textarea》《/td》《/tr》《tr》《td》 《/td》《td》《input type=“submit“ name=“Submit“ value=“修改“》《a href=“change.asp?se=y“ target=“_self“》退出系统《/a》《/td》 《% 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 thenset rs=server.createobject(“adodb.recordset“)sql=“select * from info where username=’“&session(“username“)&“’“rs.open sql,conn,1,3rs(“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.updateset rs=nothingresponse.Write(“修改完成！“)end if%》《/body》《/center》《/html》4，（reg.asp 新用户注册页面）《html》《head》《meta http-equiv=“Content-Type“ content=“text/html; charset=gb2312“》《title》用户注册《/title》《style type=“text/css“》《!--body,td,th { font-family: 宋体; font-size: 14px;}--》《/style》《/head》《body》《center》用户注册《br》《%=request.QueryString(“msg“)%》《form name=“form1“ method=“post“ action=“addnewdata.asp?ac=adduser“》《table width=“39%“ height=“105“ border=“0“ 》《tr》《td width=“27%“ height=“30“》用户名：《/td》《td width=“73%“ height=“30“》《input name=“username“ type=“text“ id=“username“》*《/td》《/tr》《tr》《td height=“30“》密码：《/td》《td height=“30“》《input name=“password“ type=“password“ id=“password“》*《/td》《/tr》《tr》《td height=“30“》确定密码：《/td》《td height=“30“》《input name=“password2“ type=“password“ id=“password2“》*《/td》《/tr》《tr》《td height=“30“》性别：《/td》《td height=“30“》《input name=“sex“ type=“text“ id=“sex“》《/td》《/tr》《tr》《td height=“30“》QQ：《/td》《td height=“30“》《input name=“qq“ type=“text“ id=“qq“》《/td》《/tr》《tr》《td height=“30“》Mail：《/td》《td height=“30“》《input name=“mail“ type=“text“ id=“mail“》《/td》《/tr》《tr》《td height=“30“》地址：《/td》《td height=“30“》《input name=“add“ type=“text“ id=“add“》《/td》《/tr》《tr》《td》个人介绍《/td》《td》《textarea name=“personalinfo“ cols=“30“ rows=“6“ id=“personalinfo“》《/textarea》《/td》《/tr》《tr》《td》 《/td》《td》《input type=“submit“ name=“Submit“ value=“提交“》《/td》《/tr》《/table》《/form》《/center》《/body》《/html》5，（addnewdata.asp 新用户注册数据处理文件）《!-- #include file=“conn.asp“ --》《html》《head》《meta http-equiv=“Content-Type“ content=“text/html; charset=gb2312“》《title》成功《/title》《/head》《body》《%ac=request.QueryString(“ac“)msg=“注册错误信息“if request.Form(“username“)=““ thenmsg=msg&“《br》“&“用户名不能为空“end ifif strcomp(cstr(request.Form(“password“)),cstr(request.Form(“password2“)))《》0 thenmsg=msg&“《br》“&“两次密码输入不同“end ifif len(request.Form(“password“))《6 thenmsg=msg&“《br》“&“密码太简单“end ifif strcomp(msg,“注册错误信息“)》0 thenresponse.Redirect(“reg.asp?msg=“&msg)end ifif ac=“adduser“ thenset rsc=server.createobject(“adodb.recordset“)sql=“select * from info where username=’“&request.Form(“username“)&“’“rsc.open sql,conn,1,1ck=rsc(“username“)set rsc=nothingif ck《》““ thenmsg=msg&“《br》“&“用户名被人注册“response.Redirect(“reg.asp?msg=“&msg)end ifdsql=“select * from info where id is null“set rs=server.createobject(“adodb.recordset“)rs.open dsql,conn,1,3rs.addnewrs(“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“)=nowrs.updateset rs=nothing%》《center》《a href=“index.asp“ target=“_self“》注册成功,点击登陆《/a》《/center》《%end if%》《/body》《/html》6，（conn.asp 数据库连接文件）《%’连接数据库开始dim conn,rs,sqlon error resume nextdbpath=server.mappath(“userinfo.mdb“)set conn=server.createobject(“adodb.connection“)conn.open “PROVIDER=Microsoft.jet.OLEDB.4.0;data source=“&dbpath’创建记录对象set rs=server.createobject(“adodb.recordset“)%》7，（userinfo.mdb ACCESS 数据库）在ACCESS中建一个表，然后在这个表中建立字段名称表名：info字段名称 数据类型id 自动编号username 文本password 文本sex 文本quest 文本qq 文本mail 文本personalinfo 文本ntime 文本
ASP 在线考试系统 源代码
这个亲测可用，你看符不符合你的要求，里面的内容可以随便改动的。
asp 制作简单的查询系统
给你一个很简单的示例: 《html》《body》《form method=“post“》 《input type=“hidden“ name=“act“ value=“save“ /》 《input type=“text“ name=“bh“ value=“《%=bh%》“ /》《input type=“submit“ value=“查找“ /》《/form》《%if request(“act“)=“save“ thendim dbpathdbpath=“这里是ACCESS数据库的位置,例如:data/db.mdb“Set conn = Server.CreateObject(“ADODB.Connection“)connStr= “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ & Server.MapPath(dbpath)conn.Open connStrset rs = server.createobject(“adodb.recordset“) sql=“select * from 数据表名称 where 编号字段名称 like ’%“&request.form(“bh“)&“%’“rs.open sql,conn,1,1do while not rs.eof response.write rs(“姓名字段,或其他你要显示的字段“)&“《br /》“ ’这里根据需要添加其他字段 rs.movenextlooprs.closeend if%》《/body》《/html》
ASP天气预报系统源码，速求
《%Response.ContentType=“text/html; charset=gb2312“Call weather()Sub weather()url=“http://weather.news.qq.com/inc/07_dc107.htm“ ’莆田的天气Call IsObjInstalled(“Microsoft.XMLHTTP“)weatherStr= getHTTPPage(url)if weatherStr=““ thenresponse.write “抱歉,天气预报加载失败!“elseset reg=new Regexpreg.Multiline=Truereg.Global=falsereg.IgnoreCase=truereg.Pattern=“《td height=““57““ align=““center““ bgcolor=““#EEF3F8““》((.|\n)*?)《/td》《/tr》“Set matches = reg.execute(weatherStr)For Each match1 in matchesweatherStr=match1.ValueNextSet matches = NothingSet reg = Nothingif InStr(weatherStr,“没有找到与“)》0 thenresponse.write “抱歉,天气预报加载失败!“ElseweatherStr=Replace(weatherStr,“《br》“,“ “)%》《font color=“#CC0000“ style=“font-size: 9pt“》今日天气：《%=weatherStr%》《/font》《%end if end ifEnd Sub’// 采用 Microsoft.XMLHTTP 组件采集数据Function getHTTPPage(url) ’on error resume next dim httpset http=Server.createobject(“Microsoft.XMLHTTP“) Http.open “GET“,url,false Http.send() if Http.readystate《》4 thenexit function end if getHTTPPage=bytes2BSTR(Http.responseBody) set http=nothingif err.number《》0 then err.Clear End function’// 采用 ADODB.Stream 处理采集到的数据，把二进制的文件转成文本字符Function Bytes2bStr(vin)Dim BytesStream,StringReturnSet BytesStream = Server.CreateObject(“ADODB.Stream“)BytesStream.Type = 2BytesStream.OpenBytesStream.WriteText vinBytesStream.Position = 0BytesStream.Charset = “GB2312“BytesStream.Position = 2StringReturn =BytesStream.ReadTextBytesStream.closeSet BytesStream = NothingBytes2bStr = StringReturnEnd Function’//检查组件,采用xmlhttp抓取网页还是AspHTTPFunction IsObjInstalled(strClassString)’ On Error Resume NextIsObjInstalled = FalseErr = 0Dim xTestObjSet xTestObj = Server.CreateObject(strClassString)If 0 = Err ThenIf AspHttpOpen=1 ThenIsObjInstalled = TrueResponse.write “系统不支持 XMLHTTP 组件“’Response.write “当前组件 ASPHTTP“response.end()ElseIsObjInstalled = False’Response.write “当前组件 XMLHTTP“End IfElseIsObjInstalled = False’Response.write “当前组件 XMLHTTP“End IfSet xTestObj = NothingErr = 0End Function%》
asp网页设计源代码
在各大搜索引擎上搜“asp 源码”关键字，应该很多。或是找些视频，上面也有相关简单的源码吧。还有一些CMS源码系统也可以采用。