-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathute.asp
108 lines (74 loc) · 3.3 KB
/
ute.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
<%@codepage=1253 language = "VBScript" %>
<%
option explicit
%>
<!--#include file ="include/adovbs.inc"-->
<!--#include file ="include/ute_definition.inc"-->
<%
SetLocale(1032)
session.lcid=2057
Session.Timeout=30
Dim sDSN,dbconnect
' To use a DSN-Less Connection use the following sDSN definition.
' !!! By using this, UTE is able to detect Primary Keys accurately.
dbconnect = "Driver={SQL Server}; Server=" & sMSSQLServerAddress & "; Database=" & sMSSQLInitialCatalog & "; Uid=" & sMSSQLUsername & "; Pwd=" & sMSSQLPassword
sDSN = dbconnect
' To use a DSN (ODBC) Connection use the following sDSN defintion.
' You need to setup an ODBC data source.
' !!! By using this, UTE is *NOT* always able to detect Primary Keys accurately.
' sDSN = "test"
Dim ute,test
Set ute = new clsUTE
ute.DBName = "All-About-Bet.com" ' Name of Database. For display purpose only
'ute.ReadOnly = True ' readonly mode
ute.ListTables = true ' display toolbutton to list all tables within db
ute.Filters = true ' display toolbutton to define and activate filters
ute.Export = true ' display toolbutton to export all data to CSV file
ute.SQL = true ' display toolbutton to show current sql statement
ute.Definitions = true ' display toolbutton to show field defintions
ute.MainMenu = "admin.asp"
ute.TableLookUp = true
ute.Init sDSN ' init must be called *before* any HTML code is
' is written, otherwise the export feature doesn't work !
if Request.QueryString ("name")="Articles" then
ute.AddLookUpTable("TipsterID=sql(select TipsterID,NickName from Tipsters where TipsterID=v_Field{TipsterID:NickName}pkvalue{TipsterID})")
ute.AddDefaultValue("RegDate=" & Date())
ute.AddRichEdit("Article")
ute.AddLookUpTable("ArticleCategory=Lookup(1|Ãåíéêü Üñèñï;2|Golden Match;3|Áîßæåé íá äåéò;4|Ôé ðáßæåé ç Áóßá;5|Ãåñìáíßá;6|ÅêðëÞóåéò))")
ute.AddHookBrowse("Photo")
end if
if Request.QueryString ("name")="News" then
ute.AddDefaultValue("Date=" & Date())
ute.AddDefaultValue("EndDate=" & CDate(Date()+1))
end if
if Request.QueryString ("name")="Tipsters" then
ute.AddRichEdit("CV")
ute.AddHookBrowse("Photo")
ute.AddHTMLCode("TipsterAdmin= Ôá êåßìåíá ôïõ TipsterAdmin åìöáíßæïíôáé ðñþôá ãéá ôçí ßäéá çìåñïìçíßá")
end if
if Request.QueryString ("name")="BannersLeftSide" then
ute.AddHookBrowse("BannerLeftTitle")
ute.AddHTMLCode("Width=Ôï ìÝãéóôï åðéôñåðüìåíï ðëÜôïò åßíáé 200 pixels")
end if
if Request.QueryString ("name")="BannersRightSide" then
ute.AddHookBrowse("BannersRightSide")
ute.AddHTMLCode("Width=Ôï ìÝãéóôï åðéôñåðüìåíï ðëÜôïò åßíáé 200 pixels")
end if
if Request.QueryString ("name")="UserFiles" then
ute.AddLookUpTable("Privilege=Lookup(Admin|Admin)")
end if
%>
<!doctype html public "-//W3C//DTD HTML 3.2//EN">
<html>
<head>
<title><%=ute.HeadLine%> - Universal Table Editor</title>
<link rel="stylesheet" type="text/css" href="ute_style.css">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1253">
</head>
<body bgcolor="#FFFFFF" link="#0000A0" vlink="#0000A0" alink="#0000A0">
<%
ute.Draw
Set ute = Nothing
%>
</body>
</html>