<%
'--------------------------------------------------------------------
' 以下为数据库打开的方式
' Microsoft ADO
'
' Copyright (c) 1996-1998 Microsoft Corporation.
'
'
'
' ADO constants include file for VBScript
'
'--------------------------------------------------------------------

'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- CursorOptionEnum Values ----
Const adHoldRecords = &H00000100
Const adMovePrevious = &H00000200
Const adAddNew = &H01000400
Const adDelete = &H01000800
Const adUpdate = &H01008000
Const adBookmark = &H00002000
Const adApproxPosition = &H00004000
Const adUpdateBatch = &H00010000
Const adResync = &H00020000
Const adNotify = &H00040000
Const adFind = &H00080000
Const adSeek = &H00400000
Const adIndex = &H00800000

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- ExecuteOptionEnum Values ----
Const adAsyncExecute = &H00000010
Const adAsyncFetch = &H00000020
Const adAsyncFetchNonBlocking = &H00000040
Const adExecuteNoRecords = &H00000080
Const adExecuteStream = &H00000400

'---- ConnectOptionEnum Values ----
Const adAsyncConnect = &H00000010

'---- ObjectStateEnum Values ----
Const adStateClosed = &H00000000
Const adStateOpen = &H00000001
Const adStateConnecting = &H00000002
Const adStateExecuting = &H00000004
Const adStateFetching = &H00000008

'---- CursorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

'---- DataTypeEnum Values ----
Const adEmpty = 0
Const adTinyInt = 16
Const adSmallInt = 2
Const adInteger = 3
Const adBigInt = 20
Const adUnsignedTinyInt = 17
Const adUnsignedSmallInt = 18
Const adUnsignedInt = 19
Const adUnsignedBigInt = 21
Const adSingle = 4
Const adDouble = 5
Const adCurrency = 6
Const adDecimal = 14
Const adNumeric = 131
Const adBoolean = 11
Const adError = 10
Const adUserDefined = 132
Const adVariant = 12
Const adIDispatch = 9
Const adIUnknown = 13
Const adGUID = 72
Const adDate = 7
Const adDBDate = 133
Const adDBTime = 134
Const adDBTimeStamp = 135
Const adBSTR = 8
Const adChar = 129
Const adVarChar = 200
Const adLongVarChar = 201
Const adWChar = 130
Const adVarWChar = 202
Const adLongVarWChar = 203
Const adBinary = 128
Const adVarBinary = 204
Const adLongVarBinary = 205
Const adChapter = 136
Const adFileTime = 64
Const adPropVariant = 138
Const adVarNumeric = 139
Const adArray = &H2000

'---- FieldAttributeEnum Values ----
Const adFldMayDefer = &H00000002
Const adFldUpdatable = &H00000004
Const adFldUnknownUpdatable = &H00000008
Const adFldFixed = &H00000010
Const adFldIsNullable = &H00000020
Const adFldMayBeNull = &H00000040
Const adFldLong = &H00000080
Const adFldRowID = &H00000100
Const adFldRowVersion = &H00000200
Const adFldCacheDeferred = &H00001000
Const adFldIsChapter = &H00002000
Const adFldNegativeScale = &H00004000
Const adFldKeyColumn = &H00008000
Const adFldIsRowURL = &H00010000
Const adFldIsDefaultStream = &H00020000
Const adFldIsCollection = &H00040000

'---- EditModeEnum Values ----
Const adEditNone = &H0000
Const adEditInProgress = &H0001
Const adEditAdd = &H0002
Const adEditDelete = &H0004

'---- RecordStatusEnum Values ----
Const adRecOK = &H0000000
Const adRecNew = &H0000001
Const adRecModified = &H0000002
Const adRecDeleted = &H0000004
Const adRecUnmodified = &H0000008
Const adRecInvalid = &H0000010
Const adRecMultipleChanges = &H0000040
Const adRecPendingChanges = &H0000080
Const adRecCanceled = &H0000100
Const adRecCantRelease = &H0000400
Const adRecConcurrencyViolation = &H0000800
Const adRecIntegrityViolation = &H0001000
Const adRecMaxChangesExceeded = &H0002000
Const adRecObjectOpen = &H0004000
Const adRecOutOfMemory = &H0008000
Const adRecPermissionDenied = &H0010000
Const adRecSchemaViolation = &H0020000
Const adRecDBDeleted = &H0040000

'---- GetRowsOptionEnum Values ----
Const adGetRowsRest = -1

'---- PositionEnum Values ----
Const adPosUnknown = -1
Const adPosBOF = -2
Const adPosEOF = -3

'---- BookmarkEnum Values ----
Const adBookmarkCurrent = 0
Const adBookmarkFirst = 1
Const adBookmarkLast = 2

'---- MarshalOptionsEnum Values ----
Const adMarshalAll = 0
Const adMarshalModifiedOnly = 1

'---- AffectEnum Values ----
Const adAffectCurrent = 1
Const adAffectGroup = 2
Const adAffectAllChapters = 4

'---- ResyncEnum Values ----
Const adResyncUnderlyingValues = 1
Const adResyncAllValues = 2

'---- CompareEnum Values ----
Const adCompareLessThan = 0
Const adCompareEqual = 1
Const adCompareGreaterThan = 2
Const adCompareNotEqual = 3
Const adCompareNotComparable = 4

'---- FilterGroupEnum Values ----
Const adFilterNone = 0
Const adFilterPendingRecords = 1
Const adFilterAffectedRecords = 2
Const adFilterFetchedRecords = 3
Const adFilterConflictingRecords = 5

'---- SearchDirectionEnum Values ----
Const adSearchForward = 1
Const adSearchBackward = -1

'---- PersistFormatEnum Values ----
Const adPersistADTG = 0
Const adPersistXML = 1

'---- StringFormatEnum Values ----
Const adClipString = 2

'---- ConnectPromptEnum Values ----
Const adPromptAlways = 1
Const adPromptComplete = 2
Const adPromptCompleteRequired = 3
Const adPromptNever = 4

