今天给各位分享pos网站源码的知识，其中也会对pos软件源码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！
本文目录一览：
- 1、用VB来实现POS机的客显问题，向大虾们求助。。。。最好源代码
- 2、求一个能上传小说和图片的网站源码
- 3、jquery ligerui,JSP，改变p title的值 JSP源代码为
- 4、用ACCESS制作收银系统的源代码！
用VB来实现POS机的客显问题，向大虾们求助。。。。最好源代码
每台POS所灌入的程序都不一样，与VB实现客显时，就不能识别和同步。
所以你的问题，大家都无力解决。
关键还是设计好与POS中程序的通讯协议。
VB只要守护该通讯进程，然后解析就行了
求一个能上传小说和图片的网站源码
这是我用的asp的，图片存在UpImages文件下，图片文件存在数库里，别外你自添加数据连接吧；
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%
!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""
html xmlns=""
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312" /
title写日记/title
% if session("user")="" then
response.write"非法操作"
response.end
end if
%
link href="Css.css" rel="stylesheet" type="text/css" /
style type="text/css"
!--
td { font-size: 12px; line-height: 18px; border-style: none; color: #333333}
body {
background-image: url(image/94d48012f93a637cf819b897.jpg);
}
.STYLE10 {font-size: 10px; font-family: "宋体"; }
.STYLE12 {font-size: 12px; font-family: "楷体_GB2312"; }
--
/style/head
!--#include file="Conn.asp"--
body
table width="800" border="0" align="center" cellspacing="0"
tr
th align="right" scope="col" span class="STYLE12"
script language="JavaScript" type="text/javascript"
var pp,mm,month;
mydate=new Date();
pp=mydate.getDay();
month=mydate.getMonth()+1;
switch(pp)
{case 0: mm="星期日";break;
case 1: mm="星期一";break;
case 2:mm="星期二";break;
case 3: mm="星期三";break;
case 4: mm="星期四" ;break;
case 5 : mm="星期五";break;
case 6 : mm="星期六";break;
}
document.write("今天是:"+mydate.getYear()+"年"+month+"月"+mydate.getDate()
+"日"+"nbsp"+mm+"nbsp");
/script
/span/th
/tr
tr
th height="40" scope="col"img src="image/top.gif" width="800" height="157" alt="书丛制作" //th
/tr
tr
td height="25" align="center" background="image/ph.gif"写文章/td
/tr
/table
table width="800" border="0" align="center" cellpadding="0" cellspacing="0"
tr
td bgcolor="#CCFFFF"form action="write.asp?action=Addnew" method="post" enctype="multipart/form-data" name="form1" id="form1"
table width="800" border="0" cellspacing="0" cellpadding="0"
tr
td width="138" align="right"文章标题:/td
td colspan="2"label
input name="title" type="text" id="title" /
/label/td
/tr
tr
td align="right" /td
td width="236"label/label
label for="file"/label
input type="file" name="file" id="file" //td
td width="426" 心情状态:
select name="select"
option value="一般" selected="selected"一般/option
option value="非常愉快"非常愉快/option
option value="愉快"愉快/option
option value="不好"不好/option
option value="失落"失落/option
/select/td
/tr
tr
td align="right"文章内容：/td
td colspan="2"label
textarea name="content" cols="80" rows="20" id="content"/textarea
/label/td
/tr
tr
td align="right"操作：/td
td colspan="2"label
input type="submit" name="Submit" value="提交" /
/label/td
/tr
/table
/form
/td
/tr
/table
table width="800" border="0" align="center" cellspacing="0"
tr
th height="3" scope="col"hr size="1" //th
/tr
/table
table width="800" border="0" align="center" cellspacing="0"
tr
th align="center" scope="col"span class="STYLE10"Copyright 2009 ? All Rights Reserved.br /
版权所有： ｜ 技术支持：a href="mailto:yaoyaovip@yahoo.com.cn"书丛/a ｜ 渝ICP备000**0号 /span/th
/tr
/table
%
if request("action") = "Addnew" then
newline = chrB(13) chrB(10) 'newline表示二进制的回车符
filesize = Request.TotalBytes 'filesize是表单数据大小
filedata = Request.BinaryRead(filesize) 'filedata是表单的二进制数据
pider = leftB(filedata,clng(instrb(filedata,newline))-1) 'pider是分割符
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From word"
Rs.Open Sql,conn,3,3
Rs.addnew
k = 1
While instrb(k,filedata,pider) instrb((instrb(k,filedata,pider)+lenb(pider)),filedata,pider)
start = instrb(k,filedata,pider) + lenb(pider) +2
endsize = instrb((instrb(k,filedata,pider) + lenb(pider)),filedata,pider) - start - 2
content = midb(filedata,start,endsize) '取文件说明部分
start_name = instrb(content,toByte("name="""))
end_name = instrb(start_name + 6,content,toByte(""""))
nametag = midb(content,start_name+6,end_name-start_name-6) '取文件说明部分中name=""中的内容，即表单元素的名称
pos1_filename = instrb(end_name,content,toByte("filename="""))
'如果是文件框，则文件说明部分应有filename=""，那么pos1_filename不等于0
If pos1_filename = 0 Then '表单中不属于文件上传的数据处理
namevalue = toStr(midb(content,end_name+5,lenb(content)-end_name-4)) '取文件内容
' 将文件说明部分的name=""中的内容与表单元素的名称进行比较，把相应的内容加入数据库
If(InStr(toStr(nametag),"file") 0)Then 'CenterID2'为表单控件的name属性值，以下同
Rs("image") = namevalue
session("CenterID") = namevalue '用于上传文件保存时的文件名中
End If
If(InStr(toStr(nametag),"title") 0)Then
Rs("title") = namevalue
if namevalue="" then
Response.Write "Scriptalert('请输入标题！')/Script"
response.end
end if
End If
If(InStr(toStr(nametag),"content") 0)Then
Rs("content") = namevalue
if namevalue="" then
Response.Write "Scriptalert('请输入内容！')/Script"
response.end
end if
End If
If(InStr(toStr(nametag),"select") 0)Then
Set Rs1 = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From mun"
Rs1.Open Sql,conn,3,3
Rs1("mun")=namevalue
Rs1.update
Rs1.Close
Set Rs1=nothing
End If
Rs("wtime") = year(now)"-"month(now)"-"day(now)
'Response.Write (namevalue)
'Response.Write(" br")
else '处理文件上传部分的数据
pos2_filename = instrb(pos1_filename+10,content,toByte(""""))
fullpath = midb(content,pos1_filename+10,pos2_filename-pos1_filename-10) '从文件说明部分中取出文件路径
covername=GetFileName(toStr(fullpath))
If(fullpath "")Then '如果有上传的文件，执行以下代码
dim bStart ' 取二进制流文件部分开始位置
bStart = instrb(start,filedata,newlinenewline)+3
dim bEnd ' 取二进制流文件部分结束位置
bEnd=inStrB(bStart+6,filedata,pider)-bStart-3
dim stm ' 定义一个 adodb.stream 源对象 stm, 用以拷贝二进制流文件部分至另一 adodb.stream fromStm
set stm=createObject("adodb.stream")
stm.type=1 ' 二进制模式
stm.mode=3 ' 指定打开模式为读写
stm.open
stm.write filedata '写入二进制流内容
dim fromStm '定义 adodb.stream 对象 fromStm, 以保存文件
set fromStm=createOBject("adodb.stream")
with fromStm
.type=1
.mode=3
.open
stm.position = bStart ' 指定 stm 对象的起始位置, 以变量 bStart 的值为起始位置
stm.copyTo fromStm, bEnd ' 拷贝 stm 二进制流至 fromStm 对象, 长度为 bEnd 变量的长度
.saveTofile server.MapPath (covername),2' 保存文件, 如果存在相同名称, 则覆盖
.close
end with
set fromStm = nothing
stm.close
set stm = nothing
Rs("image") =covername '将文件的相对路径写入数据库中
end if
end if
k = instrb((instrb(k,filedata,pider)+lenb(pider)),filedata,pider)
Wend
Rs.update
Rs.close
set Rs = nothing
response.Redirect"mylife.asp"
end if
function toStr(Byt) '将二进制转换为字符串
toStr=""
for i=1 to lenb(byt)
blow = midb(byt,i,1)
if ascb(blow)127 then
toStr = toStrchr(ascw(midb(byt,i+1,1)blow)) '
i = i+1
else
toStr = toStrchr(ascb(blow))
end if
Next
End function
Function toByte(Str) '将字符串转换为二进制
dim i,iCode,c,iLow,iHigh
toByte=""
For i=1 To Len(Str)
c=mid(Str,i,1)
iCode =Asc(c)
If iCode 0 Then iCode = iCode + 65535
If iCode255 Then
iLow = Left(Hex(Asc(c)),2)
iHigh =Right(Hex(Asc(c)),2)
toByte = toByte chrB("H"iLow) chrB("H"iHigh)
Else
toByte = toByte chrB(AscB(c))
End If
Next
End function
Function GetFileName(imagespath)'将路径转换为时间,并使上传的文件不重名
If imagespath "" Then
rname=right(toStr(fullpath),len(toStr(fullpath))-InStrRev(toStr(fullpath),".")+1)'获得后缀名
GetFileName = "UpImages/" year(now)month(now)day(now)hour(now)minute(now)second(now)rname
Else
GetFileName =""
End If
End Function
%
/body
/html
jquery ligerui,JSP，改变p title的值 JSP源代码为
document.getElementById("p1").title="老师信息表";
document.getElementById("p1").innerHtml="老师信息表";
用ACCESS制作收银系统的源代码！
你去下个源码,然后照着上面改:
001超市收银POS系统 2.49 Access版
001超市收银POS系统（ACCESS综合版） 2.57
pos网站源码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于pos软件源码、pos网站源码的信息别忘了在本站进行查找喔。
