📄 vs_theme.asp
字号:
oldFildName.indexOf("csed")>-1?New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName):New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName+"csed");
}
//alert(New_Sql);
location = New_Sql;
}
/////////////////////////////////////////////////////////
-->
</script>
<head>
<body>
<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_Theme.asp">管理首页</a> | <a href="VS_Theme.asp?Act=Add">新增</a> | <a href="VS_Theme.asp?Act=Search">查询</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('Theme')" class="sd"><b>调查主题</b></a>
<span id="Show_Oder_Theme"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('CID')" class="sd"><b>调查类别</b></a>
<span id="Show_Oder_CID"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('Type')" class="sd"><b>项目类型</b></a>
<span id="Show_Oder_Type"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('MaxNum')" class="sd"><b>最多选数</b></a>
<span id="Show_Oder_MaxNum"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('DisMode')" class="sd"><b>显示方式</b></a>
<span id="Show_Oder_DisMode"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('StartDate')" class="sd"><b>开始时间</b></a>
<span id="Show_Oder_StartDate"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('EndDate')" class="sd"><b>结束时间</b></a>
<span id="Show_Oder_EndDate"></span></td>
<td align="center" class="xingmu" ><b>JS调用</b></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()
if not MF_Check_Pop_TF("VS003") then Err_Show
Dim Bol_IsEdit,TID,CID,DisMode,sType,StartDate,EndDate,ItemMOde,MaxNum
Bol_IsEdit = false
if request.QueryString("Act")="Edit" then
TID = request.QueryString("TID")
if TID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的TID没有提供。</li>") : response.End()
VS_Sql = "select TID,CID,Theme,Type,MaxNum,DisMode,StartDate,EndDate,ItemMOde from FS_VS_Theme where TID = "& TID
Set VS_Rs = CreateObject(G_FS_RS)
VS_Rs.Open VS_Sql,Conn,1,1
if not VS_Rs.eof then
Bol_IsEdit = True
CID = VS_Rs("CID")
sType = VS_Rs("Type")
DisMode = VS_Rs("DisMode")
StartDate = VS_Rs("StartDate")
EndDate = VS_Rs("EndDate")
ItemMOde = VS_Rs("ItemMOde")
MaxNum = VS_Rs("MaxNum")
end if
elseif request.QueryString("Act") = "Add" then
sType = 1
DisMode = 1
StartDate = formatdatetime(now,0)
EndDate = formatdatetime(dateadd("m",1,now),0) ''一个月
ItemMOde = 1
MaxNum = 1
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"" onsubmit=""SearchAdd();""") end if%>>
<tr class="hback">
<td colspan="3" align="left" class="xingmu" >投票主题信息<%if Bol_IsEdit then response.Write("<input type=""hidden"" name=""TID"" id=""TID"" value="""&VS_Rs("TID")&""">") end if%></td>
</tr>
<%if request.QueryString("Act")="Search" then %>
<tr class="hback">
<td width="100" align="right">自动编号</td>
<td>
<input type="text" name="TID" id="TID" size="11" maxlength="11">
</td>
</tr>
<%end if%>
<tr class="hback">
<td align="right">调查类别</td>
<td>
<select name="CID" id="CID" onChange="Do.these('CID',function(){return isEmpty('CID','CID_Alt')})">
<option value="">请选择</option>
<%=Get_FildValue_List("select CID,ClassName from FS_VS_Class",CID,1)%>
</select>
<span id="CID_Alt"></span>
</td>
</tr>
<tr class="hback">
<td align="right">调查主题</td>
<td>
<input type="text" name="Theme" id="Theme" size="30" maxlength="50" onFocus="Do.these('Theme',function(){return isEmpty('Theme','Theme_Alt')})" onKeyUp="Do.these('Theme',function(){return isEmpty('Theme','Theme_Alt')})" value="<%if Bol_IsEdit then response.Write(VS_Rs("Theme")) end if%>">
<span id="Theme_Alt"></span>
</td>
</tr>
<tr class="hback">
<td align="right">项目类型</td>
<td>
<select name="Type" id="Type" onChange="Do.these('Type',function(){return isEmpty('Type','Type_Alt')});this.options[this.selectedIndex].value=='2'?MaxNum.disabled=false:MaxNum.disabled=true;">
<%=PrintOption(sType,":请选择,1:单选,2:多选")%>
</select>
<span id="Type_Alt"></span>
</td>
</tr>
<tr class="hback">
<td align="right">最多选项个数</td>
<td>
<input type="text" name="MaxNum" id="MaxNum" size="5" maxlength="4" onFocus="Do.these('MaxNum',function(){return isNumber('MaxNum','MaxNum_Alt','必须是正整数',true)})" onKeyUp="Do.these('MaxNum',function(){return isNumber('MaxNum','MaxNum_Alt','必须是正整数',true)})" value="<%=MaxNum%>">
<span class="tx">最多选项个数,只针对多选</span> <span id="MaxNum_Alt"></span>
</td>
</tr>
<tr class="hback">
<td align="right">显示方式</td>
<td> <select name="DisMode" id="DisMode" onChange="Do.these('DisMode',function(){return isEmpty('DisMode','DisMode_Alt')});">
<%=PrintOption(DisMode,":请选择,1:直方图,"",""")%>
</select> <!--<PrintOption(DisMode,":请选择,1:直方图,2:饼图,3:折线图")%> -->
<span id="DisMode_Alt"></span> 暂只支持直方图</td>
</tr>
<tr class="hback">
<td align="right">开始时间</td>
<td>
<input name="StartDate" type="text" id="StartDate" style="WIDTH: 150px; HEIGHT: 22px" onfocus="setday(this)" value="<%=StartDate%>" readonly="" maskType="longDate">
<IMG onClick="StartDate.focus()" src="../../FS_Inc/calendar.bmp" align="absBottom">
</td>
</tr>
<tr class="hback">
<td align="right">结束时间</td>
<td>
<input type="text" name="EndDate" id="EndDate" readonly="" onfocus="setday(this)" style="WIDTH: 150px; HEIGHT: 22px" maskType="longDate" value="<%=EndDate%>">
<IMG onClick="EndDate.focus()" src="../../FS_Inc/calendar.bmp" align="absBottom">
</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')});">
<%=PrintOption(ItemMOde,":请选择,0:横向排列,1:1选项/行(纵向),2:2选项/行,3:3选项/行,4:4选项/行,5:5选项/行,6:6选项/行,7:7选项/行,8:8选项/行,9:9选项/行,10:10选项/行,11:11选项/行,12:12选项/行")%>
</select>
<span id="ItemMOde_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=" 确定提交 "/>
<input type="reset" value=" 重置 " />
<input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%="VS_Theme.asp?Act=Del&TID="&TID%>'">
</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()
{
if (document.all.Type.value!='2' ) document.all.MaxNum.value='1';
return isEmpty('Type','Type_Alt') && isNumber('MaxNum','MaxNum_Alt','必须是正整数',true) && isEmpty('Theme','Theme_Alt') && isEmpty('DisMode','DisMode_Alt') && isEmpty('CID','CID_Alt');
}
function SearchAdd()
{
if(document.all.StartDate.value) if (document.all.StartDate.value.indexOf('>=')<0) {document.all.StartDate.value='>=#'+document.all.StartDate.value+'#'};
if(document.all.EndDate.value) if (document.all.EndDate.value.indexOf('<=')<0) {document.all.EndDate.value='<=#'+document.all.EndDate.value+'#'};
}
function getCode(jsid)
{
if (jsid!=""&&!isNaN(jsid))
{
OpenWindow('Frame.asp?PageTitle=获取JS调用代码&FileName=showJsPath.asp&JsID='+jsid,360,180,window);
}else
{
alert("出现错误，请联系客服人员！")
}
}
-->
</script>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -