adminabanner.asp

一个用asp实现的bbs

                                  <tr>
                                    <td width="39%"><b>Name</b>:</td>
                                    <td width="61%"><input type="text" name="name" size="20" value="<%=oRS("name")%>"></td>
                                  </tr>
										<%If oRS("ishtml").Value = False Then%>	                                  
                                  <tr>
                                    <td width="39%"><b>Redir url</b>:</td>
                                    <td width="61%"><input type="text" name="redirurl" size="30" value="<%=oRS("redirurl")%>"></td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><b>Gif url:</b></td>
                                    <td width="61%"><input type="text" name="gifurl" size="30" value="<%=oRS("gifurl")%>"></td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><b>Alt text:</b></td>
                                    <td width="61%"><input type="text" name="alttext" size="30" value="<%=oRS("alttext")%>"></td>
                                  </tr>
                                  <%End If%>
                                  <tr>
                                    <td width="39%"><b>Weight:</b></td>
                                    <td width="61%"><input type="text" name="weight" size="7" value="<%=oRS("weight")%>"></td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><b>Show count:</b></td>
                                    <td width="61%"><input type="text" name="showcount" size="7" value="<%=oRS("showcount")%>"></td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><b>Click count:</b></td>
                                    <td width="61%"><input type="text" name="clickcount" size="7" value="<%=oRS("clickcount")%>"></td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><b>Farm id:</b></td>
                                    <td width="61%"><select size="1" name="farmid">
                                    	<%ListFarms(oRS("farmid"))%>
                                      </select></td>
                                  </tr>
                                  <tr>
                                    <td width="29%"><b>User id:</b></td>
                                    <td width="61%"><select size="1" name="userid">
										   	<%ListUsers(oRS("advid"))%>
                                 
                                  <%If oRS("ishtml").Value = False Then%>
                                  <tr>
                                    <td width="39%"><b>Under text:</b></td>
                                    <td width="61%"><input type="text" name="undertext" size="30" value="<%=oRS("undertext")%>"></td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><b>Under url:</b></td>
                                    <td width="61%"><input type="text" name="underurl" size="30" value="<%=oRS("underurl")%>"></td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><b>Under click count:</b></td>
                                    <td width="61%"><input type="text" name="underclickcount" size="7" value="<%=oRS("underclickcount")%>"></td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><b>X size:&nbsp;</b></td>
                                    <td width="61%"><input type="text" name="xsize" size="7" value="<%=oRS("xsize")%>"></td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><b>Y size:</b></td>
                                    <td width="61%"><input type="text" name="ysize" size="7" value="<%=oRS("ysize")%>"></td>
                                  </tr>
                                  <%End If%>
                                  <tr>
                                    <td width="39%"><b>VALID THROUGH INFO</b></td>
                                    <td width="61%"></td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><font size="2">If you
                                      specify none then it is always valid. If
                                      you specify more than one, then it is
                                      valid until the first one of the
                                      conditions that triggers.</font></td>
                                    <td width="61%"></td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><b>Valid dates:</b></td>
                                    <td width="61%">From:<input type="text" name="validfromdate" size="14" value="<%=oRS("validfromdate")%>">
                                      To: <input type="text" name="validtodate" size="13" value="<%=oRS("validtodate")%>"></td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><b>Max number of
                                      impressions: </b></td>
                                    <td width="61%"><input type="text" name="maximpressions" size="6" value="<%=MaxIntToNull(oRS("maximpressions"))%>">
                                    </td>
                                  </tr>
                                  <%If oRS("ishtml") = False Then %>
                                  <tr>
                                    <td width="39%"><b>Max number of clicks:</b></td>
                                    <td width="61%"><input type="text" name="maxclicks" size="6" value="<%=MaxIntToNull(oRS("maxclicks"))%>">
                                    </td>
                                  </tr>
                                  <%End If %>
                                  <tr>
                                    <td width="39%"><b>TARGETING</b></td>
                                    <td width="61%">
                                    </td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><font size="2">Select which
                                      so called zones you want the banner in.
                                      This makes it possible to show the banner
                                      only on certain pages etc </font></td>
                                    <td width="61%">
                                    </td>
                                  </tr>
                                  <tr>
                                    <td width="39%"><b>Zones </b></td>
                                    <td width="61%"><select size="4" name="zones" multiple>
                                    	<%ListZones sZoneString%>
                                      </select>
                                    </td>
                                  </tr>
                                  <%If oRS("ishtml").Value = True Then%>
                                  <tr>
                                    <td width="39%"><b>HTMLCode<br>
                                      </b>
                                      <p><font size="2">There are some special
                                      tabs you can use whereever in your HTML
                                      code that will be switched: </font>
                                      <p><font size="2">&lt;ADM_RANDOM-XXX-YYY&gt;
                                      <br>
                                      This will be changed to a random number
                                      between XXX and YYY</font></p>
                                      <p><font size="2">&lt;ADM_RANDOM-LAST&gt; <br>
                                      Same number as last time <br>
                                      </font></p>
                                    </td>
                                    <td width="61%">
                                    <textarea rows="10" name="htmlcode" cols="40"><%=oRS("htmlcode")%></textarea>
                                    </td>
                                  </tr>
                                  <%End If%>
                              <tr>
                              <td colspan="2" align="center">
                              <p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
                              </form>
                              </td></tr>
									</table>
								   </td></tr></table>                        
	    						<p><br>
	<%		If g_AdMentor_Demo = True Then
				Response.Write "This is a demo. No changes will be made..."
			End If
	%>

                              </p>
                              <p>
								
								</td>
                          </tr>
                        </table>
                          <p>&nbsp;</td>
                            </tr>
                          </table>
                      </td>
                    </tr>
                </table>
              </td>
            </tr>
        </table>
      </td>
    </tr>
  </tbody>
</table>

</body>

<%
	oRS.Close
	Set oRS = Nothing
	oConn.Close
	Set oConn = Nothing
%>