<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then response.write "<font color=#FF0000>您通過了代理服務(wù)器，"& _ "真實的IP為"&Request.ServerVariables("HTTP_X_FORWARDED_FOR") end if %>
<select name="select"> <% Dim M_Year Dim M_Month Dim M_MonthJ Dim M_TheMonth Dim M_YM For M_Year = 2000 To Year(Date) M_Month = 12 If M_Year = Year(Date) Then M_Month = Month(Date) End If For M_MonthJ=1 To M_Month If M_MonthJ < 10 Then M_TheMonth = "0" & M_MonthJ Else M_TheMonth = M_MonthJ End If M_YM = M_Year& "-" & M_TheMonth %> <option value="<%= M_YM %>"><%= M_YM %></option> <% Next Next %> </select>
檢索并刪除數(shù)據(jù)庫里的重復(fù)記錄
conn.execute("delete from table where id not in (select distinct from table)")
