class_html.asp

STM32 Keil 下的驱动STM32 Keil 下的驱动

.write("<table width='0' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#C8C8C8'>")&vbcrlf
.write("<tr><td height='20' colspan='2' ><div align='center'>欢迎"&request.cookies("user")&"来查看撰写的信件</div></td></tr>")&vbcrlf
.write("<tr><td width='67' height='20' >信件主题：</td><td width='370' ><input name='title' type='text' size='30' value='"&title&"'>*字符长度不能大于100字</td></tr>")&vbcrlf
.write("<tr><td height='20' >发送给：</td><td height='20' ><input name='to' type='text' size='20' value='"&user&"'>*输入合法的用户帐号</td></tr>")&vbcrlf
.write("<tr><td height='20' colspan='2' >发送内容：</td></tr><tr><td height='20' colspan='2' ><div align='center'><textarea name='content' cols='65' rows='20'>"&content&"</textarea></div></td></tr>")&vbcrlf
.write("<tr><td height='20' colspan='2' ><div align='center'><input type='submit' name='Submit' value='发送'></div></td></tr><tr>")&vbcrlf
.write("<td height='20' colspan='2' ><div align='center'><a href=javascript:history.go(-1)> [返回上一页]</a></div></td></tr></table></form>")&vbcrlf
end with
if info<>"" then
Cnwy_public.massage(info)
end if
 set Cnwy_public=nothing
 end function
public function readmassage()      '信件阅读页面设计HTML
dim id,info,reader,str
dim rs,sql,Cnwy_Public,fso,fli
set Cnwy_public=new CnwyAsp_Public
call connopen()
id=trim(request.querystring("id"))
reader=trim(request.cookies("user"))
with response
if isnumeric(id) then
   sql="select * from CnwyAsp_Massage where id="&id
   set rs=server.createobject("adodb.recordset")
   rs.open sql,conn,2,3
      if not rs.eof and not rs.bof then
            if rs("sender")=reader or rs("to")=reader then
			       set fso=server.CreateObject("scripting.filesystemobject")
				   set fli=fso.opentextfile(server.mappath(rs("content")),1)
			       str=fli.readall
				   fli.close
				   set fso=nothing
				  .write("<table width='500' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#C8C8C8' ><tr><td height='20' colspan='2'><div align='center'><table width='0' border='0' cellspacing='0' cellpadding='0'><tr>")&vbcrlf
                  .write("<td width='75'><div align='center'><a href='user.asp?action=Msdel.asp&id="&id&"'><img src='images/delete.gif' width='40' height='40' border='0'></a></div></td> <td width='75'><div align='center'><a href='user.asp?action=Wmassage.asp&id="&id&"'>")&vbcrlf
                  .write("<img src='images/replypm.gif' width='40' height='40' border='0'></a></div></td><td width='75'><div align='center'><a href='user.asp?action=Wmassage.asp'><img src='images/write.gif' width='40' height='40' border='0'></a></div></td>")&vbcrlf
                  .write("</tr></table></div></td> </tr>")&vbcrlf
                  .write("<tr><td height='20' colspan='2' ><div align='center'>欢迎"&request.cookies("user")&"来查看的信件内容</div></td> </tr>")&vbcrlf
                  .write("<tr><td width='67' height='25' >信件主题：</td><td width='390'>"&rs("title")&"</td></tr>")&vbcrlf
                  .write("<tr><td height='25' ><p>发 送 人：</p></td><td height='20' >"&rs("sender")&"</td>")&vbcrlf
                  .write("<tr><td height='25' ><p>收 件 人：</p></td><td height='20' >"&rs("to")&"</td>")&vbcrlf
				  .write("<tr><td height='25' ><p>发送时间：</p></td><td height='20' >"&rs("date")&"</td></tr>")&vbcrlf
				  .write("<tr><td height='25' ><p>信件大小：</p></td><td height='20' >"&rs("dx")&"Byte</td></tr>")&vbcrlf
                  .write("<tr><td height='25' colspan='2' >信件内容:</td></tr><tr><td colspan='2' >"&str&"</td></tr>")&vbcrlf
                  .write("<tr><td height='20' width='500' colspan='2' ><div align='center'><a href=javascript:history.go(-1);>[返回上一页]</a></div></td></tr>")&vbcrlf
                  .write(" </table>")&vbcrlf
				     if rs("to")=reader then
					  rs("look")=true
					  rs.update
					end if
			  else
			     info="对不起您没有权限阅读此信件."
		   end if
       else
	     info="对不起您阅读的信件不存在或者被删除."
	end if 
   rs.close
   set rs=nothing  
	 else
         info="大哥你搞什么啊?SQL注入吗?没事加我的QQ32940696聊天."
