1、 資料庫資料結構
2、程式**
asp checkbox
<%
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
%>
>是
>否
增加姓名
面授網路
衝刺<%
do while not rs.eof
%>
"><%=rs("student_name")%>
<%=displayischecked(rs("traintype1"))%>
<%=displayischecked(rs("traintype2"))%>
<%=displayischecked(rs("traintype3"))%>
<%=displayischecked(rs("traintype3"))%>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<%
end sub
%>
<%'新增新記錄頁面
sub addinfo()
%>
姓名學習方式
<%
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
%>
" />
姓名" />
學習方式
面授/>
網路/>
衝刺/>
<%
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)
%>
新增成功!!!返回
<%
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)
%>
更新成功!!!返回
<%
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
%>
php 設定核取方塊 Php 發布核取方塊列表
在sql請求之後,我獲得了乙個包含資料列表的表單,每行末尾都有核取方塊.目標如下.如果使用者檢查其中一些,則在提交表單時將在資料庫中刪除該行.我用我的sql請求結果命名這樣的核取方塊,所以我的php指令碼可以找到要刪除的行 我的目標是將所有帶有 post的核取方塊值新增到我的php指令碼中.但即便如...
GridControl填充核取方塊列表項
第三方控制項devexpress功能挺強大。不過，面對太多的屬性和方法，用起來真的感覺如大海撈針。這2天，專案上修整介面，想在gridcontrol加一列核取方塊列表項。結果，嘗試了n多方法，翻了一堆錯誤，還是沒整出來。最後，還是專案老大幫我解決了。無語！2個小錯誤把我折騰的死去活來。廢話少說上 吧...
delphi在TreeView 裡加核取方塊
這裡是建立乙個乙個類 type tcheckboxtreeview class ttreeview protected procedure createparams var params tcreateparams override end 具體只要加一句話 procedure tcheckboxt...