网上买的232或者485转tcp/ip的模块可以用来做网页吗，也就是上位机用电脑基于WEB的页面，有知道的吗？

导读：网上买的232或者485转tcp/ip的模块可以用来做网页吗，也就是上位机用电脑基于WEB的页面，有知道的吗？ 基于web方式的服务器账号系统容易实现吗

不行，现在还没有哪家的串口服务器可以用网页来读取数据，只能对串口服务器进行设置。串口服务器是基于C/S 模式的，而网页是基于B/S模式的，要实现难度很大。

基于web方式的服务器账号系统容易实现吗

　首先，在VB 6.0中建立一个ActiveX Dll工程项目，信息如下： 　　工程名称：systimeset 　　类模块名称：timeset 　　VB 6.0的类模块代码如下： 1Option Explicit 2Private SystemTime As SystemTime 3Private Declare Function SetSystemTime()Function SetSystemTime Lib kernel32 (lpSystemTime As SystemTime) As Long 4Private Type SystemTime 5 wYear As Integer 6 wMonth As Integer 7 wDayOfWeek As Integer 8 wDay As Integer 9 wHour As Integer 10 wMinute As Integer 11 wSecond As Integer 12 wMilliseconds As Integer 13End Type 14 15Dim tmp 16 17Private m_Hour As Integer 18Private m_Minute As Integer 19Private m_Year As Integer 20Private m_Month As Integer 21Private m_Day As Integer 22Private m_Second As Integer 23 24'由李锡远修改 修改日期： 修改项目：增加对年、月、日、秒的操作 25'-------------------- 26'年 27Public Property Get()Property Get Year() As Integer 28Year = m_Year 29End Property 30Public Property Let()Property Let Year(tmp_Year As Integer) 31m_Year = tmp_Year 32End Property 33'-------------------- 34'月 35Public Property Get()Property Get Month() As Integer 36Month = m_Month 37End Property 38Public Property Let()Property Let Month(tmp_Month As Integer) 39m_Month = tmp_Month 40End Property 41'-------------------- 42'日 43Public Property Get()Property Get Day() As Integer 44Day = m_Day 45End Property 46Public Property Let()Property Let Day(tmp_Day As Integer) 47m_Day = tmp_Day 48End Property 49'-------------------- 50'秒 51Public Property Get()Property Get Second() As Integer 52Second = m_Second 53End Property 54Public Property Let()Property Let Second(tmp_Second As Integer) 55m_Second = tmp_Second 56End Property 57 58 59 60Public Property Get()Property Get Hour() As Integer 61Hour = m_Hour 62End Property 63Public Property Let()Property Let Hour(tmp_Hour As Integer) 64m_Hour = tmp_Hour 65End Property 66Public Property Get()Property Get Minute() As Integer 67Minute = m_Minute 68End Property 69Public Property Let()Property Let Minute(tmp_Minute As Integer) 70m_Minute = tmp_Minute 71End Property 72 73 74 75 76Public Function setup()Function setup() As Integer 77SystemTime.wDay = Day 78'SystemTime.wDayOfWeek = 1 79SystemTime.wMilliseconds = 0 80SystemTime.wMonth = Month 81SystemTime.wSecond = Second 82SystemTime.wYear = Year 83SystemTime.wHour = Hour 84SystemTime.wMinute = Minute 85setup = SetSystemTime(SystemTime) 86 87End Function 88 关于DLL的注册，通常VB在本机上编译后，会自动将DLL注册；但如果你要放到IIS服务器上，请使用如下方法： 1、将systimeset.dll拷贝到c:WINDOWSsystem32下； 2、在开始菜单的运行里面输入：regsvr32 systimeset.dll （敲回车啊） 3、因为修改服务器的时间，INTERNET来宾帐户不具有该权限，设立权限请打开控制面版中的“管理工具”，然后打开“本地安全策略”－－“用户权力指派”，双击“更改系统时间”，在弹出的对话框中点“添加用户或组”，将INETNET来宾帐户加入进来。 4、一切完毕后，将IIS服务重新启动一次。 在上面的设置完毕后，使用systimeset.dll组件的ASP代码页面如下： 　　将其编译为systimeset.dll的文件。 1<% @language=vbscript %> 2<% 3function SetTime(strYear,strMonth,strDay) 4response.Expires=0 5set obj=server.createobject(systimeset.timeset) 6 obj.Year=strYear 7 obj.Month=strMonth 8 obj.Day=strDay 9 if Hour(now())-8>0 then 10 obj.Hour=Hour(now())-8 11 else 12 obj.Hour=8 13 end if 14 obj.Minute=Minute(now()) 15 obj.Second=Second(now()) 16 obj.setup 17 18set obj=Nothing 19end function 20 21if request(act)=modi then 22 call SetTime(request.Form(strYear),request.Form(strMonth),request.Form 23 24(strDay)) 25end if 26%> 27<form id=form1 name=form1 method=post action=?act=modi> 28 <table width=290 border=0> 29 <tr> 30 <td width=77><input name=strYear type=text id=strYear value=<%=Year(now())%> 31 32size=8 /></td> 33 <td width=49><input name=strMonth type=text id=strMonth value=<%=Month(now 34 35())%> size=5 /></td> 36 <td width=48><input name=strDay type=text id=strDay value=<%=Day(now())%> 37 38size=5 /></td> 39 <td width=98><input type=submit name=Submit value=修改日期 /></td> 40 </tr> 41 </table> 42</form> 43 　　将上面的ASP代码页面粘贴到一个空的ASP文件中，然后在IIS中将站点设置好就可以了。（设置IIS虚拟目录也可以的。）

Hash:9c8303547edf02b9fd196be53b11fc09ebbbee63