end if
if info<>"" then
Cnwy_public.massage(info)
end if
call connclose()
set Cnwy_public=nothing
end with
end function
public function dutyhtml()
dim rs,sql,i,week(6),shenpi(6),shenhe(6)
i=0
call connopen()
sql="select * from CnwyAsp_duty order by id asc"
set rs=conn.execute(sql)
with response
rs.movefirst
do while not rs.eof 
week(i)=rs("weekname")
shenpi(i)=rs("shenpi")
shenhe(i)=rs("shenhe")
i=i+1
rs.movenext
loop
.write("<table width='0' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#C8C8C8'>")&vbcrlf
.write("<tr><td height='20' colspan='3'><div align='center'>值班人员查看</div></td></tr>")&vbcrlf
.write("<tr><td width='120' height='20'><div align='center'>星期</div></td><td width='130'><div align='center'>值班审批员</div></td><td width='130' height='20'><div align='center'>值班审核员</div></td></tr>")&vbcrlf
for i=0 to ubound(week)
.write("<tr><td height='20'><div align='center'>"&week(i)&"</div></td><td height='20'><div align='center'>"&shenpi(i)&"</div></td><td height='20'><div align='center'>"&shenhe(i)&"</div></td></tr>")&vbcrlf
next
.write("</table>")&vbcrlf
end with
rs.close
set rs=nothing
call connclose()
end function
'==================================================================================================	
'用户操作页面设计由此结束
'写做结束时间：2005年08月31日	
'==================================================================================================
'==================================================================================================	
'系统操作页面设计由此开始
'写做开始时间：2005年08月31日	
'==================================================================================================
public function systemhtml()   '系统参数设置页面HTML
   dim strarr,valuearr,namearr,zsarr,num,checked,turn
   dim rs,sql,Cnwy_user
    set Cnwy_user=new CnwyAsp_user
       Cnwy_user.checkmaster(1)
       call connopen()
	   sql="select * from CnwyAsp_config where id=1"
	   set rs=conn.execute(sql)
	  strarr=array("程 序 名 称:","程 序 的 地 址:","信 件 分 页 数:","管理管理员分页数:","在线管理员分页数:","假条显示分页数 :","个人邮箱的大小 :","越假时间限制:")
	  namearr=array("title","url","mailpage","adminpage","online","vacpage","maildx","vaclimit")
	  zsarr=array("*不能超过20个字","*程序URL","*建议值20","*建议值20","*建议值20","*建议值20","*以KB为单位","*以分钟为单位")
	  valuearr=array(rs("title"),rs("url"),rs("mailpage"),rs("adminpage"),rs("online"),rs("vacpage"),rs("maildx"),rs("vaclim"))
	     with response
                   .write("<form name='form1' method='post' action='manage.asp?action=sysxg.asp'><table width='0' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#C8C8C8'>")&vbcrlf
				   .write("<tr><td height='20' colspan='2'><div align='center'>系统参数设置</div></td></tr>")&vbcrlf
			num=ubound(strarr)
			   for i=0 to num
                   .write("<tr><td width='111' height='20'><div align='center'>"&strarr(i)&"</div></td><td width='288'><input name='"&namearr(i)&"' type='text' value='"&valuearr(i)&"'>"&zsarr(i)&"</td></tr>")&vbcrlf
                next
			if rs("duty")=true then
			  checked=array("checked"," ")
			 else
			  checked=array(" ","checked")
			 end if
			 if rs("turn")=true then
			  turn=array("checked"," ")
			 else
			  turn=array(" ","checked")
			 end if
			       .write("<tr><td height='20'><div align='center'>系 统 状 态 :</div></td><td><input type='radio' name='turn' value='true' "&turn(0)&">开启<input type='radio' name='turn' value='false' "&turn(1)&">关闭&nbsp;*关闭时只有超管可以登陆</td></tr>")&vbcrlf
				   .write("<tr><td height='20'><div align='center'>开启值班列表 :</div></td><td><input type='radio' name='duty' value='true' "&checked(0)&">开启<input type='radio' name='duty' value='false' "&checked(1)&">关闭&nbsp;*开启时只有超管和值班用户可以登陆</td></tr>")&vbcrlf
                   .write("<tr><td height='20' colspan='2'><div align='center'><input type='submit' name='Submit' value='修改'></div></td></tr></table></form>")&vbcrlf
		 
		  end  with
		 rs.close
		set rs=nothing
		call connclose()
		set Cnwy_user=nothing
	end function 
