?? admin_cert_inc.asp
字號:
</tr>
<%
sql="select id,cert_name,cert_cont from cert_type "&Sql_Condition&" order by id desc"
strFileName="?action="&action&"&types="&types&"&keyword="&keyword
colnum="5"
formaction="?action=del"
sqllist sql,colnum,strFileName,formaction
If outcom=True Then
type_showContent
showdelpages
End If
%>
</table>
<%
End Sub
'****************************************************
'名稱:type_showContent
'功能:翻頁列表輸出
'****************************************************
sub type_showContent()
dim i
i=0
do while not rs.eof
%>
<tr>
<td align="center">
<input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=Rs(0)%>' style=" border: 0px">
</td>
<td> <%=Rs(1)%></A></td>
<td> <%=Rs(2)%></td>
<td><A HREF="?action=edit&id=<%=Rs(0)%>">修改</A> <A HREF="?action=del&id=<%=Rs(0)%>">刪除</A></td>
<td> </td>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop%>
<%
end Sub
'****************************************************
'名稱:type_addinfos
'功能:添加信息
'****************************************************
Sub type_addinfos()
%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<FORM METHOD=POST ACTION="?action=save">
<%For i=0 To UBound(nows)
response.write "<TR><TD class=""zq"" width=""20%"">"&nows(i)&"</TD><TD> "
response.write "<INPUT TYPE=""text"" NAME="""&nowlm(i)&""">"
response.write "</TD></TR>"
Next
%>
<TR>
<TD> </TD>
<TD> <INPUT TYPE="submit" value="確認添加"></TD>
</TR>
</FORM>
</TABLE>
<%
End Sub
'****************************************************
'名稱:type_editinfos
'功能:編輯信息
'****************************************************
Sub type_editinfos()
Sql_Lists="cert_name,cert_cont"
Sql_tables="cert_type"
Sql_Conditions=" ID = "&id
sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
rs_edit = connopen(sql)
%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<FORM METHOD=POST ACTION="?action=mod">
<%
If isArray(rs_edit) Then
For i=0 To UBound(nows)
response.write "<TR><TD class=""zq"" width=""20%"">"&nows(i)&"</TD><TD> "
response.write "<INPUT TYPE="""
response.write "text"
response.write """ NAME="""&nowlm(i)&""" value="""&rs_edit(i,0)&""">"
response.write "</TD></TR>"
Next
Else
errormsg "參數錯誤"
End If
%>
<TR>
<TD> </TD>
<TD> <INPUT TYPE="submit" value="確認修改"><INPUT TYPE="hidden" NAME="id" value="<%=id%>"></TD>
</TR>
</FORM>
</TABLE>
<%
End Sub
'****************************************************
'名稱:type_jstable
'功能:接收表單提交過來的值
'****************************************************
Sub type_jstable()
cert_cont = che(request.form("cert_cont"))
cert_name = che(request.form("cert_name"))
End Sub
'****************************************************
'名稱:type_sqltable
'功能:將值提交入庫
'參數:types 為空或 "add" 判斷是修改記錄還是添加記錄
'****************************************************
Sub type_sqltable(types)
rs("cert_cont") = cert_cont
rs("cert_name") = cert_name
End Sub
'****************************************************
'名稱:jstable
'功能:接收表單提交過來的值
'****************************************************
Sub type2_jstable()
name_id = che(request("name_id"))
typeinfo = che(request("typeinfo"))
End Sub
'****************************************************
'名稱:sqltable
'功能:將值提交入庫
'參數:types 為空或 "add" 判斷是修改記錄還是添加記錄
'****************************************************
Sub type2_sqltable(types)
rs("name_id") = name_id
rs("typeinfo") = typeinfo
End Sub
'****************************************************
'名稱:listinfo
'功能:列表
'****************************************************
Sub type2_listinfos()
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function check_Col(strid) {
window.location.href="?action=<%=action%>&page=<%=page%>&name_id="+strid;
}
//-->
</SCRIPT>
<style type="text/css">
h5 ul {clear:left;width:800px;}
h5 ul li {clear:left;float:left;width:300px;line-height:30px;}
h5 ul li select {width:200px;}
h5 ul li.lefts {clear:left;}
</style>
<H6>切換查看： <a href="?action=list">全部</a> </H6>
<h5>
<ul>
<li>證書名稱 <SELECT NAME="<%=nows(0)%>" onchange="javascript:check_Col(this.options[this.selectedIndex].value)"><%=my_sqlsel(name_id,"cert_name")%></SELECT>
</ul>
</h5>
<table width="100%" align="center" border="1" class="info_tab2">
<tr>
<th width="5%" style="text-align:center;text-indent: 4px;">選</th>
<th width="30%">證書名稱</th>
<th width="30%">證書類別</th>
<th width="10%">操作</th>
<th> </th>
</tr>
<%
Sql_Conditions=""
If name_id<>0 Then Sql_Conditions=" and a.name_id="&name_id
sql=Sqlinfo("a.id,a.typeinfo,b.cert_name,b.cert_cont","Cert_typeinfo as a,cert_type as b","b.id = a.name_id " & Sql_Conditions," a.id ","1","")
colnum="6"
strFileName="?action="&action&"&name_id="&name_id
formaction="?action=del&name_id="&name_id
sqllist sql,colnum,strFileName,formaction
If outcom=True Then
type2_showContent
showdelpages
End If
%>
</TABLE>
<%
end sub
'****************************************************
'名稱:showContent
'功能:翻頁列表輸出
'****************************************************
sub type2_showContent
dim i
i=0
do while not rs.eof
%>
<tr>
<td class="art_info2" align="center">
<input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=Rs(0)%>' style=" border: 0px">
</td>
<td> <%=rs(1)%></td>
<td title="<%=rs(3)%>"> <%=rs(2)%></td>
<td> <A HREF="?action=edit&id=<%=Rs(0)%>">修改</A>｜<A HREF="?action=del&id=<%=Rs(0)%>">刪除</A></td>
<td> </td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end Sub
'****************************************************
'名稱:addinfos
'功能:添加信息
'****************************************************
Sub type2_addinfos()
%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<FORM METHOD=POST ACTION="?action=save" name="add">
<TR><TD class="zq" width="20%"><%=nows(0)%></TD>
<TD> <SELECT NAME="<%=nowlm(0)%>"><%=my_sqlsel(name_id,"cert_name")%></SELECT>
<span id="<%=nowlm(0)%>_txt">*</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=nows(1)%></TD>
<TD> <input name="<%=nowlm(1)%>" type="text" maxlength="20" value="" class="put"/>
<span id="<%=nowlm(1)%>_txt">*</span><BR>
</td>
</tr>
<TR><TD> </TD><TD> <input type="submit" name="send" value="確認添加"></TD></TR>
</FORM>
</TABLE>
<%
end Sub
'****************************************************
'名稱:editinfos
'功能:編輯信息
'****************************************************
Sub type2_editinfos()
If id="" Then errormsg "參數錯誤！"
sql=Sqlinfo("name_id,typeinfo","Cert_typeinfo"," ID = "&id,"","","")
rs_edit = connopen(sql)
If isArray(rs_edit)=False Then errormsg "參數錯誤"
%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<FORM METHOD=POST ACTION="?action=mod" name="edit" onsubmit="return CheckForm2();">
<TR><TD class="zq" width="20%"><%=nows(0)%></TD>
<TD> <SELECT NAME="<%=nowlm(0)%>"><%=my_sqlsel(rs_edit(0,0),"cert_name")%></SELECT>
<span id="<%=nowlm(0)%>_txt">*</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=nows(1)%></TD>
<TD> <input name="<%=nowlm(1)%>" type="text" maxlength="20" value="<%=rs_edit(1,0)%>" class="put"/>
<span id="<%=nowlm(1)%>_txt">*</span><BR>
</td>
</tr>
<TR><TD> </TD><TD> <input type="submit" name="send" value="確認修改">
<INPUT TYPE="hidden" NAME="id" value="<%=id%>">
</TD></TR>
</FORM>
</TABLE>
<%
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -