我的asp懵懂之路

最新推荐文章于 2024-09-18 19:05:35 发布

xx231

最新推荐文章于 2024-09-18 19:05:35 发布

阅读量283

点赞数 1

分类专栏： asp相关技术文章标签： asp sql server microsoft redirect javascript vbscript

本文链接：https://blog.csdn.net/xx231/article/details/4702697

版权

asp相关技术专栏收录该内容

1 篇文章 0 订阅

订阅专栏

刚毕业那年，作了一个简单的自认为“动了”的静态网页，没什么人指导，从网上下了一些简单的Javascript小程序，看到网页中的某些元素飘来飘去，动了起来，就自认为网页是动了的。年轻啊！！！

接着，过了很久，06年，换了单位，在前辈的指导下，应用VBScript作了管理系统，开始真正接触了asp的编程，这一阶段，只应用了对数据库的操作，对asp技术有了进一步的了解。

到现在，刚刚基本上完成了一套针对本单位的库房管理系统，下面，将我近日的工作日志记录如下：

15:43 2009-8-24 login.asp完毕，只差背景图。其中第95、97行将来引用记录的编号rs("no")。
17:09 2009-8-24 add.asp完毕。
10:55 2009-8-25 modify.asp完毕。
10:55 2009-8-25 xxx.xxx.xxx.xxx上zbgl数据库建立完毕。

15:54 2009-8-25 conn更改为SQL连接，运行后网页显示："[Microsoft][ODBC SQL Server Driver][SQL Server]已将数据库上下文更改为 'zbgl'。[Microsoft][ODBC SQL Server Driver][SQL Server]已将语言设置更改为简体中文。"
15:55 2009-8-25 现在开始做显示界面，网页应用框架模式。
9:38 2009-8-26   显示功能完毕。左框架连接target＝“右框架名称(rightFrame)”。
16:40 2009-8-31 login.asp背景ok。
14:38 2009-9-2   待办：图片上传、打印、分页、下拉列表与文本框的关联。
22:07 2009-9-2   下拉列表与文本框关联ok。
获得下拉列表值的函数：
<script language="javascript" type="text/javascript">
function change()
{
document.rk.no.value=document.getElementById("name").value
//alert(document.getElementById("sel").value)
}</script>
14:33 2009-9-3   入库ok。
8:57 2009-9-4    right.asp全部完毕。
19:09 2009-9-7   声明动态数组时，须redim arr(len)。
19:11 2009-9-7   select distinct(kind) from data：将字段中重复的记录去掉。
19:29 2009-9-7   出库ok。
20:09 2009-9-7   上传图片中，swf_Edit.asp、swf_Edit_ok.asp、upload.asp有用。
15:16 2009-9-8   将入库单打印到了纸上，虽然只打出了半张入库单，嘻嘻，说明打印的命令是正确的。
15:41 2009-9-8   dev.asp修改功能未调试。删除ok。
8:45 2009-9-9    dev.asp全部ok。
15:28 2009-9-9   image上传ok。
11:05 2009-9-10 待办：出库、入库的打印显示；装备明细界面、返回首页；出库、入库的类型做成下拉列表；与查询功能的合成；装备明细中的排序。
16:07 2009-9-10 装备明细中的排序ok。

8:58 2009-9-11 添加图片功能若更新mxtleft.asp的判断需更改。
9:23 2009-9-11 mx.asp完毕。图片和出入库记录同时响应完毕。
15:59 2009-9-11 whdev.asp调试bug，<base target="_parent">的应用，使redirect重定向到制定的框架页面，必须在<body>标签前面使用。
10:17 2009-9-15 读写注册表。
<%
dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="/Software/Microsoft/Internet Explorer/PageSetup"
hkey_key="/header"
set RegWsh=createobject("WScript.Shell")
'strPath="HKEY_LOCAL_MACHINE/SOFTWARE/MICROSOFT/WINDOWS/CURRENTVERSION/COMMONFILESDIR"
'strPath="HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/PageSetup/header"
strPath="HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Download Directory"
response.Write RegWsh.RegRead(strPath)
'RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"" %>

11:38 2009-9-17 查询ok。对日期型字段查询语句："select * from history where (date1 like convert(datetime,'"&trim(request("dateV"))&"',20))"

16:53 2009-10-19 两个关联的下拉列表

///
arr= new Array();
<%
count = 0
do while not rs.eof
%>
arr[<%=count%>] = new Array("<%=trim(rs("field1"))%>","<%= trim(rs("field2"))%>","<%= trim(rs("field3"))%>");

<%
count = count + 1
rs.movenext
loop
rs.close
%>
function changeselect(locationid)
{
document.frmName.selName.length = 0; //初始化下拉列表清空下拉数据
document.frmName.selName.options[0] = new Option('==请选择==',''); //给第一个值
for (i=0; i<arr.length; i++) //legth=20
{
if (arr[i][0] == locationid) //[0] [1] 第一列第二列
{document.frmName.selName.options[document.frmName.selName.length] = new Option(arr[i][1], arr[i][2]);} //建立option
//第一次 length=1 因为有==请选择==
//i=9时 length= 10 值有11个因为从0数起 subcat[i][0] == locationid屏蔽了再写
}
}
οnchange="changeselect(this.value)"