📄 vs_items.asp
字号:
<body>
<iframe width="260" height="165" id="colorPalette" src="../CommPages/selcolor.htm" style="visibility:hidden; position: absolute;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tr class="hback">
<td colspan="10" align="left" class="xingmu" >投票选项管理</td>
</tr>
<tr class="hback">
<td colspan="10" height="25">
<a href="VS_Items.asp">管理首页</a> | <a href="VS_Items.asp?Act=Add">新增</a> | <a href="VS_Items.asp?Act=Search" title="数字和日期型的字段,支持<=<>=><>等等运算符号如:查过期天数>2 ; 其它类型支持 A B ,A* *B ,*A* *B* ,AB等模式.">查询</a>
</td>
</tr>
</table>
<%
'******************************************************************
select case request.QueryString("Act")
case "Add","Edit","Search"
Add_Edit_Search
case "View","SearchGo",""
View
case "Save"
Save
case "Del"
Del
case "OtherSet"
OtherSet(request.QueryString("Sql"))
case else
response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>错误的参数传递。</li>") : response.End()
end select
'******************************************************************
Sub View
if not MF_Check_Pop_TF("VS003") then Err_Show
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="form1" id="form1" method="post" action="?Act=Del">
<tr class="hback">
<td align="center" class="xingmu"><a href="javascript:OrderByName('ItemName')" class="sd"><b>选项描述</b></a>
<span id="Show_Oder_ItemName"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('TID')" class="sd"><b>所属调查</b></a>
<span id="Show_Oder_TID"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('ItemMode')" class="sd"><b>选项模式</b></a>
<span id="Show_Oder_ItemMode"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('PicSrc')" class="sd"><b>图片位置</b></a>
<span id="Show_Oder_PicSrc"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('DisColor')" class="sd"><b>显示颜色</b></a>
<span id="Show_Oder_DisColor"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('VoteCount')" class="sd"><b>票数</b></a>
<span id="Show_Oder_VoteCount"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('ItemDetail')" class="sd"><b>选项说明</b></a>
<span id="Show_Oder_ItemDetail"></span></td>
<td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
</tr>
<%
response.Write( Get_While_Info( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
%>
</form>
</table>
<%End Sub
Sub Add_Edit_Search()
Dim Bol_IsEdit,IID,TID,ItemValue,ItemMode,DisColor,VoteCount
Bol_IsEdit = false
if request.QueryString("Act")="Edit" then
if not MF_Check_Pop_TF("VS002") then Err_Show
IID = request.QueryString("IID")
if IID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的IID没有提供。</li>") : response.End()
VS_Sql = "select IID,TID,ItemName,ItemValue,ItemMode,PicSrc,DisColor,VoteCount,ItemDetail from FS_VS_Items where IID = "& IID
Set VS_Rs = CreateObject(G_FS_RS)
VS_Rs.Open VS_Sql,Conn,1,1
if not VS_Rs.eof then
Bol_IsEdit = True
TID = VS_Rs("TID")
ItemValue = VS_Rs("ItemValue")
ItemMode = VS_Rs("ItemMode")
DisColor = VS_Rs("DisColor")
VoteCount = VS_Rs("VoteCount")
end if
elseif request.QueryString("Act") = "Add" then
if not MF_Check_Pop_TF("VS002") then Err_Show
TID = request.QueryString("TID")
ItemValue = request.QueryString("ItemValue")
if ItemValue = "" then ItemValue = "1-9"
ItemMode = 1
DisColor = ""
VoteCount = request.QueryString("VoteCount")
if VoteCount = "" then
randomize
VoteCount = CStr(Int((99* Rnd) + 1))
end if
end if
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="form1" id="form1" method="post" <%if request.QueryString("Act")<>"Search" then response.Write("action=""?Act=Save"" onsubmit=""return chkinput();""") else response.Write("action=""?Act=SearchGo""") end if%>>
<tr class="hback">
<td colspan="3" align="left" class="xingmu" >投票选项信息<%if Bol_IsEdit then response.Write("<input type=""hidden"" name=""IID"" id=""IID"" value="""&VS_Rs("IID")&""">") end if%></td>
</tr>
<%if request.QueryString("Act")="Search" then %>
<tr class="hback">
<td width="100" align="right">自动编号</td>
<td>
<input type="text" name="IID" id="IID" size="11" maxlength="11">
</td>
</tr>
<%end if%>
<tr class="hback">
<td align="right">所属投票</td>
<td>
<select name="TID" id="TID" onChange="Do.these('TID',function(){return isEmpty('TID','TID_Alt')})">
<option value="">请选择</option>
<%=Get_FildValue_List("select TID,'分类:'+ClassName+'--主题:'+Theme from FS_VS_Theme A,FS_VS_Class B where A.CID=B.CID",TID,1)%>
</select>
<span id="TID_Alt"></span>
</td>
</tr>
<tr class="hback">
<td align="right">选项描述</td>
<td>
<input type="text" name="ItemName" id="ItemName" size="50" maxlength="100" onFocus="Do.these('ItemName',function(){return isEmpty('ItemName','ItemName_Alt')})" onKeyUp="Do.these('ItemName',function(){return isEmpty('ItemName','ItemName_Alt')})" value="<%if Bol_IsEdit then response.Write(VS_Rs("ItemName")) end if%>">
<span id="ItemName_Alt"></span>
</td>
</tr>
<tr class="hback">
<td align="right">项目符号</td>
<td>
<select name="ItemValue" id="ItemValue">
<%=PrintOption(ItemValue,":请选择,A-Z:A-Z,a-z:a-z,1-9:1-9,·:·,else:"&ItemValue)%>
</select>
<span class="tx">A-Z,a-z,1-9或其它不递增的符号 </span>
<span id="ItemValue_Alt"></span>
</td>
</tr>
<tr class="hback">
<td align="right">选项模式</td>
<td> <select name="ItemMode" id="ItemMode" onChange="Do.these('ItemMode',function(){return isEmpty('ItemMode','ItemMode_Alt')}); this.options[this.selectedIndex].value=='3'?PicSrc.disabled=false:PicSrc.disabled=true;">
<%=PrintOption(ItemMode,":请选择,1:文字描述模式,2:自主填写模式,3:图片模式")%>
</select>
<span class="tx">选择自主填写模式,文字后可以多个录入框,建议选择 </span>
<span id="ItemMode_Alt"></span></td>
</tr>
<tr class="hback">
<td align="right">图片位置</td>
<td>
<input type="text" name="PicSrc" id="PicSrc" readonly="" size="50" maxlength="200" value="<%if Bol_IsEdit then response.Write(VS_Rs("PicSrc")) end if%>">
<input type="button" name="bnt_ChoosePic_rowBettween" value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',500,300,window,document.form1.PicSrc);">
<span class="tx">图片位置(针对图片模式而言) </span>
<span id="PicSrc_Alt"></span>
</td>
</tr>
<tr class="hback">
<td align="right">显示颜色</td>
<td>
<input type="text" name="DisColor" id="DisColor" size="15" maxlength="7" <%if DisColor<>"" then response.Write("style=""background-color:"&DisColor&"""") end if%> value="<%=DisColor%>">
<img src="../Images/rectNoColor.gif" width="18" height="17" border=0 align="absmiddle" id="TitleFontColor_Show" style="cursor:pointer;background-color:;" title="选取颜色!" onClick="GetColor(this,'DisColor');">
<span class="tx">统计时显示颜色如#FF0000 </span> <span id="DisColor_Alt"></span>
</td>
</tr>
<tr class="hback">
<td align="right">当前票数</td>
<td>
<input type="text" name="VoteCount" id="VoteCount" size="15" maxlength="5" onFocus="Do.these('VoteCount',function(){return isEmpty('VoteCount','VoteCount_Alt')&&isNumber('VoteCount','VoteCount_Alt','必须数字',false)})" onKeyUp="Do.these('VoteCount',function(){return isEmpty('VoteCount','VoteCount_Alt')&&isNumber('VoteCount','VoteCount_Alt','必须数字',false)})" value="<%=VoteCount%>">
<span id="VoteCount_Alt"></span>
</td>
</tr>
<tr class="hback">
<td align="right">选项详细说明</td>
<td>
<textarea name="ItemDetail" cols="50" rows="15" id="ItemDetail"><%if Bol_IsEdit then response.Write(VS_Rs("ItemDetail")) end if%></textarea>
<span id="ItemDetail_Alt"></span>
</td>
</tr>
<tr class="hback">
<td colspan="4">
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td align="center"> <input type="submit"value=" 确定提交 " onClick="ItemDetail.value=ItemDetail.value.substring(0,300);" />
<input type="reset" value=" 重置 " />
<input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%="VS_Items.asp?Act=Del&IID="&IID%>'">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<%
End Sub
set VS_Rs = Nothing
Conn.close
%>
<script language="JavaScript">
<!--//判断后将排序完善.字段名后面显示指示
//打开后根据规则显示箭头
var Req_FildName;
if (Old_Sql.indexOf("filterorderby=")>-1)
{
var tmp_arr_ = Old_Sql.split('?')[1].split('&');
for(var ii=0;ii<tmp_arr_.length;ii++)
{
if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
{
if(Old_Sql.indexOf("csed")>-1)
{Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].indexOf("csed"));break;}
else
{Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);break;}
}
}
if (document.getElementById('Show_Oder_'+Req_FildName)!=null)
{
if(Old_Sql.indexOf(Req_FildName + "csed")>-1)
{
eval('Show_Oder_'+Req_FildName).innerText = '↓';
}
else
{
eval('Show_Oder_'+Req_FildName).innerText = '↑';
}
}
}
/////////////////////////////////////////////////////////
function chkinput()
{
return isEmpty('TID','TID_Alt') && isEmpty('ItemName','ItemName_Alt') && isEmpty('ItemMode','ItemMode_Alt') && isEmpty('VoteCount','VoteCount_Alt');
}
function getOffsetTop(elm) {
var mOffsetTop = elm.offsetTop;
var mOffsetParent = elm.offsetParent;
while(mOffsetParent){
mOffsetTop += mOffsetParent.offsetTop;
mOffsetParent = mOffsetParent.offsetParent;
}
return mOffsetTop;
}
function getOffsetLeft(elm) {
var mOffsetLeft = elm.offsetLeft;
var mOffsetParent = elm.offsetParent;
while(mOffsetParent) {
mOffsetLeft += mOffsetParent.offsetLeft;
mOffsetParent = mOffsetParent.offsetParent;
}
return mOffsetLeft;
}
function GetColor(img_val,input_val)
{
var PaletteLeft,PaletteTop
var obj = document.getElementById("colorPalette");
ColorImg = img_val;
ColorValue = document.getElementById(input_val);
if (obj){
PaletteLeft = getOffsetLeft(ColorImg)
PaletteTop = (getOffsetTop(ColorImg) + ColorImg.offsetHeight)
if (PaletteLeft+150 > parseInt(document.body.clientWidth)) PaletteLeft = parseInt(event.clientX)-260;
obj.style.left = PaletteLeft + "px";
obj.style.top = PaletteTop + "px";
if (obj.style.visibility=="hidden")
{
obj.style.visibility="visible";
}else {
obj.style.visibility="hidden";
}
}
}
function setColor(color)
{
if(ColorImg.id=="FontColorShow"&&color=="#") color='#000000';
if(ColorImg.id=="FontBgColorShow"&&color=="#") color='#FFFFFF';
if (ColorValue){ColorValue.value = color.substr(1);}
if (ColorImg && color.length>1){
ColorImg.src='../Images/Rect.gif';
ColorImg.style.backgroundColor = color;
}else if(color=='#'){ ColorImg.src='../Images/rectNoColor.gif';}
document.getElementById("colorPalette").style.visibility="hidden";
}
-->
</script>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -