Форум программистов, компьютерный форум, киберфорум
C#: Web, ASP.NET
Войти
Регистрация
Восстановить пароль
 
3 / 3 / 2
Регистрация: 31.10.2009
Сообщений: 112
1

Нужно откомментировать код

20.12.2013, 20:21. Просмотров 455. Ответов 2
Метки нет (Все метки)

Index.asp
HTML5
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
<html>
<link rel="stylesheet" type="text/css" href="style.css">
<body>
<div id="container">
<% 
   'получение данных из сессии'
   User=Session("user")
   fl=Session("fl")
   role=Session("Role")
   if (fl="false") then Response.Write("Неверный логин или пароль")
 
if (User="") then  
%>
  
<form action="enter.asp" method=post>
  <table>
    <tr>
      <td>Логин:</td>
      <td><input type="text" name="login" /></td>
    </tr>
    <tr>
      <td>Пароль:</td>
      <td><input type="password" name="pass" /></td>
    </tr>
  </table>
<input type="submit" value="Войти" />
<a href="reg.asp">Регистрация </a><br>
<input type="hidden" name="hidfield" value="Exit" />
</form>
 
<%
  else Response.Write("<br><strong>Здравствуйте, "+User+"</strong>")
    if (role="admin") then %>
    <a href="admin.asp">Панель администратора</a><br>
<%  end if %> 
<form action="index.asp" method=post>
<input  type="submit" value="Выход" />
<br>
<br>
 
<input type="hidden" name="hiddenfield" value="Exit" />
<% 
 'выход из сессии'
 ex=Request.Form("hiddenfield")
 if (ex="Exit") then 
   User="" 
   Session("user")=User
   Session("Role")=""
   %>
<meta http-equiv="refresh" content="0">
<%
 end if  
end if
%>
 
</form>
<br>
</div>
<!-- #include virtual | file ="chat.asp" --> 
</body>
</html>


Enter.asp

HTML5
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
<html>
<body>
 
<% 
  'путь к базе'
  filePath=Server.MapPath("db1.mdb")
  'получение данных с формы'
  dim log, pass
  log=Request.Form("login")
  pass=Request.Form("pass")
  'открытие базы' 
  Set cnn=Server.CreateObject("ADODB.Connection")
  cnn.open("Driver={Microsoft Access Driver (*.mdb)};DBQ=" + filePath)
  if (log<>"") then
   Set rdset=Server.CreateObject("ADODB.Recordset")
   'выборка данных из базы'
   strSQL= "SELECT * FROM Users"
   rdset.Open strSQL, cnn 
    'поиск пользоватея в записях базы'
    Do Until rdset.EOF
    if (log=rdset.Fields("Login"))and(pass=rdset.Fields("Pass")) then
        User=rdset.Fields("Login")
        if (rdset.Fields("Role")="admin") then
          Session("Role")="admin"
        end if  
        Session("user") = User
    end if
    rdset.MoveNext 
    Loop
  end if
  'закрытие соединения с базой'
  rdset.Close
  Set rdset = Nothing
  cnn.Close
  Set cnn = Nothing
  
  'опереход на главную страницу'
  if (User="") then 
    Session("fl")="false"
    Response.Redirect("index.asp")
  else  
    Session("fl")="true"
    Response.Redirect("index.asp")
    
  end if
%>
  
  <br>
 
<a href="index.asp">Home</a><br />
</body>
</html>



Reg.asp
HTML5
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
<html>
<link rel="stylesheet" type="text/css" href="style.css">
<body>
<br>
<form action="reg.asp" method=post>
  <table>
    <tr>
      <td>Введите логин:</td>
      <td><input type="text" name="login" /></td>
    </tr>
    <tr>
      <td>Введите пароль:</td>
      <td><input type="password" name="pass1" /></td>
    </tr>
    <tr>
      <td>Повторите пароль:</td>
      <td><input type="password" name="pass2" /></td>
    </tr>
  </table>
<input type="submit" value="Регистрация" />
<br>
<br>
  
</form>
   
<% 
  'путь к базе'
  filePath=Server.MapPath("db1.mdb")
  'получение данных с формы'
  dim log, pass1, pass2
  log=Request.Form("login")
  pass1=Request.Form("pass1")
  pass2=Request.Form("pass2")
  'открытие базы' 
  Set cnn=Server.CreateObject("ADODB.Connection")
  cnn.open("Driver={Microsoft Access Driver (*.mdb)};DBQ=" + filePath)
  'проверка есть ли пользователь в базе'
  if (log<>"") then
     Set rdset=Server.CreateObject("ADODB.Recordset")
     'выборка данных из базы' 
     strSQL= "SELECT * FROM Users"
     rdset.Open strSQL, cnn 
    'поиск пользователя' 
    Do Until rdset.EOF
    if (log=rdset.Fields("Login")) then
        logdis="true"
 
   end if
   rdset.MoveNext
   Loop
 
  end if
  'добавление пользователя в базу в случае если еще нету' 
  if(pass1<>"")and(pass1=pass2) and (logdis<>"true") then
    logdis="false"
    strSQL="INSERT INTO Users (Login, Pass) VALUES ('"+log+"','"+pass1+"')"
    cnn.Execute strSQL
    Session("user") = log
  end if
  'закрытие соединения с базой'
  Set rdset = Nothing
  cnn.Close
  Set cnn = Nothing
  Session("fl")="true"
  'вывод сообщений '
  if logdis="true" then 
     Response.Write(" Этот логин занят ")
   end if
   if logdis="false" then
     Response.Write(" Вы успешно зарегистрированы ")
     'переход на главную страницу'
     Response.Redirect("index.asp")
   end if
%>
<br>
<a href="index.asp">Вернуться на главную</a><br />
</body>
</html>

Chat.asp

HTML5
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
<html>
<link rel="stylesheet" type="text/css" href="style.css">
<body>
 
<form id="chat" action="index.asp" method=post>
<div id="mess">
<% 
  'путь к базе'
  filePath=Server.MapPath("db1.mdb")
  'получение данных с формы и сессии'
  User=Session("user")
  role=Session("Role")
  mstime=Cstr(Now)
  Msg=Request.Form("Msg")
  'открытие базы'
  Set cnn=Server.CreateObject("ADODB.Connection")
  cnn.open("Driver={Microsoft Access Driver (*.mdb)};DBQ=" + filePath)
  Set rdset=Server.CreateObject("ADODB.Recordset")
   'выборка данных из базы'
   strSQL= "SELECT * FROM Messages ORDER BY MsDate ASC"
   rdset.Open strSQL, cnn 
   'вывод сообщений из базы на экран'
   Do Until rdset.EOF
     msdate=Cstr(rdset.Fields("MsDate"))
     if(role="admin") then  
%>
   <input type="checkbox" name="box" value="<%=msdate%>" />
<%
     end if 
     if(mstime=msdate) then  dis="disable"
     mshour=Cstr(Hour(msdate))
     if mshour<10 then mshour="0"+mshour
     min=Cstr(Minute(msdate))
     if min<10 then min="0"+min
     sec=Cstr(Second(msdate))
     if sec<10 then sec="0"+sec
     tt="<span>"+mshour+":"+min+":"+sec+"</span> "
     Response.Write(tt+" <strong>"+rdset.Fields("Login")+": </strong>"+rdset.Fields("Message")+"<br>")
     rdset.MoveNext 
   Loop
  'добавление сообщения в базу' 
  if(Msg<>"") and (dis<>"disable")then
    strSQL="INSERT INTO Messages (MsDate, Login, Message) VALUES ('"+mstime+"','"+User+"','"+Msg+"')"
    cnn.Execute strSQL
    Msg="success"
  end if
  dis=""
  'удаление сообщения' 
  del=Request.Form("del")
  if(del="delete") then
      for i=1 to Request.Form("box").count
       strSQL="DELETE FROM Messages WHERE MsDate='"+Cstr(Request.Form("box")(i))+"' "
       cnn.Execute strSQL
      next
      Msg="success"
  end if
  'закрытие соединения с базой'
  rdset.Close
  Set rdset = Nothing
  cnn.Close
  Set cnn = Nothing
  'обновление страницы'
if(Msg="success") then 
%>
<meta http-equiv="refresh" content="0">
<% end if %>
</div>
<% if (User<>"") then %>     
  <textarea NAME="Msg" ROWS="8" COLS="40" SIZE=250></textarea><br>
  <input type="submit" value="Отправить" />
  <input type="reset" value="Очистить" />
<% if(role="admin") then %> 
  <input type="hidden" name="del" value="delete" />
  <input type="submit" value="Удалить" />
<% end if %>
<%end if%>
</form>
 
</body>
</html>


Admin.asp
HTML5
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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
<html>
<link rel="stylesheet" type="text/css" href="style.css">
<body>
<form action="admin.asp" method=post>
Пользователи: <br>
<br>
<div id="mess">
<% 
  'путь к базе'
  filePath=Server.MapPath("db1.mdb")
  'получение данных с формы и из сессии'
  User=Session("user")
  role=Session("Role")
  add=Request.Form("new")
  change=Request.Form("change")
  del=Request.Form("del")
  uslog=Request.Form("login")
  pass=Request.Form("pass")
  'открытие базы' 
  Set cnn=Server.CreateObject("ADODB.Connection")
  cnn.open("Driver={Microsoft Access Driver (*.mdb)};DBQ=" + filePath)
  if (User<>"") and (role="admin") then
   'выборка всех пользователей из базы'
   Set rdset=Server.CreateObject("ADODB.Recordset")
   strSQL= "SELECT * FROM Users"
   rdset.Open strSQL, cnn 