public function Mdutyhtml()            '值班人员管理页面
dim rs,sql,i,week(6),shenpi(6),shenhe(6),Cnwy_user
i=0
set Cnwy_user=new CnwyAsp_user
Cnwy_user.checkmaster(1)
call connopen()
sql="select * from CnwyAsp_duty order by id asc"
set rs=conn.execute(sql)
with response
rs.movefirst
do while not rs.eof 
week(i)=rs("weekname")
shenpi(i)=rs("shenpi")
shenhe(i)=rs("shenhe")
i=i+1
rs.movenext
loop
.write("<form name='form1' method='post' action='Manage.asp?action=Sduty.asp'><table width='0' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#C8C8C8'>")&vbcrlf
.write("<tr><td height='20' colspan='3'><div align='center'>值班人员管理</div></td></tr>")&vbcrlf
.write("<tr><td width='120' height='20'><div align='center'>星期</div></td><td width='130'><div align='center'>值班审批员</div></td><td width='130' height='20'><div align='center'>值班审核员</div></td></tr>")&vbcrlf
for i=0 to ubound(week)
.write("<tr><td height='20'><div align='center'>"&week(i)&"</div></td><td height='20'><div align='center'><input name='shenpi"&i&"' type='text' size='15' value='"&shenpi(i)&"'></div></td><td height='20'><div align='center'><input name='shenhe"&i&"' type='text' size='15' value='"&shenhe(i)&"'></div></td></tr>")&vbcrlf
next
.write("<tr><td height='20' colspan='3'><div align='center'><input type='submit' name='Submit' value='设置'></div></td></tr></table></form>")&vbcrlf
end with
rs.close
set rs=nothing
call connclose()
set Cnwy_user=nothing
end function

public function framehtml()
dim rs,sql,Cnwy_user
set Cnwy_user=new CnwyAsp_user
Cnwy_user.checkmaster(1)
call connopen
sql="select * from CnwyAsp_Frame order by id asc"
set rs=conn.execute(sql)
with response
.write("<form name='form1' method='post' action='manage.asp?action=framexg.asp'><table width='0' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#C8C8C8'>")&vbcrlf
.write("<tr><td width='399' height='20'><div align='center'>机 构 管 理</div></td> </tr>")&vbcrlf
.write("<tr><td height='30'><div align='center'> <table width='383' border='0' cellpadding='0' cellspacing='0'>")&vbcrlf
.write("<tr><td width='120'><select name='frame'>")
if not rs.eof or not rs.bof then
rs.movefirst
do while not rs.eof
.write("<option value='"&rs("framework")&"'>"&rs("framework")&"</option>")
rs.movenext
loop
else
.write("<option value=></option>")
end if
.write("</select></td>")&vbcrlf
.write("<td width='80'><input name='name' type='text' size='20'></td>")&vbcrlf
.write("<td width='50'><div align='center'><input type='submit' name='submit' value='增加'></div></td>")&vbcrlf
.write("<td width='50'><div align='center'><input type='submit' name='submit' value='修改'> </div></td>")&vbcrlf
.write("<td width='50'><div align='center'><input type='submit' name='submit' value='删除'> </div></td>")&vbcrlf
end with
Call connclose()
set Cnwy_user=nothing
end function
public function vacationhtml()
dim rs,sql,Cnwy_user,Cnwy_public
dim id,sj,sjr,qjr,vacl,timetype,vactype,frame,reason,info,tilte
set Cnwy_public=new CnwyAsp_public
set Cnwy_user=new CnwyAsp_user
Cnwy_user.checkmaster(0)
Cnwy_user.checkmaster(2)
call connopen()
id=request.querystring("id")
tilte="欢迎"&request.cookies("user")&"来到假条编写页面"
if id<>"" and isnumeric(id) then
 sql="select * from CnwyAsp_Vacation where id="&id
 set rs=conn.execute(sql)
  if not rs.eof and not rs.bof then
    sj=rs("shaojia")
	sjr=rs("shaojiar")
	qjr=rs("qjren")
	vacl=rs("tlimit")
	timetype=rs("timetype")
	vactype=rs("vactype")
	frame=rs("frame")
	reason=rs("reason")
	rs.close
	tilte="欢迎"&request.cookies("user")&"来修改编号为"&id&"的假条信息"
  else
    info="对不起,此编号的请假信息不存在." 
	Cnwy_public.massage(info)
  end if
