复选框、布尔型数据在列表、添加、修改、查询中的显示

最新推荐文章于 2021-10-22 12:56:49 发布

ynrainy

最新推荐文章于 2021-10-22 12:56:49 发布

阅读量1.4k

点赞数

分类专栏： UI和view层文章标签： action input function insert border list

本文链接：https://blog.csdn.net/tommycsdn/article/details/4306507

版权

UI和view层专栏收录该内容

5 篇文章 0 订阅

订阅专栏

1、数据库数据结构

数据结构

2、程序代码
<title>asp checkbox</title>
</head>
<body>
<%
action=Request("action")
If action="list" Then
   listinfo
ElseIf action="add" Then
   addinfo
ElseIf action="insert" Then
   insertInfo
ElseIf action="edit" Then
   keyId=request("keyId")
   editinfo keyId
ElseIf action="update" Then
   updateinfo
End If
%>

<%'列表页面
Sub listinfo()
   Set rs=Server.CreateObject("ADODB.RecordSet")
   trainType2=Request("trainType2")
   strsql="select keyid,student_name,trainType1,trainType2,trainType3 from stu_Ejjz where 1=1"
   If len(request("trainType2"))>0 Then
       strsql=strsql&"and trainType2='"&trainType2&"'"
   End If
   rs.Open strsql,con,1,3
%>
<form action="?action=list">
    <input type="hidden" name="action" value="list" />
视频<select name="trainType2">
    <option value="">请选择</option>
    <option value="1" <%=isSelect(1,trainType2)%> >是</option>
    <option value="0" <%=isSelect(0,trainType2)%> >否</option>
    </select>
    <input type="submit" value="查询" />
</form>
<a href="aspcheckbox.asp?action=add">增加</a>
<table border=1 bordercolor="#000000" cellpadding="0" cellspacing="0" >
<tr>
<td>姓名</td>
<td>面授</td>
<td>视频</td>
<td>网络</td>
<td>冲刺</td>
</tr>
<%
   Do While Not rs.Eof
%>
<tr>
<td align="center"><a href="aspcheckbox.asp?action=edit&keyid=<%=rs("keyid")%>"><%=rs("student_name")%></a></td>
<td align="center"><%=displayIsChecked(rs("trainType1"))%></td>
<td align="center"><%=displayIsChecked(rs("trainType2"))%></td>
<td align="center"><%=displayIsChecked(rs("trainType3"))%></td>
<td align="center"><%=displayIsChecked(rs("trainType3"))%></td>
</tr>
<%
   rs.MoveNext
   Loop
   rs.Close
   set rs=nothing
%>
</table>
<%
End Sub
%>

<%'添加新记录页面
Sub addinfo()
%>
    <form action="?action=insert" method="post">
    <table border="1" bordercolor="#000000">
      <tr>
         <td>姓名</td><td><input type="text" name="student_name" /></td>
      </tr>
      <tr>
         <td>学习方式</td>
         <td>
             面授<input type="checkbox" name="trainType1" value="1" />
             视频<input type="checkbox" name="trainType2" value="1" />
             冲刺<input type="checkbox" name="trainType3" value="1" />
         </td>
      </tr>
      <tr>
        <td></td>
        <td><input type="submit" value="提交" /></td>
       </tr>
    </table>
<%
End Sub
%>

<%'编辑记录页面
Sub editinfo(keyid)
If keyid="" Or keyid=null Or isEmpty(keyid) Then
   Response.Write("参数错误!!!")
   Response.End()
Else
   Set rs=Server.CreateObject("ADODB.RecordSet")
   strSql="Select * From stu_Ejjz where keyid="&keyid
   rs.Open strSql,con,1,3
   If Not rs.Eof Then
%>
    <form action="?action=update" method="post">
    <input type="hidden" name="keyid" value="<%=rs("keyid")%>" />
    <table border="1" bordercolor="#000000">
      <tr>
         <td>姓名</td><td><input type="text" name="student_name" value="<%=rs("student_name")%>" /></td>
      </tr>
      <tr>
         <td>学习方式</td>
         <td>
             面授<input type="checkbox" name="trainType1" value="1" <%=checkBoxValue(rs("trainType1"))%>/>
             网络<input type="checkbox" name="trainType2" value="1" <%=checkBoxValue(rs("trainType2"))%>/>
             冲刺<input type="checkbox" name="trainType3" value="1" <%=checkBoxValue(rs("trainType3"))%>/>
         </td>
      </tr>
      <tr>
        <td></td>
        <td><input type="submit" value="提交" /></td>
       </tr>
    </table>
<%
   rs.Close
   Set rs=Nothing
   End If
End If
End Sub
%>

<% '添加新数据逻辑层
Sub insertInfo()
   student_name=Request.Form("student_name")
   trainType1=Request.Form("trainType1")
   trainType2=Request.Form("trainType2")
   trainType3=Request.Form("trainType3")
   sqlstr="insert into stu_Ejjz (student_name,trainType1,trainType2,trainType3) values('"&student_name&"','"&trainType1&"','"&trainType2&"','"&trainType3&"')"
   con.execute(sqlstr)
%>
   添加成功!!!<a href="aspcb.asp?action=list">返回</a>
<%
End Sub
%>

<% '更新数据逻辑层
Sub updateInfo()
   keyid=Request("keyId")
   student_name=Request.Form("student_name")
   trainType1=Request.Form("trainType1")
   trainType2=Request.Form("trainType2")
   trainType3=Request.Form("trainType3")
   sqlstr="update stu_Ejjz set student_name='"&student_name&"',trainType1='"&trainType1&"',trainType2='"&trainType2&"',trainType3='"&trainType3&"' where keyId="&keyid
   con.execute(sqlstr)
%>
   更新成功!!!<a href="aspcb.asp?action=list">返回</a>
<%
End Sub
%>

<%
'从数据库读出布尔型数据显示在页面
Function checkBoxValue(booleanValue)
   If booleanValue=true Then
       checkBoxValue="checked"
   Else
       checkBoxValue=""
   End If
End Function

'列表上显示勾
Function displayIsChecked(booleanValue)
   If booleanValue=true Then
      displayIsChecked="√"
   Else
      displayIsChecked=" "
   End If
End Function

'查询页面传参数，在新页面下拉列表中的显示判断
Function isSelect(strValue,strText)
    If strText="" Then
Exit Function
ElseIf Int(strValue)=Int(strText) Then
  isSelect="selected"
    Else
     isSelect=""
End If
End Function
%>

</body>
</html>

ynrainy

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
复选框、布尔型数据在列表、添加、修改、查询中的显示

1、数据库数据结构2、程序代码asp checkboxaction=Request("action")If action="list" Then listinfoElseIf action="add" Then addinfoElseIf action="insert" Then insertInfoElseIf action="edit" Then keyId=requ
复制链接

扫一扫