'---- ConnectModeEnum Values ----
Const adModeUnknown = 0
Const adModeRead = 1
Const adModeWrite = 2
Const adModeReadWrite = 3
Const adModeShareDenyRead = 4
Const adModeShareDenyWrite = 8
Const adModeShareExclusive = &Hc
Const adModeShareDenyNone = &H10
Const adModeRecursive = &H400000

'---- RecordCreateOptionsEnum Values ----
Const adCreateCollection = &H00002000
Const adCreateStructDoc = &H80000000
Const adCreateNonCollection = &H00000000
Const adOpenIfExists = &H02000000
Const adCreateOverwrite = &H04000000
Const adFailIfNotExists = -1

'---- RecordOpenOptionsEnum Values ----
Const adOpenRecordUnspecified = -1
Const adOpenOutput = &H00800000
Const adOpenAsync = &H00001000
Const adDelayFetchStream = &H00004000
Const adDelayFetchFields = &H00008000
Const adOpenExecuteCommand = &H00010000

'---- IsolationLevelEnum Values ----
Const adXactUnspecified = &Hffffffff
Const adXactChaos = &H00000010
Const adXactReadUncommitted = &H00000100
Const adXactBrowse = &H00000100
Const adXactCursorStability = &H00001000
Const adXactReadCommitted = &H00001000
Const adXactRepeatableRead = &H00010000
Const adXactSerializable = &H00100000
Const adXactIsolated = &H00100000

'---- XactAttributeEnum Values ----
Const adXactCommitRetaining = &H00020000
Const adXactAbortRetaining = &H00040000

'---- PropertyAttributesEnum Values ----
Const adPropNotSupported = &H0000
Const adPropRequired = &H0001
Const adPropOptional = &H0002
Const adPropRead = &H0200
Const adPropWrite = &H0400

'---- ErrorValueEnum Values ----
Const adErrProviderFailed = &Hbb8
Const adErrInvalidArgument = &Hbb9
Const adErrOpeningFile = &Hbba
Const adErrReadFile = &Hbbb
Const adErrWriteFile = &Hbbc
Const adErrNoCurrentRecord = &Hbcd
Const adErrIllegalOperation = &Hc93
Const adErrCantChangeProvider = &Hc94
Const adErrInTransaction = &Hcae
Const adErrFeatureNotAvailable = &Hcb3
Const adErrItemNotFound = &Hcc1
Const adErrObjectInCollection = &Hd27
Const adErrObjectNotSet = &Hd5c
Const adErrDataConversion = &Hd5d
Const adErrObjectClosed = &He78
Const adErrObjectOpen = &He79
Const adErrProviderNotFound = &He7a
Const adErrBoundToCommand = &He7b
Const adErrInvalidParamInfo = &He7c
Const adErrInvalidConnection = &He7d
Const adErrNotReentrant = &He7e
Const adErrStillExecuting = &He7f
Const adErrOperationCancelled = &He80
Const adErrStillConnecting = &He81
Const adErrInvalidTransaction = &He82
Const adErrUnsafeOperation = &He84
Const adwrnSecurityDialog = &He85
Const adwrnSecurityDialogHeader = &He86
Const adErrIntegrityViolation = &He87
Const adErrPermissionDenied = &He88
Const adErrDataOverflow = &He89
Const adErrSchemaViolation = &He8a
Const adErrSignMismatch = &He8b
Const adErrCantConvertvalue = &He8c
Const adErrCantCreate = &He8d

Const adErrColumnNotOnThisRow = &He8e
Const adErrURLIntegrViolSetColumns = &He8f
Const adErrURLDoesNotExist = &He8f
Const adErrTreePermissionDenied = &He90
Const adErrInvalidURL = &He91
Const adErrResourceLocked = &He92
Const adErrResourceExists = &He93
Const adErrCannotComplete = &He94
Const adErrVolumeNotFound = &He95
Const adErrOutOfSpace = &He96
Const adErrResourceOutOfScope = &He97
Const adErrUnavailable = &He98
Const adErrURLNamedRowDoesNotExist = &He99
Const adErrDelResOutOfScope = &He9a
Const adErrPropInvalidColumn = &He9b
Const adErrPropInvalidOption = &He9c
Const adErrPropInvalidValue = &He9d
Const adErrPropConflicting = &He9e
Const adErrPropNotAllSettable = &He9f
Const adErrPropNotSet = &Hea0
Const adErrPropNotSettable = &Hea1
Const adErrPropNotSupported = &Hea2
Const adErrCatalogNotSet = &Hea3
Const adErrCantChangeConnection = &Hea4
Const adErrFieldsUpdateFailed = &Hea5
Const adErrDenyNotSupported = &Hea6
Const adErrDenyTypeNotSupported = &Hea7
Const adErrProviderNotSpecified = &Hea9

'---- ParameterAttributesEnum Values ----
Const adParamSigned = &H0010
Const adParamNullable = &H0040
Const adParamLong = &H0080

'---- ParameterDirectionEnum Values ----
Const adParamUnknown = &H0000
Const adParamInput = &H0001
Const adParamOutput = &H0002
Const adParamInputOutput = &H0003
Const adParamReturnValue = &H0004

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004
Const adCmdFile = &H0100
Const adCmdTableDirect = &H0200

'---- EventStatusEnum Values ----
Const adStatusOK = &H0000001
Const adStatusErrorsOccurred = &H0000002
Const adStatusCantDeny = &H0000003
Const adStatusCancel = &H0000004
Const adStatusUnwantedEvent = &H0000005

'---- EventReasonEnum Values ----
Const adRsnAddNew = 1
Const adRsnDelete = 2
Const adRsnUpdate = 3
Const adRsnUndoUpdate = 4
Const adRsnUndoAddNew = 5
Const adRsnUndoDelete = 6
Const adRsnRequery = 7
Const adRsnResynch = 8
Const adRsnClose = 9
Const adRsnMove = 10
Const adRsnFirstChange = 11
Const adRsnMoveFirst = 12
Const adRsnMoveNext = 13
Const adRsnMovePrevious = 14
Const adRsnMoveLast = 15