%>
  <table>
    <tr>
<%   
    Do Until rdset.EOF
      'убрать вывод имени текущего польователя'
      login=rdset.Fields("Login")
      if uslog=login then logdis="disable"
      if (login<>User) then
%>
  <tr>
    <td><input type="checkbox" name="box" value="<%=login%>" />
<%
        'вывод имен и паролей из базы на экран'
        Response.Write("<td><strong>"+rdset.Fields("Login")+"</strong></td>"+" <td> "+rdset.Fields("Pass")+"</td>")
        end if
    rdset.MoveNext
    Response.Write("</tr>")
    Loop
    rdset.Close
%>
</table>
</div>
<%  
  if(add="Добавить") then
 
%>
<table>
    <tr>
      <td>Логин:</td>
      <td><input type="text" name="login" /></td>
      <td>Пароль:</td>
      <td><input type="password" name="pass" /></td>
    </tr>
  </table>
<input class="button" type="submit" name="ok" value="OK" /><br>
<%  
  end if
    'добавление пользователя'
    ok=Request.Form("OK")
    if (ok="OK") and (login<>"") and (pass<>"") and (logdis<>"disable") then
      strSQL="INSERT INTO Users (Login, Pass) VALUES ('"+uslog+"','"+pass+"')"
      cnn.Execute strSQL
      Msg="success"
    end if  
    
  'изменение пользователя'
  if(change="Изменить") then
    if(Request.Form("box").count=1) then
      Session("log")=Request.Form("box")
      Response.Write("Пользователь: "+Session("log")+"<br>")
 
     
%>
<input type="text" name="login" />
<input type="password" name="pass" /><br>
<%    
    
%>
<input type="submit" name="ok2" value="OK" /><br>
<%  else Response.Write("Выбери одного пользователя пользователя <br>")
    end if
  end if 
    'измение имени и/или пароля '
    if (Request.Form("ok2")="OK") and (logdis<>"disable") then
      if uslog="" then uslog=Session("log")
      if pass="" then 
        strSQL="UPDATE Users SET Login = '"+uslog+"' WHERE Login='"+Session("log")+"' "
      else 
        strSQL="UPDATE Users SET Login = '"+uslog+"', Pass='"+pass+"' WHERE Login='"+Session("log")+"' "
      end if    
      cnn.Execute strSQL
      Msg="success"
    end if
  'удаление пользователя'
  if(del="Удалить") then
      for i=1 to Request.Form("box").count
       strSQL="DELETE FROM Users WHERE Login='"+Cstr(Request.Form("box")(i))+"' "
       cnn.Execute strSQL
      next
      Msg="success"
  end if
  
  end if
  'закрытие соединения с базой'
  Set rdset = Nothing
  cnn.Close
  Set cnn = Nothing
  'обновление страницы'
  if(Msg="success") then 
%>
<meta http-equiv="refresh" content="0">
<% end if %>
<br>
<input name="new" type="submit" value="Добавить" />
<input name="change" type="submit" value="Изменить" />
<input name="del" type="submit" value="Удалить" />
</form>
<br>
<a href="index.asp">Вернуться на главную</a><br />
</body>
</html>
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.12.2013, 20:21
Ответы с готовыми решениями:

Нужно откомментировать код программы
Здравствуйте! Помогите пожалуйста откомментировать код уже написанной программы. Кое-что я уже...

нужно откомментировать
помогите откомментировать пожалуйста! Программа полностью рабочая!!!

Нужно откомментировать проект
Есть проект на подобии 2048, только с тройками. Не понимаю некоторую часть кода. Можете ли...

откомментировать код
#include &lt;iostream&gt; #include &lt;string&gt; #include &lt;algorithm&gt; using namespace std; int main()...

2
0 / 0 / 0
Регистрация: 17.01.2014
Сообщений: 6
17.01.2014, 18:22 2
ctrl+k+u
0
2403 / 1860 / 335
Регистрация: 22.07.2011
Сообщений: 7,120
19.01.2014, 22:19 3
Судя по коду , он прокомментирован и закомментирован.
Нужно раскомментировать ?
"откомментировать" - не , не знаю такого.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2014, 22:19

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Откомментировать код
void TelemetryFrame::on_aSaveFile_triggered(void) { QFileDialog::Options options; QString...

откомментировать код
#include &lt;iostream&gt; #include &lt;string&gt; using namespace std; struct Tree { char x; Tree...

Откомментировать код, написанный поляком-программистом
нужны коментарии к программам 1) #include†&lt;iostream&gt; #include &lt;string&gt; #include &lt;fstream&gt;...

Вывести прямоугольник 10х10 сиреневого цвета в центр экрана: откомментировать код
.model small .stack 100h VGA_mode equ 13h ; 320x200 256 цветной графический режим color equ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.