|
|
<%
Dim K_Name, Skin, Table_Width, Page_Number, Page_Block
Dim Title_Length, Bg_Color, Write_Level, Read_Level, Reply_Level
Dim New_Time, Use_Html, Use_Secret, Use_Notice, Use_Category, Use_Comment
Dim Use_FileUpload, FileUpload_Num, FileUpload_Limit
Dim B_name, mode
Dim Sub_link : Sub_link = ""
Dim File_Del(10)
Dim old_DataFile(10), old_DataSize(10), del_DataFileName(10), imgFile(10)
mode = Trim(Request("mode"))
B_Name = Trim(Request("B_Name"))
Page = Trim(Request("Page"))
Search_Type = Trim(Request("Search_Type"))
Search_value = Trim(Request("Search_value"))
OrderBy = Trim(Request("OrderBy"))
TableName = "Board"
B_Name = "service"
Sub_link = "&page="&page&"&search_type="&search_type&"&search_value="&search_value&"&orderBy="&orderBy
Sql = "Select * from Board_Config where B_Name ='"& B_Name &"' "
Rs.Open Sql, conn,1
K_Name = Trim(Rs("K_Name"))
Skin = Trim(Rs("Skin"))
Table_Width = Trim(Rs("Table_Width"))
Page_Number = Trim(Rs("Page_Number"))
Page_Block = Trim(Rs("Page_Block"))
Title_Length = Trim(Rs("Title_Length"))
Bg_Color = Trim(Rs("Bg_Color"))
Write_Level = Trim(Rs("Write_Level"))
Read_Level = Trim(Rs("Read_Level"))
Reply_Level = Trim(Rs("Reply_Level"))
New_Time = Trim(Rs("New_Time"))
Use_Html = Trim(Rs("Use_Html"))
Use_Secret = Trim(Rs("Use_Secret"))
Use_Notice = Trim(Rs("Use_Notice"))
Use_Category = Trim(Rs("Use_Category"))
Use_Comment = Trim(Rs("Use_Comment"))
Use_FileUpload = Trim(Rs("Use_FileUpload"))
FileUpload_Num = Trim(Rs("FileUpload_Num"))
FileUpload_Limit = Trim(Rs("FileUpload_Limit"))
Rs.Close
If Mmem_Level ="" Then
Mmem_Level =0
End If
%>
|
|
|