'---- SchemaEnum Values ----
Const adSchemaProviderSpecific = -1
Const adSchemaAsserts = 0
Const adSchemaCatalogs = 1
Const adSchemaCharacterSets = 2
Const adSchemaCollations = 3
Const adSchemaColumns = 4
Const adSchemaCheckConstraints = 5
Const adSchemaConstraintColumnUsage = 6
Const adSchemaConstraintTableUsage = 7
Const adSchemaKeyColumnUsage = 8
Const adSchemaReferentialConstraints = 9
Const adSchemaTableConstraints = 10
Const adSchemaColumnsDomainUsage = 11
Const adSchemaIndexes = 12
Const adSchemaColumnPrivileges = 13
Const adSchemaTablePrivileges = 14
Const adSchemaUsagePrivileges = 15
Const adSchemaProcedures = 16
Const adSchemaSchemata = 17
Const adSchemaSQLLanguages = 18
Const adSchemaStatistics = 19
Const adSchemaTables = 20
Const adSchemaTranslations = 21
Const adSchemaProviderTypes = 22
Const adSchemaViews = 23
Const adSchemaViewColumnUsage = 24
Const adSchemaViewTableUsage = 25
Const adSchemaProcedureParameters = 26
Const adSchemaForeignKeys = 27
Const adSchemaPrimaryKeys = 28
Const adSchemaProcedureColumns = 29
Const adSchemaDBInfoKeywords = 30
Const adSchemaDBInfoLiterals = 31
Const adSchemaCubes = 32
Const adSchemaDimensions = 33
Const adSchemaHierarchies = 34
Const adSchemaLevels = 35
Const adSchemaMeasures = 36
Const adSchemaProperties = 37
Const adSchemaMembers = 38
Const adSchemaTrustees = 39
Const adSchemaFunctions = 40
Const adSchemaActions = 41
Const adSchemaCommands = 42
Const adSchemaSets = 43

'---- FieldStatusEnum Values ----
Const adFieldOK = 0
Const adFieldCantConvertValue = 2
Const adFieldIsNull = 3
Const adFieldTruncated = 4
Const adFieldSignMismatch = 5
Const adFieldDataOverflow = 6
Const adFieldCantCreate = 7
Const adFieldUnavailable = 8
Const adFieldPermissionDenied = 9
Const adFieldIntegrityViolation = 10
Const adFieldSchemaViolation = 11
Const adFieldBadStatus = 12
Const adFieldDefault = 13
Const adFieldIgnore = 15
Const adFieldDoesNotExist = 16
Const adFieldInvalidURL = 17
Const adFieldResourceLocked = 18
Const adFieldResourceExists = 19
Const adFieldCannotComplete = 20
Const adFieldVolumeNotFound = 21
Const adFieldOutOfSpace = 22
Const adFieldCannotDeleteSource = 23
Const adFieldReadOnly = 24
Const adFieldResourceOutOfScope = 25
Const adFieldAlreadyExists = 26
Const adFieldPendingInsert = &H10000
Const adFieldPendingDelete = &H20000
Const adFieldPendingChange = &H40000
Const adFieldPendingUnknown = &H80000
Const adFieldPendingUnknownDelete = &H100000

'---- SeekEnum Values ----
Const adSeekFirstEQ = &H1
Const adSeekLastEQ = &H2
Const adSeekAfterEQ = &H4
Const adSeekAfter = &H8
Const adSeekBeforeEQ = &H10
Const adSeekBefore = &H20

'---- ADCPROP_UPDATECRITERIA_ENUM Values ----
Const adCriteriaKey = 0
Const adCriteriaAllCols = 1
Const adCriteriaUpdCols = 2
Const adCriteriaTimeStamp = 3

'---- ADCPROP_ASYNCTHREADPRIORITY_ENUM Values ----
Const adPriorityLowest = 1
Const adPriorityBelowNormal = 2
Const adPriorityNormal = 3
Const adPriorityAboveNormal = 4
Const adPriorityHighest = 5

'---- ADCPROP_AUTORECALC_ENUM Values ----
Const adRecalcUpFront = 0
Const adRecalcAlways = 1

'---- ADCPROP_UPDATERESYNC_ENUM Values ----

'---- ADCPROP_UPDATERESYNC_ENUM Values ----

'---- MoveRecordOptionsEnum Values ----
Const adMoveUnspecified = -1
Const adMoveOverWrite = 1
Const adMoveDontUpdateLinks = 2
Const adMoveAllowEmulation = 4

'---- CopyRecordOptionsEnum Values ----
Const adCopyUnspecified = -1
Const adCopyOverWrite = 1
Const adCopyAllowEmulation = 4
Const adCopyNonRecursive = 2

'---- StreamTypeEnum Values ----
Const adTypeBinary = 1
Const adTypeText = 2

'---- LineSeparatorEnum Values ----
Const adLF = 10
Const adCR = 13
Const adCRLF = -1

'---- StreamOpenOptionsEnum Values ----
Const adOpenStreamUnspecified = -1
Const adOpenStreamAsync = 1
Const adOpenStreamFromRecord = 4

'---- StreamWriteEnum Values ----
Const adWriteChar = 0
Const adWriteLine = 1

'---- SaveOptionsEnum Values ----
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2

'---- FieldEnum Values ----
Const adDefaultStream = -1
Const adRecordURL = -2

'---- StreamReadEnum Values ----
Const adReadAll = -1
Const adReadLine = -2

'---- RecordTypeEnum Values ----
Const adSimpleRecord = 0
Const adCollectionRecord = 1
Const adStructDoc = 2
%>

<%
dim conn
set conn=server.CreateObject("adodb.connection")
conn.Open "driver={SQL Server};server=127.0.0.1;uid=DataAdmin;pwd=Data*Admin&3381;database=517e_com"
%>

<%
rem  CloseObj为关闭对象函数
sub CloseObj( obj)
 If IsObject(obj) then 
  obj.Close
  set obj = nothing
 End If