end if
sql="select * from CnwyAsp_Frame order by id asc"
set rs=conn.execute(sql)
with response
.write("<form name='form1' method='post' action='manage.asp?action=vacadd.asp&id="&id&"'> <table width='632' height='177' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#C8C8C8'>")&vbcrlf
.write("<tr><td width='628' height='25'><div align='center'>"&tilte&"</div></td></tr>")&vbcrlf
.write("<tr><td height='25'><table border='0' cellspacing='0' cellpadding='0'><tr><td width='82' height='20'>假条编写员:</td><td width='108'><input type='text' disabled maxlength='bxadmin' value='"&request.cookies("user")&"'></td><td width='86'><div align='right'>编写时间:</div></td>")&vbcrlf
.write("<td width='140'><input name='textfield' type='text' disabled size='20' maxlength='bxdate' value='"&now()&"'></td><td width='86'><div align='right'></div></td><td width='105'> </td></tr></table></td></tr>")&vbcrlf
.write("<tr><td height='25'><table width='629' border='0' cellpadding='0' cellspacing='0'><tr><td width='41'>捎 假:</td><td width='52'><select name='sj' id='sj' value='"&sj&"'><option value='true'>是</option><option value='false'>否</option></select></td>")&vbcrlf
.write("<td width='70' height='20'><div align='right'>捎 假 人:</div></td><td width='128'><input name='sjr' type='text' id='sjr' size='15' Value='"&sjr&"'></td><td width='76'><div align='center'>请 假 人:</div></td>")&vbcrlf
.write("<td width='129'><input name='qjr' type='text' id='qjr' size='15' Value='"&qjr&"'></td><td width='43' height='20'><div align='right'></div></td>	</tr></table></td></tr>")&vbcrlf
.write("<tr><td height='25'><table height='20' border='0' cellpadding='0' cellspacing='0'><tr><td width='65'>请假期限:</td><td width='70'><input name='tlimit' type='text' id='tlimit' size='10' Value='"&vacl&"'></td>")&vbcrlf
.write("<td width='61'><select name='timetype' id='timetype'><option value='mintue' Value='"&timetype&"'>分钟</option><option value='hour'>小时</option><option value='day'>天</option><option value='week'>星期</option><option value='mouth'>月</option><option value='year'>年</option></select></td>")&vbcrlf
.write("<td width='90'><div align='center'>请假类型:</div></td><td width='70'><select name='type' id='type' Value='"&vactype&"'><option value='事假'>事假</option><option value='病假'>病假</option><option value='其他'>其他</option> </select></td>")&vbcrlf
.write("<td width='120'>请假人所属机构：</td><td width='153' ><select name='frame' id='frame' Value='"&frame&"'>")
rs.movefirst
do while not rs.eof 
.write("<option value='"&rs("Framework")&"'>"&rs("Framework")&"</option>")
rs.movenext
loop
.write("</select></td></tr></table></td> </tr>")&vbcrlf
.write("<tr><td height='13'> </td></tr><tr><td height='12'><table border='0' cellspacing='0' cellpadding='0'><tr><td width='109'>请假原因:</td><td width='311' height='25'><textarea name='reason' cols='50' rows='10' id='reason'>"&reason&"</textarea></td>")&vbcrlf
.write("</tr></table></td></tr><tr><td height='25'></td></tr><tr><td height='25'><div align='center'><input type='submit' name='Submit' value='提交'></div></td></tr></table></form>")&vbcrlf
end with
rs.close
set rs=nothing
call connclose()
set Cnwy_user=nothing
end function