Asp Excel доступ уникальный user_id

Question

Я очень плохо знаком с ASP и работаю над проектом с использованием ASP, а не ASP.NET.

У меня есть небольшое приложение, в котором после входа в систему пользователь может загрузить файл .xls, а затем записьэтот файл Excel вставляется в базу данных Access.

Мои примеры файлов проекта работают нормально, т.е. файл загружен и вставлен в Access.Моя проблема в том, что я хочу вставить данные из этого файла Excel в Access с уникальным идентификатором пользователя конкретного пользователя, потому что многие пользователи могут вставлять файлы Excel в одну таблицу.Таким образом, когда пользователь нажимает «просмотреть записи», он должен видеть только свои записи, а не записи других.

И еще одна задача - выяснить, как сохранять файлы с уникальными именами файлов, соответствующими зарегистрированному пользователю.чтобы избежать дублирования файлов.

Это URL-адрес, с которого я получил код для использования файлов для загрузки и вставки данных Excel в Access: http://shotdev.com/asp/asp-excel/asp-upload-excel-import-to-database/.

Answer 1

Если у вас есть страница входа для пользователей, сохраните идентификатор пользователя в переменной сеанса, а затем, когда пользователь загружает файлы, добавьте переменную сеанса в процедуру вставки загруженного файла.

пример вашегоТаблицы будут иметь вид1012 * В вашем случае, iv'e добавил идентификатор пользователя в столбцы таблицы, а также добавил переменную сеанса для вошедшего в систему пользователя.

For  i = 2 To 5
If Trim(xlSheet1.Cells.Item(i,1)) <> "" Then  
strSQL = ""  
strSQL = strSQL &"INSERT INTO customer2 "  
strSQL = strSQL &"(userid, CustomerID,Name,Email,CountryCode,Budget,Used) "  
strSQL = strSQL &"VALUES "  
strSQL = strSQL &"('& sessionvariable &', "&xlSheet1.Cells.Item(i,1)&"','"&xlSheet1.Cells.Item(i,2)&"',     '"&xlSheet1.Cells.Item(i,3)&"' "  
strSQL = strSQL &",'"&xlSheet1.Cells.Item(i,4)&"','"&xlSheet1.Cells.Item(i,5)&"',     '"&xlSheet1.Cells.Item(i,6)&"') "  
Set objExec = Conn.Execute(strSQL)  
Set objExec = Nothing  
End IF  
Next