%
Dim shishi
Dim shishi_numRows
Set shishi = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM dbo.News WHERE BigClassName='时事传真' AND Checked=1 ORDER BY NewsId desc"
shishi.open sql,MM_conn_STRING,3,2
%>
<%
Dim speicialrep
Dim speicialrep_numRows
Set speicialrep = Server.CreateObject("ADODB.Recordset")
speicialrep.ActiveConnection = MM_conn_STRING
speicialrep.Source = "SELECT * FROM dbo.News WHERE BigClassName='特别报道' AND Checked=1 ORDER BY NewsId desc"
speicialrep.CursorType = 0
speicialrep.CursorLocation = 2
speicialrep.LockType = 1
speicialrep.Open()
speicialrep_numRows = 0
%>
<%
Dim zugong
Dim zugong_numRows
Set zugong = Server.CreateObject("ADODB.Recordset")
zugong.ActiveConnection = MM_conn_STRING
zugong.Source = "SELECT * FROM dbo.News WHERE BigClassName='组工信息' AND Checked=1 ORDER BY NewsId desc"
zugong.CursorType = 0
zugong.CursorLocation = 2
zugong.LockType = 1
zugong.Open()
zugong_numRows = 0
%>
<%
Dim djluntan
Dim djluntan_numRows
Set djluntan = Server.CreateObject("ADODB.Recordset")
djluntan.ActiveConnection = MM_conn_STRING
djluntan.Source = "SELECT * FROM dbo.News WHERE BigClassName='党建论坛' AND Checked=1 ORDER BY NewsId desc"
djluntan.CursorType = 0
djluntan.CursorLocation = 2
djluntan.LockType = 1
djluntan.Open()
djluntan_numRows = 0
%>
<%
Dim imgnews
Dim imgnews_numRows
Set imgnews = Server.CreateObject("ADODB.Recordset")
imgnews.ActiveConnection = MM_conn_STRING
imgnews.Source = "SELECT * FROM dbo.News WHERE SpecialName='图片新闻' AND FocusNews=1 AND Checked=1 ORDER BY UpdateTime desc"
imgnews.CursorType = 0
imgnews.CursorLocation = 2
imgnews.LockType = 1
imgnews.Open()
imgnews_numRows = 0
%>
<%
Dim imgnews1
Dim imgnews1_numRows
Set imgnews1 = Server.CreateObject("ADODB.Recordset")
imgnews1.ActiveConnection = MM_conn_STRING
imgnews1.Source = "SELECT * FROM dbo.News WHERE SpecialName='图片新闻' AND FocusNews=1 AND Checked=1 ORDER BY UpdateTime desc"
imgnews1.CursorType = 0
imgnews1.CursorLocation = 2
imgnews1.LockType = 1
imgnews1.Open()
imgnews1_numRows = 0
%>
<%
Dim laigao
Dim laigao_numRows
Set laigao = Server.CreateObject("ADODB.Recordset")
laigao.ActiveConnection = MM_conn_STRING
laigao.Source = "SELECT * FROM dbo.News WHERE BigClassName='来稿摘编' AND goodnews=1 AND Checked=1 ORDER BY NewsId desc"
laigao.CursorType = 0
laigao.CursorLocation = 2
laigao.LockType = 1
laigao.Open()
laigao_numRows = 0
%>
<%
Dim weather
Dim weather_numRows
Set weather = Server.CreateObject("ADODB.Recordset")
weather.ActiveConnection = MM_conn_STRING
weather.Source = "SELECT * FROM dbo.News WHERE BigClassName='天气情况' ORDER BY NewsId desc"
weather.CursorType = 0
weather.CursorLocation = 2
weather.LockType = 1
weather.Open()
weather_numRows = 0
%>
<%
Dim newsmovie
Dim newsmovie_numRows
Set newsmovie = Server.CreateObject("ADODB.Recordset")
newsmovie.ActiveConnection = MM_conn_STRING
newsmovie.Source = "SELECT * FROM dbo.News WHERE BigClassName='新片介绍' ORDER BY NewsId desc"
newsmovie.CursorType = 0
newsmovie.CursorLocation = 2
newsmovie.LockType = 1
newsmovie.Open()
newsmovie_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 8
Repeat1__index = 0
shishi_numRows = shishi_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = 8
Repeat2__index = 0
speicialrep_numRows = speicialrep_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = 8
Repeat3__index = 0
zugong_numRows = zugong_numRows + Repeat3__numRows
%>
<%
Dim Repeat4__numRows
Dim Repeat4__index
Repeat4__numRows = 8
Repeat4__index = 0
djluntan_numRows = djluntan_numRows + Repeat4__numRows
%>
<%
Dim Repeat5__numRows
Dim Repeat5__index
Repeat5__numRows = 8
Repeat5__index = 0
newsmovie_numRows = newsmovie_numRows + Repeat5__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("name"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="ssmain.asp"
MM_redirectLoginFailed="index.asp?err=用户名或密码错误!"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_conn_STRING
MM_rsUser.Source = "SELECT UserName, Password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM dbo.user1 WHERE UserName='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("password"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>