End sub 

'关闭数据库链接对象
FUNCTION CloseConn( obj)
 If IsObject(obj) then 
  obj.Close
  set conn=nothing 
 End If
End Function

rem SQL 防入注字符过滤函数
Function Checkstr(Str)  
 If Isnull(Str) Then  
  CheckStr = ""  
  Exit Function   
 End If  
 Str = Replace(Str,Chr(0),"", 1, -1, 1)  
 Str = Replace(Str, """", "&quot;", 1, -1, 1)  
 Str = Replace(Str,"<","&lt;", 1, -1, 1)  
 Str = Replace(Str,">","&gt;", 1, -1, 1)   
 Str = Replace(Str,Chr(13),"<br>", 1, -1, 1)  
 Str = Replace(Str, "script", "&#115;cript", 1, -1, 0)  
 Str = Replace(Str, "SCRIPT", "&#083;CRIPT", 1, -1, 0)  
 Str = Replace(Str, "Script", "&#083;cript", 1, -1, 0)  
 Str = Replace(Str, "script", "&#083;cript", 1, -1, 1)  
 Str = Replace(Str, "object", "&#111;bject", 1, -1, 0)  
 Str = Replace(Str, "OBJECT", "&#079;BJECT", 1, -1, 0)  
 Str = Replace(Str, "Object", "&#079;bject", 1, -1, 0)  
 Str = Replace(Str, "object", "&#079;bject", 1, -1, 1)  
 Str = Replace(Str, "applet", "&#097;pplet", 1, -1, 0)  
 Str = Replace(Str, "APPLET", "&#065;PPLET", 1, -1, 0)  
 Str = Replace(Str, "Applet", "&#065;pplet", 1, -1, 0)  
 Str = Replace(Str, "applet", "&#065;pplet", 1, -1, 1)  
 Str = Replace(Str, "[", "&#091;")  
 Str = Replace(Str, "]", "&#093;")  
 Str = Replace(Str, """", "", 1, -1, 1)  
 Str = Replace(Str, "=", "&#061;", 1, -1, 1)  
 Str = Replace(Str, "’", "’’", 1, -1, 1)  
 Str = Replace(Str, "select", "sel&#101;ct", 1, -1, 1)  
 Str = Replace(Str, "execute", "&#101xecute", 1, -1, 1)  
 Str = Replace(Str, "exec", "&#101xec", 1, -1, 1)  
 Str = Replace(Str, "join", "jo&#105;n", 1, -1, 1)  
 Str = Replace(Str, "union", "un&#105;on", 1, -1, 1)  
 Str = Replace(Str, "where", "wh&#101;re", 1, -1, 1)  
 Str = Replace(Str, "insert", "ins&#101;rt", 1, -1, 1)  
 Str = Replace(Str, "delete", "del&#101;te", 1, -1, 1)  
 Str = Replace(Str, "update", "up&#100;ate", 1, -1, 1)  
 Str = Replace(Str, "like", "lik&#101;", 1, -1, 1)  
 Str = Replace(Str, "drop", "dro&#112;", 1, -1, 1)  
 Str = Replace(Str, "create", "cr&#101;ate", 1, -1, 1)  
 Str = Replace(Str, "rename", "ren&#097;me", 1, -1, 1)  
 Str = Replace(Str, "count", "co&#117;nt", 1, -1, 1)  
 Str = Replace(Str, "chr", "c&#104;r", 1, -1, 1)  
 Str = Replace(Str, "mid", "m&#105;d", 1, -1, 1)  
 Str = Replace(Str, "truncate", "trunc&#097;te", 1, -1, 1)  
 Str = Replace(Str, "nchar", "nch&#097;r", 1, -1, 1)  
 Str = Replace(Str, "char", "ch&#097;r", 1, -1, 1)  
 Str = Replace(Str, "alter", "alt&#101;r", 1, -1, 1)  
 Str = Replace(Str, "cast", "ca&#115;t", 1, -1, 1)  
 Str = Replace(Str, "exists", "e&#120;ists", 1, -1, 1)  
 CheckStr = Replace(Str,"’","’’", 1, -1, 1)  
End Function

rem 数组分解
function web_var(wvar,wn,wchr)
  dim wdim,wnum:wnum=wn:wnum=wnum-1
  wdim=split(wvar,wchr)
  if wnum>ubound(wdim) then web_var="":erase wdim:exit function
  web_var=wdim(wnum):erase wdim
end function
function health_var(hnn,vt)
  dim ti,tj,tdim,ht,hn:hn=hnn
  health_var=hn
end function
rem 用与替换字符
function  repl_instr(word)
repl_instr="'" & replace(word,"'","''") &"'"
end function 

function code_check(strers)
  dim strer:strer=trim(strers)
  if isnull(strer) or strer="" then code_check="":exit function
  strer=replace(strer,"'","""")
  code_check=strer
end function
function code_word(strers)
  dim strer:strer=trim(strers)
  If isNull(strer) or strer="" Then code_word="":exit function
  strer=replace(strer,"'","&#39;")
  code_word=strer
end function
function code_html(strers,chtype,cutenum)
  dim strer:strer=strers
  if isnull(strer) or strer="" then code_html="":exit function
  strer=health_var(strer,1)
  if cutenum>0 then strer=cuted(strer,cutenum)
  strer=replace(strer,"<","&lt;")
  strer=replace(strer,">","&gt;")
  strer=replace(strer,chr(39),"&#39;")		
  strer=replace(strer,chr(34),"&quot;")		
  strer=replace(strer,chr(32),"&nbsp;")		
  select case chtype
  case 1
    strer=replace(strer,chr(9),"&nbsp;")	
    strer=replace(strer,chr(10),"")		
    strer=replace(strer,chr(13),"")
  case 2
    strer=replace(strer,chr(9),"&nbsp;　&nbsp;")
    strer=replace(strer,chr(10),"<br>")		
    strer=replace(strer,chr(13),"<br>")
  end select
  code_html=strer
end function

function repl_blank(word)
if trim(word)=""  or isNull(word) then 
	repl_blank="　"
	else
	repl_blank=word
end if 
end function 

rem 打印数字列表，用于打印年份与月份
sub  printOptionNumberList(SmallNO,BigNO)
response.write  "<option value=""0"">请选择</option>"
for i=SmallNO to  BigNO
response.write  "<option value=""" & i &""">" &i& "</option>"
next 
end sub 

rem 打印数字列表，用于打印年份与月份,带有默认值
sub  printOptionNumberList1(SmallNO,BigNO,Selval)
response.write  "<option value=""0"">请选择</option>"
for i=SmallNO to  BigNO
response.write  "<option value='" & i &"'"
if i=Selval then response.write " selected"
response.write ">" &i& "</option>"
next 
end sub 

rem 使用正则表达式来验证字符串必须为数字和英文字母和下划线
function Check09azAZ(patternStr)
rem 函数功能：
rem 如果petternStr中的字符不在CheckStr字符串类，将返回flase .
			dim CheckStr,i
			CheckStr="0123456789_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
'			Set regEx = New RegExp   
'			regEx.IgnoreCase = False
'			regEx.Global = True
'			for  a=1 to len(patternStr)
'				  regEx.Pattern = mid(patternStr,a,1) 
'				  if regEx.Test(CheckStr)  then 
'					Check09azAZ=true
'					else
'					Check09azAZ=false
'					exit for 
'				  end if 
'			next
'			set regEx=nothing
			CheckStr="0123456789_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
			Check09azAZ = true
			for i = 1 to len(PatternStr)
				if  Instr(CheckStr,mid(PatternStr,i,1)) < 1  then 
					Check09azAZ = false
					exit function 
				end if 
			next 
end function 

rem 输入数据库链接对象，表名与父ParentID输出基表列表，将TypeID的值赋给列表值
sub  printOptionList(ConnObj,TB_Name,ParentID)
			dim ListRS,sqlstr
			dim i
			set ListRS=server.CreateObject("adodb.recordset")
			sqlstr ="select * from " & trim(TB_Name) & "  where ParentID= " & ParentID & "  order by  Sort_NO  " 
			'response.write sqlstr 
			ListRS.open sqlstr,connObj,1
			response.write  "<option value='0'>请选择</option>"
			for i=1 to Listrs.recordcount 
			response.write  "<option value='" & ListRS("TypeID") &"'>" & ListRS("Type_Name") & "</option>"
			ListRS.movenext 
			next 
			ListRS.close
			set ListRS=nothing 
end sub 

ii=0
sub SelectList(ConnObj,TB_Name,ParentID)
sql="Select * From "&TB_Name&" where ParentID="&ParentID&" order by  Sort_NO  " 
Set Rs1=ConnObj.Execute(sql)
do while not rs1.eof
Response.write "<option value="&rs1("TypeID")&">"&string(ii,"　")&""&rs1("Type_Name")&"</option>"
ii=ii+1
SelectList ConnObj,TB_Name,rs1("TypeID")
ii=ii-1
rs1.movenext
loop
Set Rs1 = Nothing
end sub

rem 输入数据库链接对象，表名与父ParentID输出基表列表，将Type_Name的值赋给列表值
sub  printOptionTypeName(ConnObj,TB_Name,ParentID)
			dim ListRS,sqlstr
			dim i
			set ListRS=server.CreateObject("adodb.recordset")
			sqlstr ="select * from " & trim(TB_Name) & "  where ParentID= " & ParentID & "  order by  Sort_NO  "
			'response.write sqlstr 
			ListRS.open sqlstr,connObj,1
			response.write  "<option value='0'>请选择</option>"
			for i=1 to Listrs.recordcount 
			response.write  "<option value='" & ListRS("Type_Name") &"'>" & ListRS("Type_Name") & "</option>"
			ListRS.movenext 
			next 
			ListRS.close
			set ListRS=nothing 
end sub 

rem 输入数据库链接对象，表名与父ParentID输出基表列表，将TypeName的值赋给多选框,L为输出列值，selval为默认选择
sub  printCheckboxList(ConnObj,TB_Name,ParentID,selval,L)
dim ListRS,sqlstr,TypeRS,typesql
dim i,j
		set TypeRS=server.createobject("adodb.recordset")
		typesql="select * from " & trim(TB_Name) & " Where ParentID=" & ParentID & " order by Sort_NO "
		'response.write typesql
		TypeRS.open typesql,ConnObj,1
		response.write "<table width='100%' border='0'><tr><td><table width='100%' border='1' align='center' cellpadding='2' cellspacing='1' bordercolor='#CCCCCC' style='border-collapse:collapse;border:none'>"
		do while not TypeRS.eof
		response.write "<tr><td width='17%' align='center'>"&TypeRS("Type_Name") &"</td><td width='83%'><table width='95%' border='0' align='center'>"
		ParentID=TypeRS("TypeID")
		set ListRS=server.createobject("adodb.recordset")
		sqlstr="select * from " & trim(TB_Name) & " Where ParentID=" & ParentID & " order by Sort_NO "
		'response.write sqlstr
		ListRS.open sqlstr,ConnObj,1

		 for i =1 to ListRS.recordcount /2  +1
		 if ListRS.eof then exit for 
		response.write "<tr>"
              for j=1 to L 
				if ListRs.eof then exit for
			response.write "<td><input name='Card_Type' type='radio' id='Card_type' value='"&ListRS("TypeID")&"'" 
 if trim(ListRS("TypeID"))=trim(selval) then  response.write  " checked " 
 response.write " onclick=selectTypeB('" &ParentID &"') >" 
response.write ListRS("Type_Name")
response.write "</td>"
ListRS.movenext 
next
response.write "</tr>"
next
response.write "</table></td></tr>"
TypeRs.movenext
		loop 
response.write "</table></td></tr></table>"
end sub

'检查email
function IsValidEmail1(email)

dim names, name, i, c
IsValidEmail1 = true
names = Split(email, "@")
if UBound(names) <> 1 then
   IsValidEmail1 = false
   exit function
end if
for each name in names
   if Len(name) <= 0 then
     IsValidEmail1 = false
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1))
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsValidEmail1 = false
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then
      IsValidEmail1 = false
      exit function
   end if
next
if InStr(names(1), ".") <= 0 then
   IsValidEmail1 = false
   exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
   IsValidEmail1 = false
   exit function
end if
if InStr(email, "..") > 0 then
   IsValidEmail1 = false
end if

end function



function FormatWord_A(word)   '格式化文字正常显示方式
word=replace(word,chr(13),"<br>")
FormatWord_A=word
end function 


function FormatWord_C(Word)
if word<>"" then 
word=replace(word," ","&nbsp;")
word=replace(word,chr(13),"<br>")
FormatWord_C=word
else 
FormatWord_C = word
end if 
end function 

function FormatSmallDate(word)  '取日期不需时间
if isdate(word) then 
	if instr(1,word," ") >0 then  '判断如果带有时间，则去掉时间后缀
	FormatSmallDate = Cstr(mid(word,1,InStr(1,word," ")-1))
	else
	FormatSmallDate = Cstr(word)
	end if 
else 
	FormatSmallDate="　"
end if 
end function 

function  FormatSmallDateA(word)  '将日期转换成[04/12]格式
dim monthStr
if isdate(word) then 
	monthStr = month(word)
	if monthStr < 10 then monthStr = "0" &cstr(monthStr)
	monthStr = monthStr &"/" & day(word)
else 
	monthStr ="　"
end if 
	FormatSmallDateA = Cstr(monthStr)
end function 

function FormatSmallDateCN(word)  '取日期不需时间
FormatSmallDateCN =FormatSmallDate(word)
if isdate(FormatSmallDateCN) then 
	a=split(FormatSmallDateCN,"-")
	FormatSmallDateCN= a(0)&"年"& a(1) &"月"& a(2)&"日"
else
	FormatSmallDateCN="　"
end if 

end function

function upload_time(tt)
  dim ttt:ttt=tt
  ttt=replace(ttt,":","_"):ttt=replace(ttt,"-","_")
  ttt=replace(ttt," ","_"):ttt=replace(ttt,"/","_")
  ttt=replace(ttt,"PM",""):ttt=replace(ttt,"AM","")
  ttt=replace(ttt,"上午",""):ttt=replace(ttt,"下午","")
  upload_time=ttt
end function

rem 更新个人用户站内积分
sub Add_Avo(ConnObj,User_Name,Num_Avo)
  if Num_Avo="" or not Isnumeric(Num_Avo) then exit sub
  if User_Name="" or User_Name="游客" then exit sub
  sql="Update Web_TB_User_Statistic set Current_Avo=Current_Avo+"&Num_Avo&" where User_Name='" & replace(User_Name,"'","''") &"'"
  ConnObj.execute(sql)
end sub

rem 添加银行业务办理明细记录
rem  调用方法如: call Add_E_Money_List(conn,"luoou","支出","E币取款","银行E币",20,"61.125.123.45")
rem  参数除E_money为数值型外,其它都为字符串型
sub  Add_E_Money_List(ConnObj,Operation_User_Name,Operation_Mode,Operation_Type,Operation_Origin,Operation_Tendency,Operation_E_money,Operation_Add_IP)
			on error resume next 
			dim InsertSqlstr
			if Operation_User_Name =""  then exit sub 
			if Operation_Mode = ""  then Operation_Mode="不明确"
			if Operation_Type = "" then  Operation_Type ="不明确"
			if Operation_Origin="" then Operation_Origin="不明确"
			if Operation_Tendency="" then Operation_Tendency="不明确"
			if  not isnumeric(Operation_E_money) then Operation_E_money =0
			if Operation_Add_IP="" then Operation_Add_IP="不明确"
			
			InsertSqlstr = " insert into WEB_TB_E_Money_List (User_Name,Operation_Mode,Operation_Type,Operation_Origin,Operation_Tendency,E_money,Add_IP ) values "
			InsertSqlstr = InsertSqlstr & "('" & replace(Operation_User_Name,"'","''") &"'"
			InsertSqlstr = InsertSqlstr & ",'" & replace(Operation_Mode,"'","''") &"'"
			InsertSqlstr = InsertSqlstr & ",'" & replace(Operation_Type,"'","''") &"'"
			InsertSqlstr = InsertSqlstr & ",'" & replace(Operation_Origin,"'","''") &"'"
			InsertSqlstr = InsertSqlstr & ",'" & replace(Operation_Tendency,"'","''") &"'"
			InsertSqlstr = InsertSqlstr & "," & Operation_E_money
			InsertSqlstr = InsertSqlstr & ",'" & replace(Operation_Add_IP,"'","''") &"')"
			ConnObj.execute (InsertSqlstr)
end sub 


rem 用与后台管理时删除用户不合法数据时所带的附件，如稿件、照片等
rem 如果传入的文件绝对目录中带有(:)将不删除，直接跳过程序
rem FileAbsoluteName参为格式为：/images/1.jpg 或者 /articles/file/2002_04_01.htm
sub  delFile(FileAbsoluteName)
		on error resume next
		FileAbsoluteName = trim(FileAbsoluteName)  
		if instr(1,FileAbsoluteName,":") > 0 then exit sub  
		if FileAbsoluteName="" then exit sub 
	
		dim fs
		set fs=server.CreateObject("scripting.filesystemObject")
		if fs.FileExists(server.MapPath(FileAbsoluteName)) then
			fs.DeleteFile(server.MapPath(FileAbsoluteName))
		end if 
		set fs=nothing 
end sub  

function SendMail(SMTPServer,sender,mailto,subject,content)
dim JMail
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail") 
JMail.LazySend = true '这个属性是将邮件放入缓冲直至发出为止，的不到任何的错误信息
JMail.Charset = "gb2312" '设定邮件的字符集，默认为"US-ASCII" 一般中文用"gb2312"，还有euc-kr
JMail.ContentType = "text/html" '这个邮件的头设置， 默认为 "text/plain" 能设置成你需要的任何情况。
JMail.ServerAddress =SMTPServer 'SERVER的地址。可以有很多的SERVER地址，后可跟端口号
JMail.Sender = sender '邮寄的发送地址
JMail.Subject = subject '邮件的标题。
JMail.AddRecipient mailto '加入一个收件地址者
JMail.Body = content 'UBBCode(htmlencode(content))E-Mail的主体
JMail.Priority = 1 '邮件的优先级，可以范围从1到5。越大的优先级约高，比如，5最高，1最低,一般设置为3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 'addheader加入一个头信息
'remote_addr发出请求的机器的IP地址 
JMail.Execute '执行邮件发送到SERVER
set jMail=nothing 
if err then '检测
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end function

%>
<script language="JavaScript" src="../../script/change_title.js" type="text/JavaScript"></script>
<script language="JavaScript" src="../../script/webShare.js" type="text/JavaScript"></script>
<%
dim rs,sqlstr
set rs=server.CreateObject("adodb.recordset")
sqlstr = " select top 10 "
sqlstr = sqlstr & " A.Meet_ID, "
sqlstr = sqlstr & " A.Meet_Property_NO, "
sqlstr = sqlstr & " B.Type_Name as Meet_Property_Name, "
sqlstr = sqlstr & " A.User_Name, "
sqlstr = sqlstr & " A.Province_NO, "
sqlstr = sqlstr & " C.Type_Name as Province_Name, "
sqlstr = sqlstr & " A.Place_NO, "
sqlstr = sqlstr & " D.Type_Name as Place_Name, "
sqlstr = sqlstr & " A.Sex, "
sqlstr = sqlstr & " A.Start_Age, "
sqlstr = sqlstr & " A.Meet_Place, "
sqlstr = sqlstr & " A.Meet_Date, "
sqlstr = sqlstr & " A.Meet_Mark, "
sqlstr = sqlstr & " A.Meet_Title, "
sqlstr = sqlstr & " A.Meet_Content, "
sqlstr = sqlstr & " A.End_Age, "
sqlstr = sqlstr & " A.End_Flag, "
sqlstr = sqlstr & " A.Read_Count, "
sqlstr = sqlstr & " A.Add_Date, "
sqlstr = sqlstr & " A.Modify_Date, "
sqlstr = sqlstr & " A.Add_IP, "
sqlstr = sqlstr & " A.Modify_IP ,"
sqlstr = sqlstr & " (select count(*) from WEb_TB_Meet_Revert where Meet_ID = A.Meet_ID ) as Revert_count"
sqlstr = sqlstr & " from WEB_TB_Meet A "
sqlstr = sqlstr & " left outer join WEB_TB_Meet_Property_dim B "
sqlstr = sqlstr & " On A.Meet_Property_NO = B.TypeID "
sqlstr = sqlstr & " Left Outer Join WEB_TB_Province_dim C "
sqlstr = sqlstr & " On A.Province_NO = C.TypeID "
sqlstr = sqlstr & " Left Outer Join WEB_TB_Province_dim D "
sqlstr = sqlstr & " On A.Place_NO = D.TypeID "
sqlstr = sqlstr & " Where A.End_Flag = 0 "
sqlstr = sqlstr & " order by  A.Add_Date desc"
rs.open sqlstr,conn,1

%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="/friend_center/css/friend_font.css" rel="stylesheet" type="text/css">
<link href="../../lo.css" rel="stylesheet" type="text/css">

<link href="/friend_center/css/site.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="F46492">
  <tr bgcolor="#FFFFFF"> 
    <td colspan="2" valign="top"><table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td><img src="/Meet/pics/top.jpg" width="777" height="100"></td>
        </tr>
      </table>
      <table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td> 
            <link href="/friend_center/css/friend_font.css" rel="stylesheet" type="text/css">
<table width="777" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td background="/friend_center/pics/top_bj.jpg"><table width="100%" height="1" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="2"></td>
        </tr>
      </table>
      <table width="100%" height="15" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="181"> <table width="86%" border="0" align="center" cellpadding="2" cellspacing="0">
              <tr>
                <td><font color="#FFFFCC"> 
                  <% 
		  if Request.Cookies("517eCookie")("UserName") <> "" then 
		  response.write "<img src=/friend_center/pics/a.gif width=16 height=16>"
		  response.write Request.Cookies("517eCookie")("UserName") &"在线"
		  end if 
		  %>
                  </font> </td>
              </tr>
            </table></td>
          <td width="17"><a href="/friend_center/index.asp" class="si"><img src="/friend_center/pics/home.gif" width="17" height="15" border="0"></a>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="1"></td>
              </tr>
            </table></td>
          <td width="579" class="large"><div align="center"><a href="/friend_center/index.asp" class="si">游民部落</a><font color="#FFFFFF"> 
              | </font><a href="/Album/index.asp" class="si">网友相册</a><font color="#FFFFFF"> 
              | <a href="/friend_center/member_list.asp" class="si">网友列表</a> | 
              </font><a href="/Card/index.asp" class="si">传情贺卡</a><font color="#FFFFFF">&nbsp; 
              | <a href="/Meet/index.asp" class="si">真情约会</a> | </font><span class="sy"><a href="/friend_center/article.asp" class="si">情感随笔</a><font color="#FFFFFF"></font></span><font color="#FFFFFF"> 
              | </font><span class="sy"><a href="/diary/diary.asp" target="_blank" class="si">网络日记</a></span><font color="#FFFFFF"> 
              </font><font color="#FFFFFF">|</font><span class="sy"><a href="http://bbs.517e.com" target="_blank" class="si">火爆论坛</a></span><font color="#FFFFFF"> 
              </font><font color="#FFFFFF">| </font><a href="/Articles/contribute_1.asp" target="_blank" class="si">我要投稿</a></div></td>
        </tr>
      </table></td>
  </tr>
</table>

          </td>
        </tr>
      </table></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="176" align="center" valign="top" background="/Album/pics/bg2.gif">
      
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr bgcolor="#FFE6F2"> 
    <td width="4%" height="39">&nbsp;</td>
    <td width="96%" bgcolor="#FFE6F2"><img src="/Meet/pics/ha.gif" width="26" height="23"><img src="/Meet/pics/123.gif" width="17" height="17"><font color="#FF0099">打造属于自己的约会</font></td>
  </tr>
  <tr bgcolor="#F46492"> 
    <td height="1" colspan="2"></td>
  </tr>
</table>
<table width="100%" height="4" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td></td>
  </tr>
</table>
<table width="166" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td><img src="/Album/images/spacer.gif" width="20" height="1" border="0" alt=""></td>
          <td><img src="/Album/images/spacer.gif" width="2" height="1" border="0" alt=""></td>
          <td><img src="/Album/images/spacer.gif" width="135" height="1" border="0" alt=""></td>
          <td><img src="/Album/images/spacer.gif" width="9" height="1" border="0" alt=""></td>
        </tr>
        <tr> 
          <td><img name="al01_r1_c1" src="/Album/images/al01_r1_c1.jpg" width="20" height="6" border="0" alt=""></td>
          <td><img name="al01_r1_c2" src="/Album/images/al01_r1_c2.jpg" width="2" height="6" border="0" alt=""></td>
          <td><img name="al01_r1_c3" src="/Album/images/al01_r1_c3.jpg" width="135" height="6" border="0" alt=""></td>
          <td><img name="al01_r1_c4" src="/Album/images/al01_r1_c4.jpg" width="9" height="6" border="0" alt=""></td>
        </tr>
        <tr background="/Album/images/a02.jpg"> 
          <td height="128" colspan="4"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="/Album/images/a02.jpg">
              <tr> 
                <td width="12%">&nbsp;</td>
                <td width="88%" valign="top"> 
                  <table width="123" border="0" align="center" cellpadding="3" cellspacing="3">
  <tr> 
    <td width="112" height="24" background="/Album/pics/bbbbj.jpg"><table width="100%" height="18" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="26%"><img src="/Album/pics/icon_plaza.gif" width="15" height="14"></td>
          <td width="72%"><a href="/Meet/index.asp">约会首页</a></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td width="112" height="24" background="/Album/pics/bbbbj.jpg"><table width="100%" height="18" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="26%"><img src="/Album/pics/a_02.gif" width="17" height="15"></td>
          <td width="72%"><a href="/Meet/My_Meet/index.asp">我的约会</a></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="24" background="/Album/pics/bbbbj.jpg"><table width="100%" height="18" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="28%"><img src="/Album/pics/slogo_05.gif" width="16" height="17"></td>
          <td width="72%"><a href="/Meet/Add_Meet.asp">打造约会</a></td>
        </tr>
      </table></td>
  </tr>
    <tr> 
    <td height="24" background="/Album/pics/bbbbj.jpg">
	<table width="100%" height="18" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="28%"><img src="/Meet/pics/yh.gif" width="20" height="15"></td>
                      <td width="72%"><a href="/Meet/is_Revert_Meet.asp">参与的约会</a></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td height="24" background="/Album/pics/bbbbj.jpg"><table width="100%" height="18" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="28%"><img src="/Meet/pics/yh0.gif" width="21" height="14"></td>
          <td width="72%"><a href="/Meet/Search_Meet_list.asp">更多约会</a></td>
        </tr>
      </table></td>
  </tr>

  <tr> 
    <td height="24" background="/Album/pics/bbbbj.jpg"><table width="100%" height="18" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="28%"><img src="/Album/pics/search.gif" width="16" height="16"></td>
          <td width="72%"><a href="/Meet/search_Meet.asp">约会搜索</a></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="24" background="/Album/pics/bbbbj.jpg"><table width="100%" height="18" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="28%"><img src="/Album/pics/mms.gif" width="25" height="15"></td>
          <td width="72%"><a href="/mail/Index.asp">站内短信</a></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="24" background="/Album/pics/bbbbj.jpg"><table width="100%" height="18" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="28%"><img src="/Album/pics/h_024.gif" width="16" height="13"></td>
          <td width="72%"><a href="/Meet/help/index.shtml">在线帮助</a></td>
        </tr>
      </table></td>
  </tr>
</table>
                </td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td colspan="4"><img name="al01_r3_c1" src="/Album/images/al01_r3_c1.jpg" width="166" height="5" border="0" alt=""></td>
        </tr>
        <tr> 
          <td><img name="al01_r4_c1" src="/Album/images/al01_r4_c1.jpg" width="20" height="11" border="0" alt=""></td>
          <td><img name="al01_r4_c2" src="/Album/images/al01_r4_c2.jpg" width="2" height="11" border="0" alt=""></td>
          <td><img name="al01_r4_c3" src="/Album/images/al01_r4_c3.jpg" width="135" height="11" border="0" alt=""></td>
          <td><img name="al01_r4_c4" src="/Album/images/al01_r4_c4.jpg" width="9" height="11" border="0" alt=""></td>
        </tr>
      </table>

      <table width="100%" height="8" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table> 
      
    </td>
    <td width="600" valign="top" background="/Meet/pics/xi.gif"><table width="100%" height="16" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="26"><table width="99%" border="0" align="center" cellpadding="3" cellspacing="0">
              <tr>
                <td height="39">目前位置：交友中心 --&gt; 在线帮助</td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="450" valign="top"><iframe scrolling="auto" width="100%" height="450" frameborder="1" marginheight="0" marginwidth="0" src="help.htm"></iframe></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="64" background="/Album/pics/78.jpg"><table width="100" height="8" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="8"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="59%"><div align="right"><font color="#999999"><img src="/Album/pics/tp009.gif" width="15" height="15"></font></div></td>
          <td width="41%"><img src="/Album/pics/copyright.gif" width="292" height="7"></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>

<%
conn.close
set conn=nothing
%>