Collage
n. A piece of art made by sticking various different materials,
aka PHENOMENA Magazine
Department
Chinese couple charged with murder of South Korean influencer in Cambodia
A Cambodian court has charged a Chinese couple with murdering a South Korean influencer who they insist died while receiving treatment in their clinic.
BJ Ahyeong was found dumped on the outskirts of Phnom Penh in Cambodia | lovely_ahyeong/Instagram
The Chinese couple has been arrested by Cambodian police for abandoning the body of a Korean influencer, as reported by Rasmei Kampuchea Daily on Sunday. | Rasmeinews
The body of BJ Ahyeong was found dumped on the outskirts of Cambodia's capital, Phnom Penh, last week.
The couple say they abandoned her body after she had seizures and died while receiving treatment at their beauty clinic in the city.
But prosecutors have refuted their account.
Prosecutor Plang Sophal told the AFP news agency that Lai Wenshao and Cai Huijuan had been charged with "murder accompanied by torture".
Her body was reportedly wrapped in red cloth and found by locals.
BJ Ahyeong was an influencer for AfreecaTV, a South Korean video streaming service, and had more than 260,000 followers on Instagram.
BJ is short for Broadcast Jockey and is a Korean term for people who deliver live streaming to viewers.
South Korean media have reported her real identity as 33-year-old Byun Ah-yeong.
In March, she announced she was stepping away from her public persona to "live as a normal person".
The couple face life imprisonment if found guilty.
Chinese couple charged with murder of South Korean influencer in Cambodia
A Chinese couple are accused of murdering BJ Ahyeong and dumping her body in Cambodia.
https://www.bbc.com/news/world-asia-65901004
ចាប់ខ្លួនពីរនាក់ប្ដីប្រពន្ធ ជនជាតិចិន យកសពអ្នកជំងឺ ជនជាតិកូរ៉េ ដែលស្លាប់ ក្នុងគ្លីនិករបស់ខ្លួន រុំកន្ទេល បោះចោល នៅស្រុកកណ្ដាលស្ទឹង - Rasmei Kampuchea Daily
ដោយៈ មុនីរត្ន / ភ្នំពេញៈ ករណីប្រទះឃើញសាកសពមនុស្សស្រី រុំកន្ទេល ផ្លុងចោល នៅចំណុចភូមិឆ្មាពួន ឃុំជើងកើប ស្រុកកណ្ដាលស្ទឹង ខេត្តកណ្ដាល ត្រូវបាននាយកដ្ឋាន នគរបាលព្រហ្មទណ្ឌ ធ្វើការស្រាវជ្រាវ បង្ក្រាបបានហើយ។...
https://www.rasmeinews.com/archives/801930
Popular Korean Influencer's Death In Cambodia Is Shrouded In Mystery After Reported Rumors Claim She Was Found Badly Beaten
A popular influencer who had 250K followers on Instagram has been found dead in Cambodia. Reported rumors claim the body was found badly beaten.
https://www.koreaboo.com/news/ahyeong-korean-influencer-death-cambodia-chinese-couple/
"속옷 거꾸로 입혀져…" 캄보디아 사망 BJ 성폭행 의심 정황
지난달 캄보디아에서 사망한 30대 한국인 여성이 성폭행을 당한 것으로 의심되는 정황이 있었다는 현지 수사 관계자 발언이 나왔다. 지난 8일 방영된 SBS ‘그것이 알고 싶다’에서는 지난 6월 6일 캄보디아 수도 프놈
https://n.news.naver.com/mnews/article/025/0003292475
딱 봐도 성폭행하고 프로포폴로 죽인것이다.
??근데 현지도 모자이크 안했는데 더러운 짱깨 살인범들은 왜 모자이크 쳐해줌? 미쳤냐??
범죄자 인권만 중시하는 개한민국 아니랄까봐. 이딴게 인권이냐??
news
July 9, 2023, 9:32 p.m.
2023년에 야짤 그렸다고 사람 잡아가는 나라가 있다??
신체 중요 부위를 노출한 여성 캐릭터 그림을 그려 온라인에서 판매한 혐의의 20대 남성에게 1심 법원이 벌금형을 선고했다.
A씨는 지난 2021년 8월 17일 서울 서대문구 자택에서 컴퓨터로 신체 중요 부위가 노출된 여성 캐릭터 그림을 제작하고 소셜네트워크서비스(SNS) 계정에 올려 불특정 다수의 사람이 이를 볼 수 있도록 전시한 혐의를 받는다.
또한 후원금을 결제한 사람이 이를 내려받을 수 있도록 하는 등 음란물을 판매한 혐의도 있다.
신체 중요 부위 노출...이 여성 캐릭터로 7000만원 번 20대男
신체 중요 부위를 노출한 여성 캐릭터 그림을 그려 온라인에서 판매한 혐의의 20대 남성에게 1심 법원이 벌금형을 선고했다. 9일 법조계에 따르면 서울서부지법 형사4단독(정금영 부장판사)은 정보통신망 이용촉진 및 정보
https://n.news.naver.com/mnews/article/025/0003292498
?????
뭐긴뭐야 개한민국이지. 이딴 나라가 어떻게 선진국 타이틀을 달았냐?
성인이 성인물보면 잡아가는 유사국가 유교탈레반 개죠센 ㅋㅋ
저게 왜 범죄냐? ?성인웹툰은?? BL 알페스는??
그럼 연예인으로 게이소설 쓰는것들도 다 잡아야지ㅋㅋ 좆나 기울어졌네.
그래서 피해자가 대체 누군데?
2D가 범죄가 되는 개같은 세상. 진심 토쏠린다.
동성애 정신병자들은 옷벗고 대로를 활보해도 인권운동이고 이성애자는 방안에서 그림만 그려도 죄가 되고 뭐 이따위냐??
만민이 법 앞에 평등해야 하는 것이 헌법 정신인데. 헌법 정신 쳐 말아먹고 판결도 불공정한 사법부의 민변 우리법 연구회 출신 좌파들부터 싹 다 쓸어버려야 한다.
진짜 판새들도 다 치워버려라. 이거 뭐 조선시대 야한 풍속화 검열보다 더한 미개한 나라되었네 ㅋㅋ 하다못해 그림단속까지 ㅋㅋ 어처구니가 없네 진짜. ㅋㅋ
news
July 9, 2023, 8:57 p.m.
ㅋㅋㅋ답변이 재밌네.
ASP.net c# - Could not load type - Stack Overflow
ASP.net c# - Could not load type
On my page I have: <%@ Page Language="C#" AutoEventWireup="true" CodeBehind="siteSettings.aspx.cs" Inherits="APack.admin.siteSettings" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0
https://stackoverflow.com/questions/3447762/asp-net-c-sharp-could-not-load-type
대박🤣🤣🤣
C
June 27, 2023, 10:44 a.m.
Troubleshooting for Django
1) 장고 패스워드 재설정 시 이메일이 안보내지는 경우
패스워드 리셋 이메일은 active user(is_active가 true) 이면서 사용가능한 패스워드가 설정되어 있는 유저인 경우(has_usable_password 도 true) 에만 전송이 된다.
즉 gmail이나 네이버 oauth 등으로 가입한 유저의 경우에는 패스워드를 직접 타이핑하여 설정한 경우가 아니기에 패스워드 리셋 이메일이 안 보내지는 것이다.
아무 오류도 안뜨고 마치 전송된 것처럼 나올 수 있으므로 주의.
Django: reset-password not sending email
I am using the Django password reset. I have this code in my settings.py: EMAIL_USE_TLS = True EMAIL_HOST = 'smtp.gmail.com' EMAIL_PORT = 587 EMAIL_HOST_USER = 'myusername@gmail.com'
https://stackoverflow.com/questions/20325729/django-reset-password-not-sending-email
2) 장고 특정 app에 다국어 추가
1. 해당 app에 locale 폴더를 만든다.
2. 가상경로에서 해당 app 경로로 이동
3. 다음 명령을 실행
django-admin makemessages -l ja
4. 컴파일
django-admin compilemessages
How do I run makemessages so it includes some apps that are outside the Django project?
I have the following structure: . ├── apps │ ├── app1 │ │ ├── app1 │ │ └── setup.py │ ├── app2 │ │ ├── app2 │ │ └── setup.py ├── my_django_project │ ├── appA │ ├── appB │ ...
https://stackoverflow.com/questions/30426823/how-do-i-run-makemessages-so-it-includes-some-apps-that-are-outside-the-django-p
3) requirements.txt 를 통한 패키지 종속성 관리
현재 환경에서 설치한 패키지 확인
pip freeze
설치한 패키지 목록을 파일에 담기
pip freeze > requirements.txt
패키지 설치
pip install -r requirements.txt
ssl 오류가 발생할 경우에는
pip install --trusted-host pypi.org --trusted-host files.pythonhosted.org -r requirements.txt
4) django management 시스템 안에서 내 명령어 만들고 사용하기
app들을 import하여 만든 코드를 서버시작없이 콘솔에서 테스트 또는 실행하고 싶을 때 유용함.
그냥 Run 해버리면 import된 모듈을 찾을 수 없다고 나온다.
shell 명령을 쓰지않아도 되어서 편하다
1. 폴더구조를 아래와같이 만들어야 한다
$ tree CallCenter
├── admin.py
├── apps.py
├── __init__.py
├── management
│ └── commands
2. 이제 commands 폴더 안에 내가 쓰고자 하는 명령어의 이름으로 python 파일을 작정한다
여기서는 make_call.py
CallCenter/management/commands/make_call.py
from twilio.rest import Client
from twilio.twiml.voice_response import VoiceResponse, Say, Dial, Number, VoiceResponse
from CallCenter.models import Campaign
from django.core.management import BaseCommand
def create_xml(campaign):
# Creates XML
response = VoiceResponse()
response.say(campaign.campaign_text)
return response
class Command(BaseCommand):
def add_arguments(self, parser):
parser.add_argument("--campaign-id", required=True, type=int)
def handle(self, campaign_id, **options):
campaign = Campaign.objects.get(pk=campaign_id)
xml = create_xml(campaign)
print(xml)
3. 아래와 같이 실행하면 된다
$ python manage.py make_call --campaign-id=1
How to run a python script in Django?
I am new to Django, and I'm trying to import one of my models in a script as we do it in views.py. I'm getting an error: Traceback (most recent call last): File "CallCenter\make_call.py", line ...
https://stackoverflow.com/questions/58286858/how-to-run-a-python-script-in-django
5) django를 이용한 소셜 로그인
소셜로그인의 양대산맥:
GitHub - pennersr/django-allauth: Integrated set of Django applications addressing authentication, registration, account management as well as 3rd party (social) account authentication.
Integrated set of Django applications addressing authentication, registration, account management as well as 3rd party (social) account authentication. - GitHub - pennersr/django-allauth: Integrate...
https://github.com/pennersr/django-allauth
GitHub - python-social-auth/social-app-django: Python Social Auth - Application - Django
Python Social Auth - Application - Django. Contribute to python-social-auth/social-app-django development by creating an account on GitHub.
https://github.com/python-social-auth/social-app-django
app을 등록한 후 사용하면 된다
트위터: Twitter Developers
JavaScript is not available. We’ve detected that JavaScript is disabled in this browser. Please enable JavaScript or switch to a supported browser to continue using twitter.com. You can see a list of supported browsers in our Help Center. Help Center Term
https://developer.twitter.com/en/portal/petition/essential/basic-info
네이버: 애플리케이션 - NAVER Developers
애플리케이션 - NAVER Developers
https://developers.naver.com/apps/#/list
네이버로 연동된 app목록은 여기서 확인가능 Apps : NAVER Account
네이버
네이버에 로그인 하고 나를 위한 다양한 서비스를 이용해 보세요
https://nid.naver.com/internalToken/view/tokenList/pc/en
구글: https://console.developers.google.com/apis/dashboard
Google Cloud Platform
Sign into continue to Google Cloud PlatformEmail or phoneForgot email?Type the text you hear or seeNot your computer? Use Guest mode to sign in privately. Learn moreNextCreate account
https://console.developers.google.com/apis/dashboard
이중 가장 까다로웠던건 네이버연동.
첨에 신청했다가 어떤목적 사이트인지 기술안했다고 반려당하고
가입시 선택사항으로 이름을 넣어놨는데 사용목적이 안나왔다고 반려당하고 선택사항삭제하고
별명을 필수로 넣었는데 어디에 쓰이는지 알수없다고해서 캡쳐후 재신청하고
검수 승인까지 좀 걸렸었다.
python
June 27, 2023, 10:27 a.m.
recv() failed (104: Connection reset by peer) while reading response header from upstream
LinkedIn sharing has not worked for me.
So I checked a URL from LinkedIn’s Post Inspector.
A 400 error has occurred.
I checked the server error log again.
[error] 4993#4993: *22595 recv() failed (104: Connection reset by peer) while reading response header from upstream, client: 1.1.1.1, server: example.com, request: "GET / HTTP/1.1", upstream: "uwsgi://unix://www/webservice.sock:", host: "example.com", referrer: "url"
This snippet is for future me. Most answers for this problem you'll see are related to PHP. This issue is related to the buffer size in the uWSGI. Probably your requests have a long query parameters and cookies.
First, I added the following code to nginx.conf:
reset_timedout_connection on;
keepalive_requests 1000;
send_timeout 30;
server_names_hash_max_size 2048;
#access_log /var/log/nginx/access.log;
access_log off;
log_not_found off;
but it still has not worked.
One setting that occasionally needs to be adjusted is UWSGI_BUFFER_SIZE. The default value is 4096. If you plan to receive relatively big requests, you'll need to change this parameter value. You can tune it up to 65535.
I do it in my application config uwsgi ini file. ( basically ini file is in /etc/uwsgi/ )
buffer-size=32768
* If you want to show an OG image, then you have to resize the image to 1200 px, etc.
My image was 4032x3024, and it didn't show up.
Now everything works fine. :)
Ref.
uWSGI. recv() failed (104: Connection reset by peer) while reading response header from upstream / abstractkitchen.com
abstractkitchen.com uWSGI. recv() failed (104: Connection reset by peer) while reading response header from upstream Posted by Dmitry Updated on December 04, 2022 python uwsgi error snippet nginx [error] 4993#4993: *22595 recv() failed (104: Connection re
https://abstractkitchen.com/blog/recv-failed-connection-reset-by-peer/
How to manage uWSGI configuration - Divio Documentation
Divio Documentation Contents Menu Expand Light mode Dark mode Auto light/dark mode Hide navigation sidebar Hide table of contents sidebar Toggle site navigation sidebar Divio Documentation Toggle Light / Dark / Auto color theme Toggle table of contents si
https://docs.divio.com/en/latest/how-to/uwsgi-configuration/
https://yoast.com/help/linkedin-sharing-not-working/
uwsgi invalid request block size
I am running uwsgi in emperor mode uwsgi --emperor /path/to/vassals/ --buffer-size=32768 and getting this error invalid request block size: 21327 (max 4096)...skip What to do? I also tried -b 32768.
https://stackoverflow.com/questions/15878176/uwsgi-invalid-request-block-size
Where do you create the ini file? (Uwsgi)
my reference: https://docs.djangoproject.com/en/4.0/howto/deployment/wsgi/uwsgi/ my project name: 'mysite' my directories: I create 'uwsgi.ini'. then, I written in ini file. [uwsgi] chdir=/var/ww...
https://stackoverflow.com/questions/70811918/where-do-you-create-the-ini-file-uwsgi
server
June 26, 2023, 3:45 a.m.
역주행 에스컬레이터도 중국산...전철역 점령 그들 위험한 이유
수인분당선 수내역에서 발생한 역주행 사고에 대한 조사가 진행되고 있다. 뉴시스
국내 기차역과 도시철도역에 설치된 에스컬레이터 대부분이 중국에서 제작해 수입된 것으로 확인됐다. 특히 코레일과 서울교통공사가 운영하는 에스컬레이터는 전량 중국산으로 조사됐다.
25일 코레일과 서울교통공사, 부산교통공사, 인천교통공사, 대구교통공사, 대전교통공사, 광주도시철도공사가 국회 강대식 의원(국민의힘)에게 제출한 '기차·도시철도역 에스컬레이터 설치 현황'에 따르면 현재 운영 중인 에스컬레이터는 모두 6590대가량이다.
이 중 상당수의 원산지(제조국가)가 중국이었다. 코레일은 2640대의 에스컬레이터 전부가 중국산이었으며, 서울교통공사도 1827대 모두 중국에서 만들어져 수입된 제품이었다. 대전교통공사도 중국산 비율이 92%에 달했다.
지난 8일 발생한 수인분당선 수내역의 에스컬레이터 역주행 사고 현장 모습. 뉴스1
국내 기차역과 도시철도역에 설치되는 엘리베이터의 경우 국내 중소기업자 간 경쟁제품으로 지정돼있어 거의 대부분 국내에서 제작된 중소기업 제품이 납품돼 있다.
그러나 에스컬레이터는 이런 제한이 없기 때문에 별도로 원산지를 따지지 않는다고 한다. 또 납품가가 대체로 낮게 책정되기 때문에 대기업이 뛰어들기 어렵다고 알려져 있다. 게다가 중소기업은 국내에 생산공장이 거의 없는 실정이다.
서울교통공사 관계자는 “2000년대 초반 국내의 에스컬레이터 생산공장이 거의 모두 중국으로 이전한 것으로 안다"며 "이 때문에 2004년 이후부터는 완제품을 전량 중국에서 수입해 설치하고 있다”고 설명했다.
문제는 이처럼 기차역과 도시철도역의 에스컬레이터가 대부분 중국산으로 설치되면서 안전성은 물론 유지보수에도 적지 않은 문제점이 생기고 있다는 점이다. 지난 8일 역주행사고로 14명이 다친 수인분당선 수내역의 에스컬레이터 역시 중국산이다.
문재앙 5년동안 대한민국이 MADE IN CHINA 가 되었다.
우리가 중국에게 기대한건 싸구려 인건비로 막 부려먹을수 있는 인력과, 쓰레기 갖다버리는 쓰레기통 역할과, 우리나라의 물건과 문화상품에 환장하는 호구시장과, 물건을 저렴하게 찍어내는 공장역할 이었다.
하지만 불량품 중국은 쓰레기다. 태양광 패널도 앞으로 쓰레기 문제가 되겠지.
중국은 이제 아무 짝에도 쓸모없는 "쓰레기"다.
좌파정권 5년 동안 혈세 쳐들여서 아주 중국산으로 도배를 해놓았다. 중국몽 타령을 하더니만 나라를 통째로 갖다 바칠 심산으로 전국을 누비는 산림청ㆍ소방청 드론도 다 중국산ㅡ이미 국내 군사시설 정보는 중국 공산당 손에? ㅡ 박정희가 식목일까지 만들어서 가꾼 50년 된 숲을 까뭉개고 중국산 태양광 패널로 뒤덮어 버리고? 눈떠보니 나라가 빚더미. 70년 동안 진 빚이 680조인데 문재앙 5 년 동안 400조를 퍼써서 빚을 1080조로 만들이 놓고! 나라를 야무지게 말아먹고 먹튀!
문재앙의 중국몽은 이런 것. 온 나라가 중국산으로 가득차서 마비되고 자연스레 조선족 자치구화 하는것.
그래서 중국인들에게도 투표권을 주었던 것이다.
[단독]역주행 에스컬레이터도 중국산...전철역 점령 그들 위험한 이유
국내 기차역과 도시철도역에 설치된 에스컬레이터 대부분이 중국에서 제작해 수입된 것으로 확인됐다. 특히 코레일과 서울교통공사가 운영하는 에스컬레이터는 전량 중국산으로 조사됐다. 25일 코레일과 서울교통공사, 부산교통공
https://n.news.naver.com/article/025/0003289093
news
June 24, 2023, 10:27 p.m.
"깨시민? 그건 질병" 탈북민 예능의 그녀, 美 '우익스타' 됐다
탈북자 박연미씨, 미 진보 PC주의를 ‘북한식 집단사고’로 저격
우파 단체서 월급 받고, 극우 음모론자 의원 등과 연단에 서
NYT “정치 난민이 미국 귀화한 뒤 곧바로 정계 뛰어든 희귀한 사례”
미국에서 활동하는 탈북자 박연미(29)씨가 북한의 인권유린을 세계에 고발하던 인권운동가에서, 미 진보진영을 저격하는 보수 정치 엔터테이너이자 ‘우파 스타’로 변신했다고 뉴욕타임스(NYT)가 22일(현지시각) 보도했다.
박씨는 2007년 북한을 탈출해 중국·몽골을 거쳐 한국에 정착한 뒤 2011년 탈북민 TV토크쇼에 ‘평양의 패리스 힐튼’ 컨셉으로 출연해 유명해졌다. 2016년 미 뉴욕 소재 컬럼비아대로 유학간 뒤 2021년 미국 시민이 됐다. 2014년 영국 BBC ‘올해의 여성 100인’에 선정됐고, 탈북 경험을 담은 회고록 ‘살기 위해’ 등이 미 베스트셀러에 올랐다.
미국의 진보 진영을 북한 독재에 비유한 박연미씨의 베스트셀러 정치 서적 '시간이 남은 동안-미국에서 자유를 찾는 탈북자' 표지. 유명 보수 논객인 조던 피터슨 캐나다 토론토대 교수의 기획으로 출간됐다. /아마존
홍콩 외신기자협회에서 발언 중인 탈북 인권운동가 박연미. EPA=연합뉴스
똑똑하니까 탈북했겠지 멍청하니까 아직도 대깨문이고.
대깨문 중에 제대로 사는 새끼 본적있냐? 진심물어본다.
뇌가 붙어있다면 좌파는 할수없지.
사회를 위해 개인을 희생해야 한다? 모든 사람이 정부의 일에 관여 할필요없이 세금만 잘내면 된다?
희대의 개소리들.
좌파, 공산주의를 추종하는 놈들? 돈과 권력, 또는 여성이 목적임.
북한찬양하는 놈들은 제발 좀 북한가서 살아라. 꼴에 한국에서 호위호식하지말고.
그리고 특히 우리나라 진보는 진보가 아니다. 진보를 가장한 간첩 빨갱이들이지.
빨갱이는 무.조.건. 박멸해야 된다.
바퀴벌레보다 더럽고 바퀴벌레보다 지독한 새끼들이 애미뒤진 빨갱이 새끼들임.
공산주의를 책으로 읽으면 공산주의자가 되고 몸으로 겪으면 반공주의자가 된다고 했다. 탈북민들이 후자의 대표적인 사례.
공산주의를 몸소 겪으면 우파가 되는데 공산주의를 한낱 책이나 세뇌로 배우면 좌파가 된다. 고로 좌파들은 북한이나 중국에 교화시키러 보내는게 답이다.
저분은 책으로 자유와 진리를 배운 사람하고는 차원이 다른 똑똑한 분이다.
정직한 좌파는 똑똑하지 못하고, 똑똑한 좌파는 정직하지 못하다.
정직하고 머리 좋은 사람은 결코 좌파가 될 수 없다. - Raymond Aron
소수의 입으로 다수의 입을 막는 PC주의도 마찬가지. 개좆같은 위선주의자들.
저분이 너무나 잘 아는거다. 듣기 좋은 말과 위선적인 행동이 집단화가 되고 체계로 잡혀버리면 어떤 재앙이 일어나는지.
"깨시민? 그건 질병" 탈북민 예능의 그녀, 美 '우익스타' 됐다
미국에서 활동하는 탈북자 출신 인권운동가 박연미(29) 씨가 미국 진보진영을 저격하는 보수 정치 엔터테이너이자 ‘우파 스타’로 변신했다는 미국 뉴욕타임스(NYT) 보도가 나왔다. NYT는 22일(현지시간) ‘미 우익
https://n.news.naver.com/article/025/0003288994
“진보 PC주의는 북한식 사고” 저격...美 우파 스타 된 탈북자
탈북자 박연미씨, 미 진보 PC주의를 ‘북한식 집단사고’로 저격 우파 단체서 월급 받고, 극우 음모론자 의원 등과 연단에 서 NYT “정치 난민이 미국 귀화한 뒤 곧바로 정계 뛰어든 희귀한 사례” 미국에서 활동하는
https://n.news.naver.com/article/023/0003771504
news
June 23, 2023, 4:23 a.m.
How To Secure Nginx with Let's Encrypt on Ubuntu
Step 1. Installing Certbot
# apt-get install letsencrypt
or
# apt-get install certbot
Step 2. Confirming Nginx’s Configuration
To check, open the server block file for your domain using nano or your favorite text editor:
# sudo nano /etc/nginx/sites-available/your_domain
Find the existing server_name line. It should look like the following:
...
server_name your_domain www.your_domain;
...
If it does, exit your editor and move on to the next step.
Step 3. Obtaining an SSL Certificate
# letsencrypt certonly --webroot --webroot-path=/home/myuser3/www -d your_domain.com -d www.your_domain.com
* How to Solve Error 404 Not Found & How to Fix it
Failed authorization procedure. your_domain.com (http-01): urn:ietf:params:acme:error:unauthorized :: The client lacks sufficient authorization
:: 160.153.63.10: Invalid response from https://www.your_domain.com/.well-known/acme-challenge/ABCDE12345: 404,
www.your_domain.com (http-01): urn:ietf:params:acme:error:unauthorized :: The client lacks sufficient authorization
:: 160.153.63.10: Invalid response from https://www.your_domain.com/.well-known/acme-challenge/VWXYZ67890: 404
IMPORTANT NOTES:
- The following errors were reported by the server:
Domain: your_domain.com
Type: unauthorized
Detail: 160.153.63.10: Invalid response from
https://www.your_domain.com/.well-known/acme-challenge/ABCDE12345:
404
Domain: www.your_domain.com
Type: unauthorized
Detail: 160.153.63.10: Invalid response from
https://www.your_domain.com/.well-known/acme-challenge/VWXYZ67890:
404
To fix these errors, please make sure that your domain name was
entered correctly and the DNS A/AAAA record(s) for that domain
contain(s) the right IP address.
Edit Nginx’s Configuration
location /.well-known {
alias /root/folder/$site_name/.well-known/$1;
}
* If successful, you will receive the following output:
Saving debug log to /var/log/letsencrypt/letsencrypt.log
Plugins selected: Authenticator webroot, Installer None
Obtaining a new certificate
Performing the following challenges:
http-01 challenge for your_domain.com
http-01 challenge for www.your_domain.com
Using the webroot path /root/folder/your_domain for all unmatched domains.
Waiting for verification...
Cleaning up challenges
Running deploy-hook command: systemctl reload nginx
IMPORTANT NOTES:
- Congratulations! Your certificate and chain have been saved at:
/etc/letsencrypt/live/your_domain/fullchain.pem
Your key file has been saved at:
/etc/letsencrypt/live/your_domain/privkey.pem
Your cert will expire on 2023-09-18. To obtain a new or tweaked
version of this certificate in the future, simply run certbot
again. To non-interactively renew *all* of your certificates, run
"certbot renew"
- If you like Certbot, please consider supporting our work by:
Donating to ISRG / Let's Encrypt: https://letsencrypt.org/donate
Donating to EFF: https://eff.org/donate-le
Step 4. Edit Nginx’s Configuration
Add this block:
#ssl beginning
ssl on;
ssl_certificate /etc/letsencrypt/live/your_domain/fullchain.pem;
ssl_certificate_key /etc/letsencrypt/live/your_domain/privkey.pem;
ssl_dhparam /etc/ssl/certs/dhparam.pem;
#ssl end
Ref.
How To Secure Nginx with Let's Encrypt on Ubuntu 18.04 | DigitalOcean
New! Premium CPU-Optimized Droplets are now available. Learn more ->We're hiringBlogDocsGet SupportContact SalesProductsFeatured ProductsDropletsScalable virtual machinesKubernetesManaged Kubernetes clustersCloudwaysManaged cloud hostingApp PlatformGet ap
https://www.digitalocean.com/community/tutorials/how-to-secure-nginx-with-let-s-encrypt-on-ubuntu-18-04
Let’s Encrypt: How to Automatically Restart Nginx With Certbot – Arnon on Technology
close search homeHome chatContact Me Categories labelGenerallabelHow-To GuideslabelMetalabelNewslabelOp-EdlabelServer Logs Explained Archives folderDecember 2021 folderJune 2021 folderMarch 2021 folderJanuary 2021 folderDecember 2020 folderOctober 2020 fo
https://blog.arnonerba.com/2019/01/lets-encrypt-how-to-automatically-restart-nginx-with-certbot
[Ubuntu] Let’s Encrypt 를 사용하여 무료로 SSL 사이트를 구축하는 방법
웹은 계속 발전하고 있으며, 여러 새로운 기술이 끊임 없이 등장하고 있다. 이 글에서는 웹 기술 중 하나인 SSL (Secure Socket Layer) 에 대해서 이야기 해 보고자 한다. < 그림 : OSI Model 에서 SSL 의 위치 > 정확히 말해서 SSL 은 전송계층과 (Transport Layer) 응용계층 (App…
https://blog.lael.be/post/5107
server
June 22, 2023, 11:33 p.m.
How to Draw 4-Leaf Clover Using a Turtle in Python
This graphics system is a great way for beginners to conquer both Python and 2D drawing.
Code:
import turtle as t
def draw_leaf(color):
t.begin_fill()
t.color(color)
t.left(50)
t.forward(60)
t.circle(25, 190)
t.right(100)
t.circle(25, 180)
t.forward(50)
t.left(50)
t.end_fill()
def draw_stem(degree, length, color):
t.rt(degree)
t.pensize(5)
t.color(color)
t.fd(length)
t.back(length)
t.lt(degree)
n = 4
color = 'green'
t.setup(430, 430)
draw_stem(90, 150, color)
t.pensize(2)
for i in range(n):
draw_leaf(color)
t.home()
t.lt((360 / n) * (i + 1))
t.pu()
t.mainloop()
Result:
python
June 22, 2023, 8:29 p.m.
Spring Boot @WebServlet Annotation Example
TestServlet.java
package com.blood.money.test.servlet;
import java.io.IOException;
import java.io.PrintWriter;
import javax.servlet.ServletException;
import javax.servlet.annotation.WebServlet;
import javax.servlet.http.HttpServlet;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;
@WebServlet(
name = "Example",
description = "Example Servlet",
urlPatterns = {"/Example"}
)
public class TestServlet extends HttpServlet {
/**
*
*/
private static final long serialVersionUID = 1L;
@Override
protected void doGet(HttpServletRequest request,
HttpServletResponse response) throws ServletException, IOException {
PrintWriter writer = response.getWriter();
String html = "<html>";
html += "<body>";
html += "<div>THIS IS NOT A TEST</div>";
html += "</body>";
html += "</html>";
writer.println(html);
}
}
How do I get Spring Boot to auto-load all @WebServlet annotated servlets and honor their url mappings?
Add @ServletComponentScan in your bootstrap class.
such as
@SpringBootApplication
@ServletComponentScan
public class BadApplication {
public static void main(String[] args) {
SpringApplication.run(BadApplication.class, args);
}
}
java
June 22, 2023, 7:56 p.m.
文정부가 법으로 대못… 태양광, 앞으로 더 많이 짓게 된다
문제가 아무리 많아도 태양광을 계속 늘려야 하는
개같은 탄소중립기본법은 무조건 없애야 한다.
15일 오후 충남 태안 안면도 중장리 폐염전 부지에 국내 최대 태양광발전단지가 조성되고 있는 가운데 한 주민이 공사현장을 바라보고 있다. /신현종 기자
지난 13일 감사원의 신재생에너지에 대한 감사 결과에서 전 국민을 가장 충격에 빠뜨린 것은 공무원이 권한을 남용하고 민간 사업자와 결탁해 비리를 저지르고, 업자들은 눈먼 보조금을 챙기기 위해 달려든 ‘태양광 복마전’이었다. 이런 비리의 원인은 문재인 정부의 ‘태양광 과속(過速)’이 지목된다.
더 큰 문제는 지난 정부의 태양광 과속이 현 정부에서도 법령 개정 없이는 속도 조절이 불가능하다는 점이다. 현행법과 이에 근거한 각종 에너지 계획에 따르면 현 정부에서 연평균 태양광 보급 규모는 문재인 정부의 1.5배에 달하게 된다. 국회를 장악하며 밀어붙여 만든 지난 정부의 ‘신재생 대못 법’이 워낙 넓고, 깊숙하게 박힌 탓에 태양광 과속이 폭주 수준으로 속도를 더 높여야 하는 아이러니한 상황이 발생한 것이다. 처벌을 염려해 법과 규정이 바뀌지 않으면 좀처럼 움직이지 않는 공무원 사회의 특성을 고려할 때 현재 법령 아래에서는 제대로 된 에너지 정책 추진이 불가능하다는 지적이 나온다.
안면도 폐염전 부지에 들어선 태양광 단지 - 15일 오후 충남 태안 안면도 폐염전 부지에 들어선 태양광 발전 단지. 민간 시행사인 태안안면클린에너지가 이 일대 부지 297만㎡에 국내 최대 발전 용량인 306㎿(메가와트) 규모의 태양광 발전소를 조성하는 사업이다. 하지만 부지의 3분의 1인 초지에는 태양광 시설이 들어설 수 없는데도 산업부 과장과 사업자가 부당하게 용도 변경을 추진한 사실이 감사원 감사 결과 드러났다. /태안=신현종 기자
전세계적으로 잘나가던 원전 월성1호기를 조작하여 폐쇄시킨 근거가 후쿠시마 원전 방사능 유출.
한마디로 완전 말도 안되는 헛짓거리 한거다.
경제성 조작으로 원전을 강제 폐쇄하여 흑자를 내던 공기업 한전은 적자로 돌아섰고 모든 부담은 국민들에게 전가했다.
잘나가던 우리나라는 원전중단으로 만성적인 전기부족 국가가 되었다.
부족한 전기는 중국, 소련에서 수입한다는 황당한 생각을 하고 있는게 문가놈임. 그후 태양광이란 희대의 이권 나눠먹기가 대한민국을 덮치며 산천초목을 민둥산으로 만들고 중국산 태양광패널이 새똥받이로 전락하는 어처구니없는 일이 벌어졌다. 문재앙이 갈곳은 양산이 아니다. 평생 깜방이다.
문재앙정권 지난5년을 겪어보니 한마디로 지옥같은 시간들이었다. 늘 국민들을 속이고 이간질 편가르기가 일상이 되었다. 무능한 외교 안보 교육 경제 부동산 정책은 대한민국을 잃어버린 5년을 만들었다. 탈원전으로 폭등하는 전기요금 때문에 극한의 추위와 더위를 견뎌야 하는 극심한 생활고를 겪었다. 좌파가 집권하면 나라가 망한다더니 현실이 됐다.
원전 수출길도 막았다. 다행히 정권이 바뀌어 탈원전 기조를 원점으로 되돌리고 원전 수출길이 열렸다니. 그나마 다행이다. 보수가 집권하면 국가100년 대계를 설계하고 좌파가 집권하면 선진국을 구석기 시대로 만드는 신묘한 능력이 있다는게 그저 놀랍다. 태양광으로 우덜식 나눠먹기 좌파 카르텔 법대로 처리해야한다.
근데 아무리 생각해도 저거 일부러 그런거다. 나라를 최대한 망쳐서 북괴놈들 수준으로 밑바닥까지 떨궈놔야 나중에 적화통일이 쉽거든.
이나라에 남아있는 좌좀 간첩무리들을 하루빨리 청소해야 하는데 대처가 너무 안일한 것 같아서 걱정이 이만저만이 아니다.
Ref.
文정부가 법으로 대못… 태양광, 앞으로 더 많이 짓게 된다
탄소중립기본법 바꾸지 않으면 문제 있어도 태양광 계속 늘려야 지난 13일 감사원의 신재생에너지에 대한 감사 결과에서 전 국민을 가장 충격에 빠뜨린 것은 공무원이 권한을 남용하고 민간 사업자와 결탁해 비리를 저지르고,
https://n.news.naver.com/article/023/0003770069
news
June 15, 2023, 10:36 p.m.
ASP.NET Error Handling
< Sample Code 1 : / >
Server Error in '/' Application.
Conversion from string "" to type 'Decimal' is not valid.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.InvalidCastException: Conversion from string "" to type 'Decimal' is not valid.
Source Error:
Line 91: city = reader_ull("City").ToString()
Line 92: zip = reader_ull("Zip").ToString()
Line 93: lat = reader_ull("Latitude").ToString()
Line 94: lng = reader_ull("Longitude").ToString()
Line 95:
Source File: D:\home\site\wwwroot\include\functions.aspx Line: 93
Stack Trace:
[InvalidCastException: Conversion from string "" to type 'Decimal' is not valid.]
Microsoft.VisualBasic.CompilerServices.Conversions.ToDecimal(String Value, NumberFormatInfo NumberFormat) +254
Microsoft.VisualBasic.CompilerServices.Conversions.ToDecimal(String Value) +6
ASP.default_aspx.GetLocation() in D:\home\site\wwwroot\include\functions.aspx:93
ASP.default_aspx.__Render__control1(HtmlTextWriter __w, Control parameterContainer) in D:\home\site\wwwroot\include\head1.aspx:12
System.Web.UI.Control.RenderChildrenInternal(HtmlTextWriter writer, ICollection children) +256
System.Web.UI.Control.RenderChildren(HtmlTextWriter writer) +19
System.Web.UI.Page.Render(HtmlTextWriter writer) +29
System.Web.UI.Control.RenderControlInternal(HtmlTextWriter writer, ControlAdapter adapter) +27
System.Web.UI.Control.RenderControl(HtmlTextWriter writer, ControlAdapter adapter) +99
System.Web.UI.Control.RenderControl(HtmlTextWriter writer) +25
System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +1266
Version Information: Microsoft .NET Framework Version:2.0.50727.8964; ASP.NET Version:2.0.50727.8962
< Sample Code 2 : /include/functions.aspx >
Server Error in '/' Application.
Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.
Compiler Error Message: BC30451: Name 'userLat' is not declared.
Source Error:
Line 34: If Not latCookie Is Nothing And Not lngCookie Is Nothing And Request.Querystring("nolocation") <> "nolocation"
Line 35: Try
Line 36: userLat = latCookie.Value
Line 37: userLng = lngCookie.Value
Line 38: userLocation = Request.Cookies("Location").Value.ToString().Replace("_", " ")
Source File: D:\home\site\wwwroot\include\functions.aspx Line: 36
Compiler Warning Messages:
Warning: BC42104: Variable 'ipFinal' is used before it has been assigned a value. A null reference exception could result at runtime.
Source Error:
D:\home\site\wwwroot\include\functions.aspx
Line 13: End If
Line 14:
Line 15: If ipFinal = Nothing
Line 16: ipFinal = context.Request.ServerVariables("REMOTE_ADDR")
Line 17: End If
Warning: BC42024: Unused local variable: 'R'.
Source Error:
D:\home\site\wwwroot\include\functions.aspx
Line 432:
Line 433:Function stripHtml(ByVal Y As String) As String
Line 434: Dim R As RegEx
Line 435:
Line 436: If Y = Nothing Then Return("")
Warning: BC42025: Access of shared member, constant member, enum member or nested type through an instance; qualifying expression will not be evaluated.
Source Error:
D:\home\site\wwwroot\include\functions.aspx
Line 436: If Y = Nothing Then Return("")
Line 437:
Line 438: Y=R.Replace(Y, "<[^>]*(>|$)", "")
Line 439:
Line 440: Return(Y)
Warning: BC42021: Function without an 'As' clause; return type of Object assumed.
Source Error:
D:\home\site\wwwroot\include\functions.aspx
Line 441:End Function
Line 442:
Line 443:Function getStateSmall(ByVal strState As String)
Line 444: Select Case (strState & "").ToLower()
Line 445: Case "alabama"
Warning: BC42021: Function without an 'As' clause; return type of Object assumed.
Source Error:
D:\home\site\wwwroot\include\functions.aspx
Line 578:End Function
Line 579:
Line 580:Function getStatePath(ByVal strState As String)
Line 581: Select Case (strState & "").ToUpper()
Line 582: Case "AL"
Warning: BC42021: Function without an 'As' clause; return type of Object assumed.
Source Error:
D:\home\site\wwwroot\include\functions.aspx
Line 715:End Function
Line 716:
Line 717:Function getStateLarge(ByVal strState As String)
Line 718: Select Case (strState & "").ToUpper()
Line 719: Case "AL"
Show Detailed Compiler Output:
D:\Windows\system32> "D:\Windows\Microsoft.NET\Framework\v3.5\vbc.exe" /t:library /utf8output /R:"D:\Windows\assembly\GAC_MSIL\System.ServiceModel\3.0.0.0__b77a5c561934e089\System.ServiceModel.dll" /R:"D:\Windows\assembly\GAC_MSIL\System.Web.Mobile\2.0.0.0__b03f5f7f11d50a3a\System.Web.Mobile.dll" /R:"D:\Windows\assembly\GAC_MSIL\System.Web.Extensions\3.5.0.0__31bf3856ad364e35\System.Web.Extensions.dll" /R:"D:\Windows\assembly\GAC_32\System.Data\2.0.0.0__b77a5c561934e089\System.Data.dll" /R:"D:\local\Temporary ASP.NET Files\root\f32c0fa1\240b01cd\assembly\dl3\5c15a322\fc3a3152_020dd201\ICSharpCode.SharpZipLib.DLL" /R:"D:\Windows\assembly\GAC_MSIL\System.Data.DataSetExtensions\3.5.0.0__b77a5c561934e089\System.Data.DataSetExtensions.dll" /R:"D:\Windows\assembly\GAC_MSIL\System.Core\3.5.0.0__b77a5c561934e089\System.Core.dll" /R:"D:\local\Temporary ASP.NET Files\root\f32c0fa1\240b01cd\assembly\dl3\64a3753b\6fb7dd7d_0facd301\Yahoo.Yui.Compressor.DLL" /R:"D:\Windows\assembly\GAC_MSIL\System.Xml.Linq\3.5.0.0__b77a5c561934e089\System.Xml.Linq.dll" /R:"D:\Windows\assembly\GAC_MSIL\System.Drawing\2.0.0.0__b03f5f7f11d50a3a\System.Drawing.dll" /R:"D:\local\Temporary ASP.NET Files\root\f32c0fa1\240b01cd\assembly\dl3\e3a49068\6ab1597e_0facd301\EcmaScript.NET.DLL" /R:"D:\Windows\assembly\GAC_32\System.Web\2.0.0.0__b03f5f7f11d50a3a\System.Web.dll" /R:"D:\Windows\assembly\GAC_32\System.EnterpriseServices\2.0.0.0__b03f5f7f11d50a3a\System.EnterpriseServices.dll" /R:"D:\Windows\assembly\GAC_MSIL\System.Runtime.Serialization\3.0.0.0__b77a5c561934e089\System.Runtime.Serialization.dll" /R:"D:\local\Temporary ASP.NET Files\root\f32c0fa1\240b01cd\assembly\dl3\a6609ab6\d713f658_479cd301\Newtonsoft.Json.DLL" /R:"D:\Windows\assembly\GAC_MSIL\System.Web.Services\2.0.0.0__b03f5f7f11d50a3a\System.Web.Services.dll" /R:"D:\Windows\assembly\GAC_MSIL\System.ServiceModel.Web\3.5.0.0__31bf3856ad364e35\System.ServiceModel.Web.dll" /R:"D:\Windows\assembly\GAC_MSIL\System.Configuration\2.0.0.0__b03f5f7f11d50a3a\System.Configuration.dll" /R:"D:\local\Temporary ASP.NET Files\root\f32c0fa1\240b01cd\App_global.asax.zpcwrfkc.dll" /R:"D:\Windows\assembly\GAC_MSIL\System\2.0.0.0__b77a5c561934e089\System.dll" /R:"D:\Windows\assembly\GAC_MSIL\System.IdentityModel\3.0.0.0__b77a5c561934e089\System.IdentityModel.dll" /R:"D:\Windows\assembly\GAC_MSIL\System.WorkflowServices\3.5.0.0__31bf3856ad364e35\System.WorkflowServices.dll" /R:"D:\Windows\assembly\GAC_MSIL\System.Web.Routing\3.5.0.0__31bf3856ad364e35\System.Web.Routing.dll" /R:"D:\Windows\assembly\GAC_MSIL\System.Xml\2.0.0.0__b77a5c561934e089\System.Xml.dll" /out:"D:\local\Temporary ASP.NET Files\root\f32c0fa1\240b01cd\App_Web_functions.aspx.c8a18792.nv4jgu4j.dll" /D:DEBUG=1 /debug+ /define:_MYTYPE=\"Web\" /imports:Microsoft.VisualBasic,System,System.Collections,System.Collections.Generic,System.Collections.Specialized,System.Configuration,System.Text,System.Text.RegularExpressions,System.Linq,System.Xml.Linq,System.Web,System.Web.Caching,System.Web.SessionState,System.Web.Security,System.Web.Profile,System.Web.UI,System.Web.UI.WebControls,System.Web.UI.WebControls.WebParts,System.Web.UI.HtmlControls /warnaserror- /optionInfer+ "D:\local\Temporary ASP.NET Files\root\f32c0fa1\240b01cd\App_Web_functions.aspx.c8a18792.nv4jgu4j.0.vb" "D:\local\Temporary ASP.NET Files\root\f32c0fa1\240b01cd\App_Web_functions.aspx.c8a18792.nv4jgu4j.1.vb"
Microsoft (R) Visual Basic Compiler version 9.0.30729.8763
Copyright (c) Microsoft Corporation. All rights reserved.
D:\home\site\wwwroot\include\functions.aspx(15) : warning BC42104: Variable 'ipFinal' is used before it has been assigned a value. A null reference exception could result at runtime.
If ipFinal = Nothing
~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(36) : error BC30451: Name 'userLat' is not declared.
userLat = latCookie.Value
~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(37) : error BC30451: Name 'userLng' is not declared.
userLng = lngCookie.Value
~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(38) : error BC30451: Name 'userLocation' is not declared.
userLocation = Request.Cookies("Location").Value.ToString().Replace("_", " ")
~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(72) : error BC30002: Type 'SqlConnection' is not defined.
Dim conn_ull As New SqlConnection(Application("ConnectionString"))
~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(73) : error BC30002: Type 'SqlCommand' is not defined.
Dim cmd_ull As New SqlCommand()
~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(84) : error BC30002: Type 'SqlDataReader' is not defined.
Dim reader_ull As SqlDataReader = cmd_ull.ExecuteReader()
~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(119) : error BC30451: Name 'userLat' is not declared.
userLat = lat
~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(123) : error BC30451: Name 'userLng' is not declared.
userLng = lng
~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(127) : error BC30451: Name 'userLocation' is not declared.
userLocation = location
~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(140) : error BC30451: Name 'userLocation' is not declared.
If userLocation = ""
~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(141) : error BC30451: Name 'userLocation' is not declared.
userLocation = "Edit Location"
~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(143) : error BC30451: Name 'userLocation' is not declared.
If userLocation.IndexOf(",") > -1
~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(144) : error BC30451: Name 'userLocationCity' is not declared.
userLocationCity = userLocation.SubString(0, userLocation.IndexOf(","))
~~~~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(144) : error BC30451: Name 'userLocation' is not declared.
userLocationCity = userLocation.SubString(0, userLocation.IndexOf(","))
~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(144) : error BC30451: Name 'userLocation' is not declared.
userLocationCity = userLocation.SubString(0, userLocation.IndexOf(","))
~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(145) : error BC30451: Name 'userLocationState' is not declared.
userLocationState = userLocation.SubString(userLocation.IndexOf(","))
~~~~~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(145) : error BC30451: Name 'userLocation' is not declared.
userLocationState = userLocation.SubString(userLocation.IndexOf(","))
~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(145) : error BC30451: Name 'userLocation' is not declared.
userLocationState = userLocation.SubString(userLocation.IndexOf(","))
~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(146) : error BC30451: Name 'userLocationState' is not declared.
userLocationState = userLocationState.Trim(",")
~~~~~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(146) : error BC30451: Name 'userLocationState' is not declared.
userLocationState = userLocationState.Trim(",")
~~~~~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(147) : error BC30451: Name 'userLocationState' is not declared.
userLocationState = userLocationState.Trim()
~~~~~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(147) : error BC30451: Name 'userLocationState' is not declared.
userLocationState = userLocationState.Trim()
~~~~~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(188) : error BC30002: Type 'SqlConnection' is not defined.
Dim objConn_ull As New SqlConnection(Application("ConnectionStringReadOnly"))
~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(189) : error BC30002: Type 'SqlCommand' is not defined.
Dim objCmd_ull As New SqlCommand(strSQL_ull, objConn_ull)
~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(193) : error BC30002: Type 'SqlDataReader' is not defined.
Dim objR_ull As SqlDataReader=objCmd_ull.ExecuteReader()
~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(391) : error BC30002: Type 'SqlConnection' is not defined.
Dim objConn As New SqlConnection(Application("ConnectionString"))
~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(392) : error BC30002: Type 'SqlCommand' is not defined.
Dim objCmd As New SqlCommand(strQuery, objConn)
~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(408) : error BC30002: Type 'SqlConnection' is not defined.
Dim objConn As New SqlConnection(Application("ConnectionString"))
~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(409) : error BC30002: Type 'SqlCommand' is not defined.
Dim objCmd As New SqlCommand(strQuery, objConn)
~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(434) : warning BC42024: Unused local variable: 'R'.
Dim R As RegEx
~
D:\home\site\wwwroot\include\functions.aspx(438) : warning BC42025: Access of shared member, constant member, enum member or nested type through an instance; qualifying expression will not be evaluated.
Y=R.Replace(Y, "<[^>]*(>|$)", "")
~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(443) : warning BC42021: Function without an 'As' clause; return type of Object assumed.
Function getStateSmall(ByVal strState As String)
~~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(580) : warning BC42021: Function without an 'As' clause; return type of Object assumed.
Function getStatePath(ByVal strState As String)
~~~~~~~~~~~~
D:\home\site\wwwroot\include\functions.aspx(717) : warning BC42021: Function without an 'As' clause; return type of Object assumed.
Function getStateLarge(ByVal strState As String)
Show Complete Compilation Source:
Line 1: #ExternalChecksum("D:\home\site\wwwroot\include\functions.aspx","{406ea660-64cf-4c82-b6f0-42d48172a799}","3823AE249D40949B8E2B4709D23B67DB")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:2.0.50727.8964
Line 6: '
Line 7: ' Changes to this file may cause incorrect behavior and will be lost if
Line 8: ' the code is regenerated.
Line 9: ' </auto-generated>
Line 10: '------------------------------------------------------------------------------
Line 11:
Line 12: Option Strict Off
Line 13: Option Explicit On
Line 14:
Line 15: Imports Microsoft.VisualBasic
Line 16: Imports System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Generic
Line 19: Imports System.Collections.Specialized
Line 20: Imports System.Configuration
Line 21: Imports System.Linq
Line 22: Imports System.Security.Cryptography
Line 23: Imports System.Text
Line 24: Imports System.Text.RegularExpressions
Line 25: Imports System.Web
Line 26: Imports System.Web.Caching
Line 27: Imports System.Web.Profile
Line 28: Imports System.Web.Security
Line 29: Imports System.Web.SessionState
Line 30: Imports System.Web.UI
Line 31: Imports System.Web.UI.HtmlControls
Line 32: Imports System.Web.UI.WebControls
Line 33: Imports System.Web.UI.WebControls.WebParts
Line 34: Imports System.Xml.Linq
Line 35:
Line 36: Namespace ASP
Line 37:
Line 38: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 39: Public Class include_functions_aspx
Line 40: Inherits Global.System.Web.UI.Page
Line 41: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 42:
Line 43: Private Shared __initialized As Boolean
Line 44:
Line 45: Private Shared __fileDependencies As Object
Line 46:
Line 47:
Line 48: #ExternalSource("D:\home\site\wwwroot\include\functions.aspx",2)
Line 49:
Line 50: Dim geoIpTable As String = "B"
Line 51:
Line 52: Function getIpAddress() As String
Line 53: Dim context As System.Web.HttpContext = System.Web.HttpContext.Current
Line 54: Dim tmpIp As String = context.Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Line 55: Dim ipFinal As String
Line 56:
Line 57: If tmpIp <> Nothing
Line 58: Dim ipArray As String() = tmpIp.Split(",")
Line 59: ipFinal = (ipArray(ipArray.Length-1) & "").Replace("'", "''").Trim()
Line 60: End If
Line 61:
Line 62: If ipFinal = Nothing
Line 63: ipFinal = context.Request.ServerVariables("REMOTE_ADDR")
Line 64: End If
Line 65:
Line 66: If ipFinal = Nothing
Line 67: ipFinal = HttpContext.Current.Request.UserHostAddress
Line 68: End If
Line 69:
Line 70: If ipFinal.IndexOf(":") > -1
Line 71: ipFinal = ipFinal.SubString(0, ipFinal.IndexOf(":"))
Line 72: End If
Line 73:
Line 74: Return ipFinal
Line 75: End Function
Line 76:
Line 77: Sub GetLocation()
Line 78: Dim latCookie As HttpCookie=Request.Cookies("Latitude")
Line 79: Dim lngCookie As HttpCookie=Request.Cookies("Longitude")
Line 80:
Line 81: If Not latCookie Is Nothing And Not lngCookie Is Nothing And Request.Querystring("nolocation") <> "nolocation"
Line 82: Try
Line 83: userLat = latCookie.Value
Line 84: userLng = lngCookie.Value
Line 85: userLocation = Request.Cookies("Location").Value.ToString().Replace("_", " ")
Line 86: Catch
Line 87:
Line 88: End Try
Line 89: ElseIf IsBot() = False And Request.Querystring("nolocation") <> "nolocation"
Line 90: Dim ip As String = getIpAddress() ''//Request.ServerVariables("REMOTE_ADDR")
Line 91: If ip.IndexOf("192.168.1.") > -1 Then ip = "47.21.19.98"
Line 92: Dim ipArray() As String = ip.Split(".")
Line 93: Dim locationValue As Int64, z As Int32, invalidLocation As Boolean
Line 94:
Line 95: For Each i As String In ipArray
Line 96: If Not IsNumeric(i)
Line 97: Exit For
Line 98: End If
Line 99:
Line 100: z += 1
Line 101:
Line 102: Select Case z
Line 103: Case 1
Line 104: locationValue = Convert.ToInt64(i) * 16777216
Line 105: Case 2
Line 106: locationValue += Convert.ToInt64(i) * 65536
Line 107: Case 3
Line 108: ''//locationValue += Convert.ToInt64(i) * 97
Line 109: locationValue += Convert.ToInt64(i) * 256
Line 110: Case 4
Line 111: locationValue += Convert.ToInt64(i)
Line 112: Case Else
Line 113: invalidLocation = True
Line 114: Exit For
Line 115: End Select
Line 116: Next
Line 117:
Line 118: If locationValue > 0 And invalidLocation = False
Line 119: Dim conn_ull As New SqlConnection(Application("ConnectionString"))
Line 120: Dim cmd_ull As New SqlCommand()
Line 121:
Line 122: cmd_ull.CommandText = "GetGeoIP2Location"
Line 123: cmd_ull.CommandType = System.Data.CommandType.StoredProcedure
Line 124: cmd_ull.Connection = conn_ull
Line 125:
Line 126: cmd_ull.Parameters.Add("@LocationValue", System.Data.SqlDbType.BigInt)
Line 127: cmd_ull.Parameters("@LocationValue").Value = locationValue
Line 128:
Line 129: conn_ull.Open()
Line 130:
Line 131: Dim reader_ull As SqlDataReader = cmd_ull.ExecuteReader()
Line 132:
Line 133: If reader_ull.Read()
Line 134: Dim country, region, city, zip, location As String, lat, lng As Decimal
Line 135:
Line 136: country = reader_ull("Country").ToString()
Line 137: region = reader_ull("Region").ToString()
Line 138: city = reader_ull("City").ToString()
Line 139: zip = reader_ull("Zip").ToString()
Line 140: lat = reader_ull("Latitude").ToString()
Line 141: lng = reader_ull("Longitude").ToString()
Line 142:
Line 143: If lat <> 0 And lng <> 0
Line 144: If country = "United States" Or country = "Canada"
Line 145: If region <> "" And city <> ""
Line 146: location = city & ", " & region
Line 147: ElseIf region <> ""
Line 148: location = region & ", " & country
Line 149: End If
Line 150:
Line 151: lat = reader_ull("Latitude")
Line 152: lng = reader_ull("Longitude")
Line 153: Else
Line 154: If city <> "" And country <> ""
Line 155: If region <> ""
Line 156: location = city & ", " & region & ", " & country
Line 157: Else
Line 158: location = city & ", " & country
Line 159: End If
Line 160: End If
Line 161: End If
Line 162:
Line 163: If location <> ""
Line 164: Response.Cookies("Latitude").Expires=Today.AddDays(40)
Line 165: Response.Cookies("Latitude").Value=lat
Line 166: userLat = lat
Line 167:
Line 168: Response.Cookies("Longitude").Expires=Today.AddDays(40)
Line 169: Response.Cookies("Longitude").Value=lng
Line 170: userLng = lng
Line 171:
Line 172: Response.Cookies("Location").Expires=Today.AddDays(40)
Line 173: Response.Cookies("Location").Value=location.Replace(" ", "_")
Line 174: userLocation = location
Line 175: End If
Line 176: End If
Line 177: End If
Line 178:
Line 179: reader_ull.Close() : cmd_ull.Dispose() : conn_ull.Close() : conn_ull.Dispose()
Line 180: End If
Line 181: End If
Line 182:
Line 183: ''//userLat = 38.631034
Line 184: ''//userLng = -90.1931066
Line 185: ''//userLocation = "Saint Louis, MO"
Line 186:
Line 187: If userLocation = ""
Line 188: userLocation = "Edit Location"
Line 189: Else
Line 190: If userLocation.IndexOf(",") > -1
Line 191: userLocationCity = userLocation.SubString(0, userLocation.IndexOf(","))
Line 192: userLocationState = userLocation.SubString(userLocation.IndexOf(","))
Line 193: userLocationState = userLocationState.Trim(",")
Line 194: userLocationState = userLocationState.Trim()
Line 195: End If
Line 196: End If
Line 197: End Sub
Line 198:
Line 199: Function GetLocationByIp(ByVal ip As String) As String
Line 200: Dim location As String = ""
Line 201:
Line 202: If IsBot() = False
Line 203: Dim ipArray() As String = ip.Split(".")
Line 204: Dim locationValue As Int64, z As Int32, invalidLocation As Boolean
Line 205:
Line 206: For Each i As String In ipArray
Line 207: If Not IsNumeric(i)
Line 208: Exit For
Line 209: End If
Line 210:
Line 211: z += 1
Line 212:
Line 213: Select Case z
Line 214: Case 1
Line 215: locationValue = Convert.ToInt64(i) * 16777216
Line 216: Case 2
Line 217: locationValue += Convert.ToInt64(i) * 65536
Line 218: Case 3
Line 219: ''//locationValue += Convert.ToInt64(i) * 97
Line 220: locationValue += Convert.ToInt64(i) * 256
Line 221: Case 4
Line 222: locationValue += Convert.ToInt64(i)
Line 223: Case Else
Line 224: invalidLocation = True
Line 225: Exit For
Line 226: End Select
Line 227: Next
Line 228:
Line 229: If locationValue > 0 And invalidLocation = False
Line 230: Dim strSQL_ull As String="SELECT L.CountryName AS Country, L.SubDivision1IsoCode AS Region, L.CityName AS City, B.PostalCode AS Zip, B.Latitude, B.Longitude " & _
Line 231: "FROM GeoIP2Blocks B " & _
Line 232: "INNER JOIN GeoIP2Locations L ON L.GeoNameID = B.GeoNameID " & _
Line 233: "WHERE (" & locationValue & " BETWEEN B.NetworkStartInteger AND B.NetworkLastInteger) AND (L.CityName <> '')"
Line 234:
Line 235: Dim objConn_ull As New SqlConnection(Application("ConnectionStringReadOnly"))
Line 236: Dim objCmd_ull As New SqlCommand(strSQL_ull, objConn_ull)
Line 237:
Line 238: objConn_ull.Open()
Line 239:
Line 240: Dim objR_ull As SqlDataReader=objCmd_ull.ExecuteReader()
Line 241:
Line 242: If objR_ull.Read()
Line 243: Dim country, region, city, zip As String, lat, lng As Decimal
Line 244:
Line 245: country = objR_ull("Country").ToString()
Line 246: region = objR_ull("Region").ToString()
Line 247: city = objR_ull("City").ToString()
Line 248: zip = objR_ull("Zip").ToString()
Line 249: lat = objR_ull("Latitude").ToString()
Line 250: lng = objR_ull("Longitude").ToString()
Line 251:
Line 252: If lat <> 0 And lng <> 0
Line 253: If country = "United States" Or country = "Canada"
Line 254: If region <> "" And city <> ""
Line 255: location = city & ", " & region
Line 256: ElseIf region <> ""
Line 257: location = region & ", " & country
Line 258: End If
Line 259:
Line 260: lat = objR_ull("Latitude")
Line 261: lng = objR_ull("Longitude")
Line 262: Else
Line 263: If city <> "" And country <> ""
Line 264: If region <> ""
Line 265: location = city & ", " & region & ", " & country
Line 266: Else
Line 267: location = city & ", " & country
Line 268: End If
Line 269: End If
Line 270: End If
Line 271: End If
Line 272: End If
Line 273:
Line 274: objR_ull.Close() : objCmd_ull.Dispose() : objConn_ull.Close() : objConn_ull.Dispose()
Line 275: End If
Line 276: End If
Line 277:
Line 278: Return(location)
Line 279: End Function
Line 280:
Line 281: Function reviewStars(ByVal score As Single) As String
Line 282: Select Case score
Line 283: Case >= 4.75
Line 284: Return("<i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star""></i>")
Line 285: Case >= 4.25
Line 286: Return("<i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star-half-o""></i>")
Line 287: Case >= 3.75
Line 288: Return("<i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star-o""></i>")
Line 289: Case >= 3.25
Line 290: Return("<i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star-half-o""></i><i class=""fa fa-star-o""></i>")
Line 291: Case >= 2.75
Line 292: Return("<i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i>")
Line 293: Case >= 2.25
Line 294: Return("<i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star-half-o""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i>")
Line 295: Case >= 1.75
Line 296: Return("<i class=""fa fa-star""></i><i class=""fa fa-star""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i>")
Line 297: Case >= 1.25
Line 298: Return("<i class=""fa fa-star""></i><i class=""fa fa-star-half-o""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i>")
Line 299: Case >= .75
Line 300: Return("<i class=""fa fa-star""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i>")
Line 301: Case >= .25
Line 302: Return("<i class=""fa fa-star-half-o""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i>")
Line 303: Case Else
Line 304: Return("<i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i><i class=""fa fa-star-o""></i>")
Line 305: End Select
Line 306: End Function
Line 307:
Line 308: Function IsKnownBot() As Boolean
Line 309: Dim strRobotsArray As String() = {"bingbot", "googlebot", "uptimerobot", "blexbot", "testomatobot", "yandex", "baidu", "pingoscope", "mj12bot", "exabot", _
Line 310: "omgilibot", "dotbot", "ccbot", "ahrefsbot", "archive.org", "special_archiver", "slurp", "linkdexbot", "seznambot", "psbot", "seokicks", "yeti", _
Line 311: "coccoc", "metajobbot", "superarama", "changedetection", "msnbot", "domainappender", "lipperhey", "vagabondo", "woko", "thumbsniper", "mail.ru", _
Line 312: "ichiro", "sogou", "gigablast", "360spider", "smtbot", "obot", "netsteer", "proximic", "zumbot", "sitedomain-bot", "mojeek", "searchmetrics", _
Line 313: "genieo", "sentibot", "openlinkprofiler", "james bot", "spinn3r", "wesee", "wevika", "semrush", "applebot", "daumoa", "deadlinkchecker", _
Line 314: "tools4noobs", "web-sniffer", "motoricerca", "robots_tester", "promotion_tools", "whatsmyip", "meanpathbot", "secretsearchenginelabs", "gimme", _
Line 315: "yooz", "grapeshot", "w3dt", "wotbox", "voltron", "expertsearch", "orangebot", "voilabot", "orangecrawler", "mindup", "stq_bot", "blekkobot", _
Line 316: "seodiver", "riddler", "speedy spider", "sputnikbot", "cliqzbot", "nalezen", "seocheck", "tagseobot", "aihit", "chlooe", "coincorner", "netestate", _
Line 317: "producto", "flipboard", "steeler", "kraken", "rogerbot", "showyou", "bitlybot", "gtmetrix", "icjobs", "comodo", "wi job", "megaindex", "jyxobot", _
Line 318: "linkapedia", "zeerch", "xovibot", "idmarch", "bad-neighborhood", "antbot", "semanticscholar", "linkmarket", "rankflex", "bdcbot", "wbsrch", _
Line 319: "link valet", "page valet", "dlcbot", "online domain tools", "kumkie", "crawler4j", "bcklinks", "web-sniffer", "404 checker", "lcc", "heritrix", _
Line 320: "yacybot", "alexabot", "alexa site audit", "heartrails", "geturlinfo", "facebookexternalhit", "aboundex", "pagespeed", "yioop", "govid.mobi", _
Line 321: "panscient", "duckduckgo", "duckduckbot", "netcraftsurvey", "plukkie", "backlinkcrawler", "woriobot", "semantic-visions", "wbsearchbot", _
Line 322: "gluten free crawler", "turnitinbot", "umbot-fc", "umbot-ln", "linktiger", "spiderling", "2bone_link", "powermapper", "brokenlinkcheck", "zoominfo", _
Line 323: "nextgensearchbot", "bubing", "implisensebot", "experibot", "uaslinkchecker", "thumbshots", "apercite", "webmastercoffee", "waseda", "exactseek", _
Line 324: "007ac9", "tweetmemebot", "impressumscrawler", "vorboss", "seograph", "safesearch microdata", "safesearch.avira.com", "mixbot", "parsijoo", _
Line 325: "easou", "r6_comment", "r6_feed", "domaintuno", "worldbrewbot", "seobility", "urlstat", "integromedb", "port-monitor.com", "port monitor check service", _
Line 326: "kimonolabs", "icc-crawler", "loadimpact", "websnapr", "cukbot", "memorybot", "qwantify", "trendiction", "natlib.gov", "uptimedog", "gecko webthumb", _
Line 327: "linkpeek", "hosttracker", "ia_archiver", "bdfetch", "metaspider", "site24x7", "it2media", "pandeo", "agentslug.com", "siteliner", "sistrix", _
Line 328: "mnogosearch", "aboutusbot", "jobdiggerspider", "istellabot", "sukibot", "hubspot", "optimizationcrawler", "abrave v", "abrave spider", "leikibot", _
Line 329: "gozaikbot", "botlink", "ahoy!", "alkalinebot", "anthillv", "appie/", "arachnophilia", "araneo", "araybOt", "architextspider", "ariadne", "arks/", _
Line 330: "aspider/", "atn_worldwide", "atomz/", "auresys/", "backrub/", "bayspider", "bbot/", "big brother", "bjaaland/", "blackwidow", "die blinde kuh", _
Line 331: "ukonline", "borg-bot/", "boxseabot/", "bspider/", "cactvs", "calif/", "digimarc", "checkbot/", "christcrawler", "cienciaficcion", "cmc/", _
Line 332: "conceptbot/", "confuzzledbot/", "coolbot", "cosmos/", "internet cruiser robot", "cusco/", "cyberspyder/", "cydralspider/", "desertrealm", "deweb/", _
Line 333: "dienstspider/1.0", "digger/", "diibot", "grabber", "dnabot/", "dragonbot/", "dwcp/", "lwp:", "ebiness", "eit-link-verifier", "elfinbot", "emacs-", _
Line 334: "emc spider", "esculapio", "evliya celebi", "explorersearch", "fastcrawler", "fdse robot", "felixide", "hazel's ferret", "esirover", "fido/", _
Line 335: "hämähäkki/", "kit-fireball", "fish-search", "fouineur", "robot du crim", "freecrawl", "funnelweb-", "gammaspider", "gazz/", "gcreep/", "geturl.rexx", _
Line 336: "golem/", "griffon/", "gromit/", "gulliver/", "gulper web bot", "havindex/", "aitcsrobot/", "hometown spider pro", "wired-digital-newsbot/", _
Line 337: "htdig/", "htmlgobble", "iajaBot/", "ibm_planetwide", "gestalticonoclast", "ingrid/", "incywincy", "infoseek", "infospiders/", "inspectorwww/", _
Line 338: "iron33/", "israelisearch/", "javabee", "jcrawler/", "ask jeeves", "jobot/", "joebot/", "jubiirobot", "jumpstation", "image.kapsi.net", "katipo/", _
Line 339: "kdd-explorer/", "ko_yappo_robot", "labelgrab/", "larbin (+mail)", "linkidator/", "linkscan server", "Linkwalker", "lockon/", "logo.gif crawler", _
Line 340: "lycos/", "magpie/", "marvin/infoseek", "mediafox/", "merzscope", "nec-meshexplorer", "mindcrawler", "udmsearch", "moget/", "momspider/", "muninn/", _
Line 341: "muscatferret", "mwdsearch/", "sharp-info-agent", "ndspider/", "etcarta cyberpilot", "netmechanic", "netscoop/", "newscan-online/", "nhsewalker/", _
Line 342: "nomad-v", "objectssearch/", "occam/", "hku www robot", "ontospider/", "openbot", "orbsearch", "packrat/", "pageboy/", "parasite/", "patric/", _
Line 343: "web robot pegasus", "peregrinator-mathematics", "perlcrawler", "duppies", "phpdig", "piltdownman", "pimptrain", "portaljuice.com", "pgp-ka/", _
Line 344: "plumtreewebaccessor", "poppi/", "portalbspider/", "psbot/", "getterroboplus", "raven-v", "resume robot", "rhcs/", "rixbot", "imagescape robot", _
Line 345: "robbie/", "computingsite robi", "robocrawl (", "robofox v", "robozilla/", "roverbot", "safetynet robot", "scooter/", "sleek spider", _
Line 346: "searchprocess/", "senrigan/", "sg-scout", "shagseeker", "shai'hulud", "libwww-perl-", "simbot/", "site valet", "open text site crawler", _
Line 347: "sitetech-rover", "awapclient", "slcrawler", "esismartspider", "snooper/", "solbot/", "spanner/", "speedy spider", "mouse.house/", "spiderbot/", _
Line 348: "spiderline/", "spiderview", "ssearcher100", "suke/", "suntek/", "sygol.com", "black widow v", "tarantula/", "tarspider", "dlw3robot/", "techbot", _
Line 349: "templeton/", "teoma_agent1", "titin/", "titan/", "tlspider/", "ucsd-crawler", "udmsearch/", "uptimebot", "urlck/", "url spider pro", "valkyrie/", _
Line 350: "verticrawlbot", "victoria/", "vision-search/", "void-bot/", "vwbot_k", "w3index", "w3m2/", "crawlpaper/", "wwwanderer v", "w@pspider/", _
Line 351: "webbandit/", "webcatcher/", "webcopy/", "webfetcher/", "weblayers/", "weblinker/", "webmoose/", "webquest/", "digimarc webreader/", "webreaper", _
Line 352: "webs@recruit.co.jp", "webvac/", "webwalk", "webwalker/", "wget/", "whatuseek_winona", "wlm-", "w3mir", "wolp/", "wwwc/", "nederland.zoek", _
Line 353: "montastic", "majestic12", "nerdybot", "python-urllib", "tbot-nutch", "twitterbot", "domainreanimator", _
Line 354: "yisouspider", "linkwalker", "google favicon", "scrapy.org", "paperlibot", "phpcrawl", "pinterest", _
Line 355: "python-urllib/2.7", "feedfetcher-google", "netlyzer", "python-requests", "google-site-verification", _
Line 356: "semanticbot", "siteexplorer.info", "linkpadbot/", "businessbot:", "weborama-fetcher", "go-http-client/", "stratagems kumo", "betabot", _
Line 357: "linguee bot", "seoscanners", "findxbot", "bomborabot", "15miles.com", "ips-agent", "dataprovider.com", "extlinksbot", "toweya", "ltx71", _
Line 358: "code.google.com/appengine; appid: s~snapchat-proxy)", "safednsbot", "pcore-http", "8legs", "redback/", "saleslift", "daum/", "headmasterseo", _
Line 359: "metauri.com", "sitelockspider", "domainstatsbot", "id-search.xyz", "gookey.co/", "xenu link sleuth", "uipbot/", "scoutjet.com", _
Line 360: "techinfo@ubermetrics-technologies.com", "catexplorador", "datagnionbot", "peet browser", "blackboard safeassign", "/nutch-", "rankingbot2", _
Line 361: "linkfluence.com", "www-mechanize/", "zibalinks", "wonderbot/", "teeraidbot", "xml-sitemaps.com", "okhttp/", "screaming frog", "smurlexpander", _
Line 362: "go 1.1 package http", "client/research_scan", "checkmarknetwork", "superpagesurlverifybot", "; linkcheckv", "scrapy-redis", "faraday v", _
Line 363: "www.x9o.de", "nettrack.info", "veoozbot", "seozoom", "s~buzzstream-tools-hrd", "redirector/1.1", "github.com/aliasio/wappalyzer", _
Line 364: "thunderstone.com", "g-i-g-a-b-o-t", "seoterritory.com", "feedparser.org", "salesintelligent", "licvb.wpengine.com", _
Line 365: "dnyzbot/", "watson-url-fetcher", "clickagy intelligence bot", "gowikibot/", "pipl.com", "barkrowler", "buff library user agent", "rssingbot", _
Line 366: "mediapartners-google", "node-urllib", "guzzlehttp", "symfony browserkit", "a6-indexer", "sirdatabot", _
Line 367: "superfeedr bot/", "jersey/2.25.1 (apache httpclient 4.5)", "python/3.6 aiohttp/", "software.schmorp.de/", _
Line 368: "http://researchscan.comsys.rwth-aachen.de)", "mozilla/3.0 (compatible; indy library)", "ahc/2.1", _
Line 369: "nimbostratus-bot/v", "apache-httpclient/", "zgrab/", "industryindexbot/", "libcurl/", "wappalyzer", _
Line 370: "sitechecker", "surdotlybot/", "urltester/", "webdatastats/", "mainwp/", "leadssearchspider", "v-bot/", "honeybee ver. ", "b2b bot", _
Line 371: "trendsmapresolver/", "gigabot", "winhttp.winhttprequest.", "spuhex.com", "universalfeedparser/", "dcrawl/", "prlog.ru", "tracemyfile/", _
Line 372: "econtext/", "voluumdsp-content-bot/", "httpscheck (", "opebot (", "sitetruth.com", "hybridbot", "re-re studio", "grammarly/", _
Line 373: "28logsspider", "bot annuairefrancais.", "ocarinabot", "newspaper/0", "redditbot/", "mappy/", "dispatch/0", "lookseek.com", _
Line 374: "tweetedtimes.com", "orgprobe/", "com.plumanalytics", "easybib autocite", "cakephp", "mediatoolkitbot", "jooblebot", "adsbot-google", _
Line 375: "wordpress/", "dispatch/", "mixnodecache/", "evc-batch/2.0)", "woorankreview/", "everyonedomainsbot/", "tweezler/", "di-cloud-parser", _
Line 376: "acebookexternalhit/", "node-fetch/", "deeris/", "react/alpha", "outclicksbot/", "httpclient/1.", "bublupbot", "thither.direct bot/", _
Line 377: "serpstatbot/", "jdatabasedrivermysqli", "vuhuvbot/", "pandalytics/", "who.is bot", "dun&bradstreetbot/", "coraxcyber.com", "node-superagent/", _
Line 378: "reqwest/", "bublup.com", "7siters/", "crowdtanglebot/", "my user agent name", "chimebot", "pleskbot", "cloudfind/", "scrapybot (", "clarabot/", _
Line 379: "awariosmartbot/", "sjuupbot", "linkedinbot/", "brands-bot", "adsbot/)", "bananabot/", "aspiegelbot)", "keybot translation", "jetmon/", _
Line 380: "centuryb.o.t", "turnitin (", "research-project-bot", "linespider/", "bitdiscovery", "myseosnapshot/", "axios/", "yelpbot", "hotbot", _
Line 381: "go http package", "phpwebsite/", "rustbot/", "hexometer", "niuebot/", " adsbot/", "hypefactors.com", "admantx", "domainsproject.org", _
Line 382: "censys.io", "htmlparser/", "intelx.io_bot", "embarcadero", "webtech/", "polyapp-website-analysis"}
Line 383:
Line 384: Dim strFilterUserAgent As String = (Request.ServerVariables("HTTP_USER_AGENT") & "").ToLower()
Line 385:
Line 386: Dim blnIsARobot As Boolean = False
Line 387:
Line 388: If strFilterUserAgent=Nothing Then blnIsARobot = True
Line 389:
Line 390: Dim i_robot As String
Line 391:
Line 392: If strFilterUserAgent <> ""
Line 393: If strFilterUserAgent.Length > 5
Line 394: If strFilterUserAgent.SubString(0, 5) = "java/" Or strFilterUserAgent.SubString(0, 5) = "curl/"
Line 395: blnIsARobot = True
Line 396: End If
Line 397: End If
Line 398: End If
Line 399:
Line 400: If strFilterUserAgent = "null" Or strFilterUserAgent = "foo" Or strFilterUserAgent = "ruby" Or strFilterUserAgent = "mozilla/5.0 (compatible; optimizer)" Or strFilterUserAgent = "n/a"
Line 401: blnIsARobot = True
Line 402: Else
Line 403: For Each i_robot In strRobotsArray
Line 404: If strFilterUserAgent.IndexOf(i_robot) > -1
Line 405: blnIsARobot = True
Line 406: Exit For
Line 407: End If
Line 408: Next
Line 409: End If
Line 410:
Line 411: Return(blnIsARobot)
Line 412: End Function
Line 413:
Line 414: Function IsBot() As Boolean
Line 415: Dim objBrowserCaps As System.Web.HttpBrowserCapabilities = Request.Browser
Line 416: Dim blnIsBot As Boolean = (CType(objBrowserCaps, System.Web.Configuration.HttpCapabilitiesBase)).Crawler
Line 417:
Line 418: If blnIsBot = False
Line 419: Dim blnIsBot2 As Boolean = IsKnownBot()
Line 420:
Line 421: If blnIsBot2 Then blnIsBot = True
Line 422: End If
Line 423:
Line 424: If Not blnIsBot
Line 425: Dim uA As String = (Request.ServerVariables("HTTP_USER_AGENT") & "").ToLower()
Line 426:
Line 427: If uA.IndexOf("windows")=-1 And uA.IndexOf("applewebkit")=-1 And uA.IndexOf("thunderbird/")=-1 And uA.IndexOf("applewebkit")=-1 And uA.IndexOf("thunderbird/")=-1 And uA.IndexOf("msie")=-1 And uA.IndexOf("opera")=-1 And uA.IndexOf("safari")=-1 And uA.IndexOf("android")=-1 And uA.IndexOf("firefox")=-1 And uA.IndexOf("chrome")=-1 And uA.IndexOf("iphone")=-1
Line 428: If uA.Length > 100 Then uA = uA.SubString(0, 99)
Line 429: ''//ExecNonQuery("INSERT INTO UserAgents(Agent, IP) VALUES('" & uA.Replace("'", "''") & "', '" & Request.ServerVariables("REMOTE_ADDR") & "')")
Line 430: End If
Line 431: End If
Line 432:
Line 433: Return(blnIsBot)
Line 434: End Function
Line 435:
Line 436: Function ExecScalar(ByVal strQuery As String) As String
Line 437: If strQuery.Length>0
Line 438: Dim objConn As New SqlConnection(Application("ConnectionString"))
Line 439: Dim objCmd As New SqlCommand(strQuery, objConn)
Line 440:
Line 441: objConn.Open()
Line 442:
Line 443: Dim strResult As String=objCmd.ExecuteScalar()
Line 444:
Line 445: objCmd.Dispose() : objConn.Close() : objConn.Dispose()
Line 446:
Line 447: Return strResult
Line 448: Else
Line 449: Return Nothing
Line 450: End If
Line 451: End Function
Line 452:
Line 453: Sub ExecNonQuery(ByVal strQuery As String)
Line 454: If strQuery.Length>0
Line 455: Dim objConn As New SqlConnection(Application("ConnectionString"))
Line 456: Dim objCmd As New SqlCommand(strQuery, objConn)
Line 457:
Line 458: objConn.Open() : objCmd.ExecuteNonQuery()
Line 459:
Line 460: objCmd.Dispose() : objConn.Close() : objConn.Dispose()
Line 461: End If
Line 462: End Sub
Line 463:
Line 464: Function F(ByVal strF As String) As String
Line 465: If Request(strF)=Nothing
Line 466: Return("'', ")
Line 467: Else
Line 468: Return("'" & Request(strF).ToString().Replace("'", "''") & "', ")
Line 469: End If
Line 470: End Function
Line 471:
Line 472: Function F2(ByVal strF As String) As String
Line 473: If Request(strF)=Nothing
Line 474: Return("''")
Line 475: Else
Line 476: Return("'" & Request(strF).ToString().Replace("'", "''") & "'")
Line 477: End If
Line 478: End Function
Line 479:
Line 480: Function stripHtml(ByVal Y As String) As String
Line 481: Dim R As RegEx
Line 482:
Line 483: If Y = Nothing Then Return("")
Line 484:
Line 485: Y=R.Replace(Y, "<[^>]*(>|$)", "")
Line 486:
Line 487: Return(Y)
Line 488: End Function
Line 489:
Line 490: Function getStateSmall(ByVal strState As String)
Line 491: Select Case (strState & "").ToLower()
Line 492: Case "alabama"
Line 493: Return("AL")
Line 494: Case "alaska"
Line 495: Return("AK")
Line 496: Case "arizona"
Line 497: Return("AZ")
Line 498: Case "arkansas"
Line 499: Return("AR")
Line 500: Case "california"
Line 501: Return("CA")
Line 502: Case "colorado"
Line 503: Return("CO")
Line 504: Case "connecticut"
Line 505: Return("CT")
Line 506: Case "delaware"
Line 507: Return("DE")
Line 508: Case "district of columbia", "district-of-columbia"
Line 509: Return("DC")
Line 510: Case "florida"
Line 511: Return("FL")
Line 512: Case "georgia"
Line 513: Return("GA")
Line 514: Case "hawaii"
Line 515: Return("HI")
Line 516: Case "idaho"
Line 517: Return("ID")
Line 518: Case "illinois"
Line 519: Return("IL")
Line 520: Case "indiana"
Line 521: Return("IN")
Line 522: Case "iowa"
Line 523: Return("IA")
Line 524: Case "kansas"
Line 525: Return("KS")
Line 526: Case "kentucky"
Line 527: Return("KY")
Line 528: Case "louisiana"
Line 529: Return("LA")
Line 530: Case "maine"
Line 531: Return("ME")
Line 532: Case "maryland"
Line 533: Return("MD")
Line 534: Case "massachusetts"
Line 535: Return("MA")
Line 536: Case "michigan"
Line 537: Return("MI")
Line 538: Case "minnesota"
Line 539: Return("MN")
Line 540: Case "mississippi"
Line 541: Return("MS")
Line 542: Case "missouri"
Line 543: Return("MO")
Line 544: Case "montana"
Line 545: Return("MT")
Line 546: Case "nebraska"
Line 547: Return("NE")
Line 548: Case "nevada"
Line 549: Return("NV")
Line 550: Case "new hampshire", "new-hampshire"
Line 551: Return("NH")
Line 552: Case "new jersey", "new-jersey"
Line 553: Return("NJ")
Line 554: Case "new mexico", "new-mexico"
Line 555: Return("NM")
Line 556: Case "new york", "new-york"
Line 557: Return("NY")
Line 558: Case "north carolina", "north-carolina"
Line 559: Return("NC")
Line 560: Case "north dakota", "north-dakota"
Line 561: Return("ND")
Line 562: Case "ohio"
Line 563: Return("OH")
Line 564: Case "oklahoma"
Line 565: Return("OK")
Line 566: Case "oregon"
Line 567: Return("OR")
Line 568: Case "pennsylvania"
Line 569: Return("PA")
Line 570: Case "puerto rico", "puerto-rico"
Line 571: Return("PR")
Line 572: Case "rhode island", "rhode-island"
Line 573: Return("RI")
Line 574: Case "south carolina", "south-carolina"
Line 575: Return("SC")
Line 576: Case "south dakota", "south-dakota"
Line 577: Return("SD")
Line 578: Case "tennessee"
Line 579: Return("TN")
Line 580: Case "texas"
Line 581: Return("TX")
Line 582: Case "utah"
Line 583: Return("UT")
Line 584: Case "vermont"
Line 585: Return("VT")
Line 586: Case "virginia"
Line 587: Return("VA")
Line 588: Case "washington"
Line 589: Return("WA")
Line 590: Case "west virginia", "west-virginia"
Line 591: Return("WV")
Line 592: Case "wisconsin"
Line 593: Return("WI")
Line 594: Case "wyoming"
Line 595: Return("WY")
Line 596: Case "alberta"
Line 597: Return("AB")
Line 598: Case "british-columbia"
Line 599: Return("BC")
Line 600: Case "manitoba"
Line 601: Return("MB")
Line 602: Case "new-brunswick"
Line 603: Return("NB")
Line 604: Case "newfoundland", "newfoundland-and-labrador"
Line 605: Return("NL")
Line 606: Case "nova-scotia"
Line 607: Return("NS")
Line 608: Case "northwest-territories"
Line 609: Return("NT")
Line 610: Case "nunavut"
Line 611: Return("NU")
Line 612: Case "ontario"
Line 613: Return("ON")
Line 614: Case "prince-edward-island"
Line 615: Return("PE")
Line 616: Case "quebec"
Line 617: Return("QC")
Line 618: Case "saskatchewan"
Line 619: Return("SK")
Line 620: Case "yukon"
Line 621: Return("YT")
Line 622: Case Else
Line 623: Return("")
Line 624: End Select
Line 625: End Function
Line 626:
Line 627: Function getStatePath(ByVal strState As String)
Line 628: Select Case (strState & "").ToUpper()
Line 629: Case "AL"
Line 630: Return("alabama")
Line 631: Case "AK"
Line 632: Return("alaska")
Line 633: Case "AZ"
Line 634: Return("arizona")
Line 635: Case "AR"
Line 636: Return("arkansas")
Line 637: Case "CA"
Line 638: Return("california")
Line 639: Case "CO"
Line 640: Return("colorado")
Line 641: Case "CT"
Line 642: Return("connecticut")
Line 643: Case "DE"
Line 644: Return("delaware")
Line 645: Case "DC"
Line 646: Return("district-of-columbia")
Line 647: Case "FL"
Line 648: Return("florida")
Line 649: Case "GA"
Line 650: Return("georgia")
Line 651: Case "HI"
Line 652: Return("hawaii")
Line 653: Case "ID"
Line 654: Return("idaho")
Line 655: Case "IL"
Line 656: Return("illinois")
Line 657: Case "IN"
Line 658: Return("indiana")
Line 659: Case "IA"
Line 660: Return("iowa")
Line 661: Case "KS"
Line 662: Return("kansas")
Line 663: Case "KY"
Line 664: Return("kentucky")
Line 665: Case "LA"
Line 666: Return("louisiana")
Line 667: Case "ME"
Line 668: Return("maine")
Line 669: Case "MD"
Line 670: Return("maryland")
Line 671: Case "MA"
Line 672: Return("massachusetts")
Line 673: Case "MI"
Line 674: Return("michigan")
Line 675: Case "MN"
Line 676: Return("minnesota")
Line 677: Case "MS"
Line 678: Return("mississippi")
Line 679: Case "MO"
Line 680: Return("missouri")
Line 681: Case "MT"
Line 682: Return("montana")
Line 683: Case "NE"
Line 684: Return("nebraska")
Line 685: Case "NV"
Line 686: Return("nevada")
Line 687: Case "NH"
Line 688: Return("new-hampshire")
Line 689: Case "NJ"
Line 690: Return("new-jersey")
Line 691: Case "NM"
Line 692: Return("new-mexico")
Line 693: Case "NY"
Line 694: Return("new-york")
Line 695: Case "NC"
Line 696: Return("north-carolina")
Line 697: Case "ND"
Line 698: Return("north-dakota")
Line 699: Case "OH"
Line 700: Return("ohio")
Line 701: Case "OK"
Line 702: Return("oklahoma")
Line 703: Case "OR"
Line 704: Return("oregon")
Line 705: Case "PA"
Line 706: Return("pennsylvania")
Line 707: Case "PR"
Line 708: Return("puerto-rico")
Line 709: Case "RI"
Line 710: Return("rhode-island")
Line 711: Case "SC"
Line 712: Return("south-carolina")
Line 713: Case "SD"
Line 714: Return("south-dakota")
Line 715: Case "TN"
Line 716: Return("tennessee")
Line 717: Case "TX"
Line 718: Return("texas")
Line 719: Case "UT"
Line 720: Return("utah")
Line 721: Case "VT"
Line 722: Return("vermont")
Line 723: Case "VA"
Line 724: Return("virginia")
Line 725: Case "WA"
Line 726: Return("washington")
Line 727: Case "WV"
Line 728: Return("west-virginia")
Line 729: Case "WI"
Line 730: Return("wisconsin")
Line 731: Case "WY"
Line 732: Return("wyoming")
Line 733: Case "AB"
Line 734: Return("alberta")
Line 735: Case "BC"
Line 736: Return("british-columbia")
Line 737: Case "MB"
Line 738: Return("manitoba")
Line 739: Case "NB"
Line 740: Return("new-brunswick")
Line 741: Case "NL"
Line 742: Return("newfoundland")
Line 743: Case "NS"
Line 744: Return("nova-scotia")
Line 745: Case "NT"
Line 746: Return("northwest-territories")
Line 747: Case "NU"
Line 748: Return("nunavut")
Line 749: Case "ON"
Line 750: Return("ontario")
Line 751: Case "PE"
Line 752: Return("prince-edward-island")
Line 753: Case "QC"
Line 754: Return("quebec")
Line 755: Case "SK"
Line 756: Return("saskatchewan")
Line 757: Case "YT"
Line 758: Return("yukon")
Line 759: Case Else
Line 760: Return("")
Line 761: End Select
Line 762: End Function
Line 763:
Line 764: Function getStateLarge(ByVal strState As String)
Line 765: Select Case (strState & "").ToUpper()
Line 766: Case "AL"
Line 767: Return("Alabama")
Line 768: Case "AK"
Line 769: Return("Alaska")
Line 770: Case "AZ"
Line 771: Return("Arizona")
Line 772: Case "AR"
Line 773: Return("Arkansas")
Line 774: Case "CA"
Line 775: Return("California")
Line 776: Case "CO"
Line 777: Return("Colorado")
Line 778: Case "CT"
Line 779: Return("Connecticut")
Line 780: Case "DE"
Line 781: Return("Delaware")
Line 782: Case "DC"
Line 783: Return("District of Columbia")
Line 784: Case "FL"
Line 785: Return("Florida")
Line 786: Case "GA"
Line 787: Return("Georgia")
Line 788: Case "HI"
Line 789: Return("Hawaii")
Line 790: Case "ID"
Line 791: Return("Idaho")
Line 792: Case "IL"
Line 793: Return("Illinois")
Line 794: Case "IN"
Line 795: Return("Indiana")
Line 796: Case "IA"
Line 797: Return("Iowa")
Line 798: Case "KS"
Line 799: Return("Kansas")
Line 800: Case "KY"
Line 801: Return("Kentucky")
Line 802: Case "LA"
Line 803: Return("Louisiana")
Line 804: Case "ME"
Line 805: Return("Maine")
Line 806: Case "MD"
Line 807: Return("Maryland")
Line 808: Case "MA"
Line 809: Return("Massachusetts")
Line 810: Case "MI"
Line 811: Return("Michigan")
Line 812: Case "MN"
Line 813: Return("Minnesota")
Line 814: Case "MS"
Line 815: Return("Mississippi")
Line 816: Case "MO"
Line 817: Return("Missouri")
Line 818: Case "MT"
Line 819: Return("Montana")
Line 820: Case "NE"
Line 821: Return("Nebraska")
Line 822: Case "NV"
Line 823: Return("Nevada")
Line 824: Case "NH"
Line 825: Return("New Hampshire")
Line 826: Case "NJ"
Line 827: Return("New Jersey")
Line 828: Case "NM"
Line 829: Return("New Mexico")
Line 830: Case "NY"
Line 831: Return("New York")
Line 832: Case "NC"
Line 833: Return("North Carolina")
Line 834: Case "ND"
Line 835: Return("North Dakota")
Line 836: Case "OH"
Line 837: Return("Ohio")
Line 838: Case "OK"
Line 839: Return("Oklahoma")
Line 840: Case "OR"
Line 841: Return("Oregon")
Line 842: Case "PA"
Line 843: Return("Pennsylvania")
Line 844: Case "PR"
Line 845: Return("Puerto Rico")
Line 846: Case "RI"
Line 847: Return("Rhode Island")
Line 848: Case "SC"
Line 849: Return("South Carolina")
Line 850: Case "SD"
Line 851: Return("South Dakota")
Line 852: Case "TN"
Line 853: Return("Tennessee")
Line 854: Case "TX"
Line 855: Return("Texas")
Line 856: Case "UT"
Line 857: Return("Utah")
Line 858: Case "VT"
Line 859: Return("Vermont")
Line 860: Case "VA"
Line 861: Return("Virginia")
Line 862: Case "WA"
Line 863: Return("Washington")
Line 864: Case "WV"
Line 865: Return("West Virginia")
Line 866: Case "WI"
Line 867: Return("Wisconsin")
Line 868: Case "WY"
Line 869: Return("Wyoming")
Line 870: Case "AB"
Line 871: Return("Alberta")
Line 872: Case "BC"
Line 873: Return("British Columbia")
Line 874: Case "MB"
Line 875: Return("Manitoba")
Line 876: Case "NB"
Line 877: Return("New Brunswick")
Line 878: Case "NL"
Line 879: Return("Newfoundland")
Line 880: Case "NS"
Line 881: Return("Nova Scotia")
Line 882: Case "NT"
Line 883: Return("Northwest Territories")
Line 884: Case "NU"
Line 885: Return("Nunavut")
Line 886: Case "ON"
Line 887: Return("Ontario")
Line 888: Case "PE"
Line 889: Return("Prince Edward Island")
Line 890: Case "QC"
Line 891: Return("Quebec")
Line 892: Case "SK"
Line 893: Return("Saskatchewan")
Line 894: Case "YT"
Line 895: Return("Yukon")
Line 896: Case Else
Line 897: Return("")
Line 898: End Select
Line 899: End Function
Line 900:
Line 901: Function SitesStateArray() As String(,)
Line 902: Dim statesArray(,) As String = {{"7", "AL", "Alabama"}, {"36", "AK", "Alaska"}, {"84", "AZ", "Arizona"}, {"37", "AR", "Arkansas"}, _
Line 903: {"2", "CA", "California"}, {"45", "CO", "Colorado"}, {"8", "CT", "Connecticut"}, {"3", "DE", "Delaware"}, {"4", "FL", "Florida"}, _
Line 904: {"92", "GA", "Georgia"}, {"38", "HI", "Hawaii"}, {"43", "ID", "Idaho"}, {"51", "IL", "Illinois"}, {"58", "IN", "Indiana"}, _
Line 905: {"57", "IA", "Iowa"}, {"55", "KS", "Kansas"}, {"76", "KY", "Kentucky"}, {"56", "LA", "Louisiana"}, {"44", "ME", "Maine"}, _
Line 906: {"46", "MD", "Maryland"}, {"10", "MA", "Massachusetts"}, {"52", "MI", "Michigan"}, {"26", "MN", "Minnesota"}, {"42", "MS", "Mississippi"}, _
Line 907: {"77", "MO", "Missouri"}, {"41", "MT", "Montana"}, {"35", "NE", "Nebraska"}, {"5", "NV", "Nevada"}, {"39", "NH", "New Hampshire"}, _
Line 908: {"13", "NJ", "New Jersey"}, {"34", "NM", "New Mexico"}, {"20", "NY", "New York"}, {"15", "NC", "North Carolina"}, _
Line 909: {"40", "ND", "North Dakota"}, {"54", "OH", "Ohio"}, {"49", "OK", "Oklahoma"}, {"16", "OR", "Oregon"}, {"50", "PA", "Pennsylvania"}, _
Line 910: {"53", "RI", "Rhode Island"}, {"18", "SC", "South Carolina"}, {"33", "SD", "South Dakota"}, {"28", "TN", "Tennessee"}, _
Line 911: {"27", "TX", "Texas"}, {"47", "UT", "Utah"}, {"30", "VT", "Vermont"}, {"6", "VA", "Virginia"}, {"48", "WA", "Washington"}, _
Line 912: {"31", "WV", "West Virginia"}, {"24", "WI", "Wisconsin"}, {"32", "WY", "Wyoming"}}
Line 913:
Line 914: Return statesArray
Line 915: End Function
Line 916:
Line 917: #End ExternalSource
Line 918:
Line 919:
Line 920: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 921: Public Sub New()
Line 922: MyBase.New
Line 923: Dim dependencies() As String
Line 924: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/include/functions.aspx"
Line 925: If (Global.ASP.include_functions_aspx.__initialized = false) Then
Line 926: dependencies = New String(0) {}
Line 927: dependencies(0) = "~/include/functions.aspx"
Line 928: Global.ASP.include_functions_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 929: Global.ASP.include_functions_aspx.__initialized = true
Line 930: End If
Line 931: Me.Server.ScriptTimeout = 30000000
Line 932: End Sub
Line 933:
Line 934: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 935: Get
Line 936: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 937: End Get
Line 938: End Property
Line 939:
Line 940: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Line 941: Get
Line 942: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 943: End Get
Line 944: End Property
Line 945:
Line 946: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 947: Private Sub __BuildControlTree(ByVal __ctrl As include_functions_aspx)
Line 948:
Line 949: #ExternalSource("D:\home\site\wwwroot\include\functions.aspx",1)
Line 950: Me.InitializeCulture
Line 951:
Line 952: #End ExternalSource
Line 953: End Sub
Line 954:
Line 955: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 956: Protected Overrides Sub FrameworkInitialize()
Line 957: MyBase.FrameworkInitialize
Line 958: Me.__BuildControlTree(Me)
Line 959: Me.AddWrappedFileDependencies(Global.ASP.include_functions_aspx.__fileDependencies)
Line 960: Me.Request.ValidateInput
Line 961: End Sub
Line 962:
Line 963: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 964: Public Overrides Function GetTypeHashCode() As Integer
Line 965: Return 5381
Line 966: End Function
Line 967:
Line 968: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 969: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 970: MyBase.ProcessRequest(context)
Line 971: End Sub
Line 972: End Class
Line 973: End Namespace
Line 974:
Version Information: Microsoft .NET Framework Version:2.0.50727.8964; ASP.NET Version:2.0.50727.8962 / jester
C
June 14, 2023, 10:59 a.m.