?? empmain_cp_info.asp
字號:
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
selname="產品"
Set SCode = Server.CreateObject("ADODB.Recordset")
SCode.ActiveConnection = MM_EmpMain_STRING
SCode.Source = "SELECT * FROM T_Class where F_SelectName = '"& selName &"'"
SCode.CursorLocation = 2
SCode.LockType = 1
SCode.Open()
dim diqustr,astr
diqustr=SCode("F_OptionContent")
if diqustr="" then
response.write("無法讀取數據")
response.End()
else
astr=split(diqustr,"，")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>產品</title>
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
</head>
<SCRIPT language=Javascript>
<!-- hide
function fsected(obj) {
if (window.dialogArguments.document.myform.cp.value==""){
window.dialogArguments.document.myform.cp.value=obj.value;
}else{
var str="，"
window.dialogArguments.document.myform.cp.value+=str+obj.value;
}
}
function dook(){
window.close();
}
function doreset(){
window.dialogArguments.document.myform.cp.value=""
}
function insertsmilie(smilieface){
document.myform.cp.value=smilieface;
window.close()
}
// -->
</SCRIPT>
<body bgcolor="#EAF4FF" class="body"> <form name=chinwxt>
<table border="1" width="100%" cellspacing="1" bordercolordark="#999999" bordercolor="#666666">
<tr> <% k=0
for i=0 to ubound(astr)
if request("id")="" then
strch=""
else
if instr(userdq,astr(i))>0 then
strch="checked"
else
strch=""
end if
end if
k=k+1%>
<td ><font size="2">
<p align="left">
<input type="checkbox" name="namecheck" <%=strch%> value="<%=astr(i)%>" onclick="fsected(this)" >
<%=astr(i)%></font></td>
<%
if k mod 3= 0 then%>
</tr>
<tr>
<% end if
next
%>
</tr>
</table>
<center><button name="ok" onClick="dook()">確定</button> <button name="reset" onClick="doreset()">重配</button></center>
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -