📄 vs_items_result.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/VS_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<!--#include file="../../FS_Inc/Func_Page.asp" -->
<%'Copyright (c) 2006 Foosun Inc. Code by awen
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim Conn,VS_Rs,VS_Sql
Dim AutoDelete,Months
MF_Default_Conn
MF_Session_TF
if not MF_Check_Pop_TF("VS003") then Err_Show
Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
int_RPP=15 '设置每页显示数目
int_showNumberLink_=10 '数字导航显示数目
showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
str_nonLinkColor_="#999999" '非热链接颜色
toF_="<font face=webdings>9</font>" '首页
toP10_=" <font face=webdings>7</font>" '上十
toP1_=" <font face=webdings>3</font>" '上一
toN1_=" <font face=webdings>4</font>" '下一
toN10_=" <font face=webdings>8</font>" '下十
toL_="<font face=webdings>:</font>" '尾页
Function and_where(sql)
if instr(lcase(sql)," where ")>0 then
and_where = sql & " and "
else
and_where = sql & " where "
end if
End Function
''得到相关表的值。
Function Get_OtherTable_Value(This_Fun_Sql)
Dim This_Fun_Rs
if instr(This_Fun_Sql," FS_ME_")>0 then
set This_Fun_Rs = Conn.execute(This_Fun_Sql)
else
set This_Fun_Rs = Conn.execute(This_Fun_Sql)
end if
if not This_Fun_Rs.eof then
Get_OtherTable_Value = This_Fun_Rs(0)
else
Get_OtherTable_Value = ""
end if
if Err.Number>0 then
Err.Clear
response.Redirect("../error.asp?ErrCodes=<li>Get_OtherTable_Value未能得到相关数据。错误描述："&Err.Type&"</li>") : response.End()
end if
set This_Fun_Rs=nothing
End Function
Function Get_FildValue_List(This_Fun_Sql,EquValue,Get_Type)
'''This_Fun_Sql 传入sql语句,EquValue与数据库相同的值如果是<option>则加上selected,Get_Type=1为<option>
Dim Get_Html,This_Fun_Rs,Text
On Error Resume Next
set This_Fun_Rs = Conn.execute(This_Fun_Sql)
If Err.Number <> 0 then Err.clear : response.Redirect("../error.asp?ErrCodes=<li>抱歉,传入的Sql语句有问题.或表和字段不存在.</li>")
do while not This_Fun_Rs.eof
select case Get_Type
case 1
''<option>
if instr(This_Fun_Sql,",") >0 then
Text = This_Fun_Rs(1)
else
Text = This_Fun_Rs(0)
end if
if trim(EquValue) = trim(This_Fun_Rs(0)) then
Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&""" style=""color:#0000FF"" selected>"&Text&"</option>"&vbNewLine
else
Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&""">"&Text&"</option>"&vbNewLine
end if
case else
exit do : Get_FildValue_List = "Get_Type值传入错误" : exit Function
end select
This_Fun_Rs.movenext
loop
This_Fun_Rs.close
Get_FildValue_List = Get_Html
End Function
Function Get_While_Info(Add_Sql,orderby)
Dim Get_Html,This_Fun_Sql,ii,db_ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp
Str_Tmp = "RID,IID,TID,ItemValue,VoteIp,VoteTime,UserNumber"
This_Fun_Sql = "select "&Str_Tmp&" from FS_VS_Items_Result"
if request.QueryString("Act")="SearchGo" then
Arr_Tmp = split(Str_Tmp,",")
for each Str_Tmp in Arr_Tmp
Req_Str = NoSqlHack(Trim(request(Str_Tmp)))
if Req_Str<>"" then
select case Str_Tmp
case "ItemValue","VoteIp","UserNumber"
''字符
New_Search_Str = and_where(New_Search_Str) & Search_TextArr(Req_Str,Str_Tmp,"")
case else
''数字,日期
regxp = "|<|>|=|<=|>=|<>|"
if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then
New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
elseif instr(Req_Str,"*")>0 then
if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
else
New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
end if
end select
end if
next
if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
end if
Str_Tmp = ""
if Add_Sql<>"" then This_Fun_Sql = and_where(This_Fun_Sql) &" "& Decrypt(Add_Sql)
if orderby<>"" then This_Fun_Sql = This_Fun_Sql &" Order By "& replace(orderby,"csed"," Desc")
'response.Write(This_Fun_Sql)
On Error Resume Next
Set VS_Rs = CreateObject(G_FS_RS)
VS_Rs.Open This_Fun_Sql,Conn,1,1
if Err<>0 then
Err.Clear
response.Redirect("../error.asp?ErrCodes=<li>查询出错："&Err.Description&"</li><li>请检查字段类型是否匹配.</li>")
response.End()
end if
IF VS_Rs.eof THEN
response.Write("<tr class=""hback""><td colspan=15>暂无数据.</td></tr>")
else
VS_Rs.PageSize=int_RPP
cPageNo=NoSqlHack(Request.QueryString("Page"))
If cPageNo="" Then cPageNo = 1
If not isnumeric(cPageNo) Then cPageNo = 1
cPageNo = Clng(cPageNo)
If cPageNo<=0 Then cPageNo=1
If cPageNo>VS_Rs.PageCount Then cPageNo=VS_Rs.PageCount
VS_Rs.AbsolutePage=cPageNo
FOR int_Start=1 TO int_RPP
Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
Get_Html = Get_Html & "<td align=""center"">"&VS_Rs("RID")&"</td>" & vbcrlf
Get_Html = Get_Html & "<td align=""center"">"&Get_OtherTable_Value("select Theme from FS_VS_Theme where TID= "&VS_Rs("TID"))&"</td>" & vbcrlf
Get_Html = Get_Html & "<td align=""center"">"&Get_OtherTable_Value("select ItemName from FS_VS_Items where IID= "&VS_Rs("IID"))&"</td>" & vbcrlf
Get_Html = Get_Html & "<td align=""center"">"&VS_Rs("ItemValue")&"</td>" & vbcrlf
Get_Html = Get_Html & "<td align=""center"">"&VS_Rs("VoteIp")&"</td>" & vbcrlf
Get_Html = Get_Html & "<td align=""center"">"&VS_Rs("VoteTime")&"</td>" & vbcrlf
Get_Html = Get_Html & "<td align=""center"">"&VS_Rs("UserNumber")&"</td>" & vbcrlf
Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" name=""RID"" id=""RID"" value="""&VS_Rs("RID")&""" /></td>" & vbcrlf
Get_Html = Get_Html & "</tr>" & vbcrlf
VS_Rs.MoveNext
if VS_Rs.eof or VS_Rs.bof then exit for
NEXT
END IF
Get_Html = Get_Html & "<tr class=""hback""><td colspan=20 align=""center"" class=""ischeck"">"& vbcrlf &"<table width=""100%"" border=0><tr><td height=30>" & vbcrlf
Get_Html = Get_Html & fPageCount(VS_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo) & vbcrlf
Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
Get_Html = Get_Html &"</td></tr>"
VS_Rs.close
Get_While_Info = Get_Html
End Function
Sub Del()
if not MF_Check_Pop_TF("VS002") then Err_Show
Dim Str_Tmp
if request.QueryString("RID")<>"" then
Conn.execute("Delete from FS_VS_Items_Result where RID = "&NoSqlHack(request.QueryString("RID")))
else
Str_Tmp = NoSqlHack(request.form("RID"))
if Str_Tmp="" then response.Redirect("../error.asp?ErrCodes=<li>你必须至少选择一个进行删除。</li>"):response.End()
Str_Tmp = replace(Str_Tmp," ","")
Conn.execute("Delete from FS_VS_Items_Result where RID in ("&Str_Tmp&")")
end if
response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Items_Result.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
End Sub
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="../../FS_Inc/PublicJS.js"></script>
<script language="JavaScript" src="../../FS_Inc/CheckJs.js"></script>
<script language="JavaScript" src="../../FS_Inc/coolWindowsCalendar.js"></script>
<script language="JavaScript">
<!--
//点击标题排序
/////////////////////////////////////////////////////////
var Old_Sql = document.URL;
function OrderByName(FildName)
{
var New_Sql='';
var oldFildName="";
if (Old_Sql.indexOf("&filterorderby=")==-1&&Old_Sql.indexOf("?filterorderby=")==-1)
{
if (Old_Sql.indexOf("=")>-1)
New_Sql = Old_Sql+"&filterorderby=" + FildName + "csed";
else
New_Sql = Old_Sql+"?filterorderby=" + FildName + "csed";
}
else
{
var tmp_arr_ = Old_Sql.split('?')[1].split('&');
for(var ii=0;ii<tmp_arr_.length;ii++)
{
if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
{
oldFildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);
break;
}
}
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_Items_Result.asp">管理首页</a>
</td>
</tr>
</table>
<%
if request.QueryString("Act") = "Del" then
Del
else
Call View
end if
'******************************************************************
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('RID')" class="sd"><b>[ID]</b></a>
<span id="Show_Oder_RID"></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('IID')" class="sd"><b>调查选项</b></a>
<span id="Show_Oder_IID"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('ItemValue')" class="sd"><b>额外投票内容</b></a>
<span id="Show_Oder_ItemValue"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('VoteIp')" class="sd"><b>投票IP</b></a>
<span id="Show_Oder_VoteIp"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('VoteTime')" class="sd"><b>投票日期</b></a>
<span id="Show_Oder_VoteTime"></span></td>
<td align="center" class="xingmu" ><a href="javascript:OrderByName('UserNumber')" class="sd"><b>用户编号</b></a>
<span id="Show_Oder_UserNumber"></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
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 = '↑';
}
}
}
/////////////////////////////////////////////////////////
-->
</script>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -