GPS信号长数据捕获C/A码相位不一致的问题
在生成了固定C/A码相位（固定速度、加速度为0m/s2、加加速度为0m/s3）的较长时间的仿真数据后，用来做多次捕获实验。此时会发现，当捕获的次数多了之后会出现C/A码相位的递增现象。当然除了程序可能出现的各种原因以外，还可以做如下解释：由于采样频率不能为C/A码速率的整数倍，所以对信号进行采样的过程中会出现样本边界模糊的问题，即正常情况下应该是N个样本而某些C/A码周期会出现N+1个样本的情况。这个就是导致长时间捕获后C/A码出现相位递增的根本原因。在做捕获的时候，本地C/A码形成的时候相位是从0开始的，也就是说会产生N+1个点，而不会产生N个点，所以在一段周期内就会多读出一个样本点来，而这种连续捕获的后果就会让C/A码从错误的起始点开始与接收数据对齐，继而导致一段时间后相位就会增加。 ......
函数 语法 功能
Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。
Trim Trim(string) 将字符串前后的空格去掉
Ltrim Ltrim(string) 将字符串前面的空格去掉
Rtrim Rtrim(string) 将字符串后面的空格去掉
Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串
Left Left(string,length) 从string字符串的左边取得length长度的字符串
Right Right(string,length) 从string字符串的右边取得length长度的字符串
LCase LCase(string) 将string字符串里的所有大写字母转化为小写字母
UCase UCase(string) 将string字符串里的所有大写字母转化为大写字母
StrComp StrComp(string1,string2[，compare]) 返回string1字符串与string2字符串的比较结果，如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1
InStr InStr(string1,string2[,compare]) 返回string1字符串在string2字符串中第一次出现的位置
Split Split(string1,delimiter[,count[,start]]) 将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子� ......
<%
Const JET_3X = 4
Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath
strDBPath = left(dbPath,instrrev(DBPath,"\"))
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
Set Engine = CreateObject("JRO.JetEngine")
If boolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
End If
fso.CopyFile strDBPath & "temp.mdb",dbpath
fso.DeleteFile(strDBPath & "temp.mdb")
Set fso = nothing
Set Engine = nothing
CompactDB = "你的数据库, " & dbpath & ", 已经被压缩" & vbCrLf
Else
CompactDB = "你输入的数据库路径或名称未找到，请重试" & vbCrLf
E ......
<%
Const JET_3X = 4
Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath
strDBPath = left(dbPath,instrrev(DBPath,"\"))
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
Set Engine = CreateObject("JRO.JetEngine")
If boolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
End If
fso.CopyFile strDBPath & "temp.mdb",dbpath
fso.DeleteFile(strDBPath & "temp.mdb")
Set fso = nothing
Set Engine = nothing
CompactDB = "你的数据库, " & dbpath & ", 已经被压缩" & vbCrLf
Else
CompactDB = "你输入的数据库路径或名称未找到，请重试" & vbCrLf
E ......
请看如下源代码：
<%
'向数据库写入数据
SUB writeData()
dim recCnt,i
dim fieldName1,fieldName2,fieldName3
dim conn
dim sqlStr,connStr
connStr="Provider=SQLOLEDB.1;Initial Catalog=myDatabase;Data Source=myhon;User Id=sa;PASSWORD="
set conn=Server.CreateObject("ADODB.Connection")
conn.open connStr ’建立数据库连接
recCnt=request.form("stu_num").count ’取得共有多少条记录
'批量录入数据
for i=1 to recCnt
fieldName1=trim(request.form("fieldName1")(i))
fieldName2=trim(request.form("fieldName2")(i))
fieldName3=trim(request.form("fieldName3")(i))
sqlStr="insert into myTable(fieldName1,fieldName2,fieldName3) values(’"
sqlStr=sqlStr & fieldName1 & "’,’"
sqlStr=sqlStr & fieldName2 & "’,’"
sqlStr=sqlStr & fieldName3 & "’)"
'response.write sqlStr
conn.execute(sqlStr)
next
END SUB
'显示成批录入的界面
SUB InputData()
dim recCnt,i
%>
<form name="bathInputData" action="" ......
本文的创造性在于cookies_to_array(c) 直接简单快捷转化字符串为数组的方法
另外 本文操作的数组 不是 asp普通的多维数组 而是锯齿型的
这种数组 更易操作 更易阅读 行列清晰 很像数据库中的表
可以类比为 datatable
class myarray
'必须为锯齿数组array(array(1,2,3))
function array_to_cookies(a)
dim b(),i,j,u
u = ubound(a)
redim b(u)
for i=0 to u
array_rep a(i)
b(i)=join(a(i),",")
next
array_to_cookies=join(b,";")
end function
sub array_rep(a)
dim i
if isarray(a) then
for i=0 to ubound(a)
if instr(a(i),",")>0 then a(i)=replace(a(i),",","")
if instr(a(i),";")>0 then a(i)=replace(a(i),";","")
next
end if
end sub
function cookies_to_array(c)
c = "array(array("+replace(c,";","),array(")+"))"
execute "cookies_to_array="&c
end function
'以某列为主键 添加或者更新 行
sub add_row(a,ai,columnum)
dim b(),i,j,u
......
ASP与数据库应用(给初学者)
--------------------
见最近许多网友询问一些关于数据库操作的基础问题，现把我以前写的一篇简单教程贴上来，好让一些初学者最快的入门：
ASP与数据库应用（给初学者）
一般来说，一个真正的、完整的站点是离不开数据库的，因为实际应用中，需要保存的数据很多，而且这些数据之间往往还有关联，利用数据库来管理这些数据，可以很方便的查询和更新。数据库有很多种，如：Fox 数据库(.dbf)、Access 数据库(.mdb)、Informix、Oracle 和 SQL Server 等等，在这里，我将以 Microsoft Access 数据库为例来说明ASP是如何访问数据库的。
常用数据库语句
1.Select 语句：命令数据库引擎从数据库里返回信息，作为一组记录。
2.Insert INTO 语句：添加一个或多个记录至一个表。
3.Update 语句：创建更新查询来改变基于特定准则的指定表中的字段值。
4.Delete 语句：创建一个删除查询把记录从 from 子句列出并符合 Where 子句的一个或更多的表中清除。
5.EXECUTE 语句：用于激活 PROCEDURE（过程）
用 ASP 来做一个自己的通讯录练练手吧……
一、建立数据库：
用 Microsoft Access 建立一个名为 data.mdb 的空数据库，� ......
最新文章 :