accessتىن ياردەم سورايمەن

keram · ۋاقتى: 2015-5-26 17:33:53

accessساندانغا بىۋاستە .ئۇيغۇرچە خەت يازسام aspبەت يۈزىدە ئۇيغۇرچە خەت سوئال(؟؟) بەلگىسى شەكلىدە چىقىپ قىلىپ نورمال كۆرۈنمىدى... ئەگەر ئۇيغۇرچە ئاۋال FrontPageگە چاپلاپ ئاندىن كودىنى كۆچۈرۈپ accessساندانغا چاپلىسام aspبەت يۈزىدە ئۇيغۇرچە نورمال كۆرۈندى ، قانداق قىلسام بىۋاستە ساندانغا يېزىلغان خەتنى نورمال كۆرسەتكىلى بولار؟aspبەتنىڭ كودىنى تەڭشەپمۇ باقتىم ئوخشاشلا سوئال بەلگىسى چىقىۋالدى....

ساندانغا بىۋاستە يازغان خەت سانداندا نورمال ئەمما بەت يۈزىدە سوئال بلگىسى بولۇپ كۆرۈنىدۇ، FrontPageتىن كۆچۈرۈلگەن خەت كود شەكىلدە لېكىن بەت يۈزدە نورمال ...

Nida · ۋاقتى: 2015-5-27 00:36:16

سەينادىن ئىزدىگەن بولسىڭىزمۇ چىقار ئىدى، سىز ھورۇنلۇق قىلسىڭىزمۇ مەن قىلمىدىم، تۆۋەندىكى ئۇلىنىشلاردىن كۆرۈۋېلىڭ:
https://uyghur-archive.com/intil/home/forum. ... 8763&fromuid=21
https://uyghur-archive.com/intil/home/forum. ... 6975&fromuid=21

keram · ۋاقتى: 2015-5-27 09:48:38

Nida يوللىغان ۋاقتى 2015-5-27 00:36
سەينادىن ئىزدىگەن بولسىڭىزمۇ چىقار ئىدى، سىز ھورۇنلۇق ...

بۇ تېمىلارنى كۆرگەن ئىدىم ، يۇقىردا ئېيتىلغىنىدەك <%@language=vbscript codepage=65001%> بۇكودنى قوشسام ئۇيغۇرچە خەت يەنىلا نورمال ئەمەس ،<%Response.Charset= "utf-8"%> بۇ كودنى قوشسام بەت ئېچىلماي خاتالىق ئۇچۇرى چىقىۋالدى ... بەت ئۆزى GBK2312كودى ئىدى چۈنكى بەت يۈزىدە ئۇيغۇرچە خەنزۇچە ئۇچۇرلار ئارلاش ئىدى بەت كودىنى utf-8غا تەڭشىسىم خەنزۇچە خەتلەر كاتەك چىقىۋالدى ،يۇقىردا ئېيتىلغان كودنى قوشسام بەت ئېچىلمايلا تۇرۋالدى ...

Nida · ۋاقتى: 2015-5-27 11:43:52

كودنى قوشۇپ قويغان بىلەنلا بولمايدۇ، بەتنى شۇ خىل كود شەكلىدە ساقلاش لازىم. تەۋسىيىرىم: بەتنى utf شەكلىدە ساقلاپ، بەت 1-قۇرىغا

<%Response.Charset= "utf-8"%>

مەزمۇننى كۆچۈرۈۋېلىش

دېگەن كودنى قوشىسىز. سانداننىمۇ چوقۇم utf شەكلىدە ساقلىشىڭىز لازىم. ئىككىسىنىڭ بىرى كەم بولسا بەت يۈزىدىكى خەتلەر نورمال كۆرۈنمەيدۇ. بەت كودى GBK2312 شەكىلدە بولسا، ئۇيغۇرچە خەتنى utf شەكلىدە كۆرسەتسىڭىز ئېنىقكى نورمال كۆرۈنمەيدۇ، ئەگەر زادى GBK2312 شەكىلدە يازمىسام بولمايتتى دېسىڭىز، ئۇيغۇرچە خەتلەرنىمۇ و دېگەندەك (ئۈستىدىكى سۈرەتتىكى ساندان 1-قۇرىدىكىدەك) ASCII كودى شەكلىدە ساقلىشىڭىز لازىم.

nurmamatjan · ۋاقتى: 2015-5-27 12:07:55

ھەي دوستۇم بۇ مەسىلىنى سىز مۇنداق ھەل قىلىسىز ‹'
ساندان ئۇلاش بىتىڭىزنىڭ ئۇستىگە خەت نۇسخىسى توغىرلاش كودى يازسىڭىز .ئاندىن نۇرمال چىقىدۇ.
مەن دائىم شۇنداق لاھىيلەيمەن . ھېچقانداق خاتالىق چىقمايدۇ.
ئى ساندان كاتەكچىسنىڭ ئىسمنى پىروگراممىرلارغا خاس ئاددى ۋە ئاسان قىلىپ تۇزمەمسىز ... نىمانداق غەلتە ئىسملار ئۇ ...
يەنە چۇشەنمىسڭىز ساندان ئۇلاش كودىنى يوللىڭچە كۆرپ تۇزتۇپ بىرەي

keram · ۋاقتى: 2015-5-27 20:13:06

nurmamatjan يوللىغان ۋاقتى 2015-5-27 12:07
ھەي دوستۇم بۇ مەسىلىنى سىز مۇنداق ھەل قىلىسىز ‹'
ساندان ...

<%
dim heike_sss,heike_fy,heike_array,heike_fy_nnnn,heike_ip,say_word_heike
heike_sss=LCase(request.servervariables("QUERY_STRING"))
heike_fy= "'and|'and |' and| ' and |'or|' or|' or | ' or|(| select| delete| drop| exec"
'太多字符也不行，会导致一些程序不正常运行,如果想加强SQL注入，可试加多一些符号。
heike_array=split(heike_fy,"|")
for heike_fy_nnnn=0 to ubound(heike_array)
      if instr(heike_sss,heike_array(heike_fy_nnnn))<>0  then
      heike_ip=Request.ServerVariables("REMOTE_ADDR")
      say_word_heike=heike_ip&"，你想干什么？黑我，不要想啦！请删除SQL注入符号。"
      response.write ""
         response.end
end if
next
'=============================================================== 以下代码请不要自行修改========================================
mdb="@zidian@0554@us.mdb"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdb)
      '如果你的服务器采用较老版本Access驱动，请用下面连接方法
      'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(mdb)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
      Err.Clear
      Set conn = Nothing
      Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
      Response.End
End If

Sub CloseConn()
On Error Resume Next
If IsObject(conn) Then
      conn.Close
      Set conn = Nothing
End If
End Sub

'过滤SQL非法字符并格式化html代码
function Replace_Text(fString)
if isnull(fString) then
Replace_Text=""
exit function
else
fString=trim(fString)
fString=replace(fString,">","")
fString=replace(fString,"<","")
fString=replace(fString,"'","")
fString=replace(fString,";","；")
fString=replace(fString,"--","—")
fString=server.htmlencode(fString)
Replace_Text=fString
end if
end function
%>

keram · ۋاقتى: 2015-5-27 20:15:00

nurmamatjan يوللىغان ۋاقتى 2015-5-27 12:07
ھەي دوستۇم بۇ مەسىلىنى سىز مۇنداق ھەل قىلىسىز ‹'
ساندان ...

<%
dim heike_sss,heike_fy,heike_array,heike_fy_nnnn,heike_ip,say_word_heike
heike_sss=LCase(request.servervariables("QUERY_STRING"))
heike_fy= "'and|'and |' and| ' and |'or|' or|' or | ' or|(| select| delete| drop| exec"
'太多字符也不行，会导致一些程序不正常运行,如果想加强SQL注入，可试加多一些符号。
heike_array=split(heike_fy,"|")
for heike_fy_nnnn=0 to ubound(heike_array)
if instr(heike_sss,heike_array(heike_fy_nnnn))<>0 then
heike_ip=Request.ServerVariables("REMOTE_ADDR")
say_word_heike=heike_ip&"，你想干什么？黑我，不要想啦！请删除SQL注入符号。"
response.write ""
response.end
end if
next
'=============================================================== 以下代码请不要自行修改========================================
mdb="@zidian@0554@us.mdb"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdb)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(mdb)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
Sub CloseConn()
On Error Resume Next
If IsObject(conn) Then
conn.Close
Set conn = Nothing
End If
End Sub
'过滤SQL非法字符并格式化html代码
function Replace_Text(fString)
if isnull(fString) then
Replace_Text=""
exit function
else
fString=trim(fString)
fString=replace(fString,">","")
fString=replace(fString,"<","")
fString=replace(fString,"'","")
fString=replace(fString,";","；")
fString=replace(fString,"--","—")
fString=server.htmlencode(fString)
Replace_Text=fString
end if
end function
%>

مەزمۇننى كۆچۈرۈۋېلىش

keram · ۋاقتى: 2015-5-27 20:16:03

Nida يوللىغان ۋاقتى 2015-5-27 11:43
كودنى قوشۇپ قويغان بىلەنلا بولمايدۇ، بەتنى شۇ خىل كود ...

سانداننى قانداق قىلغاندا utf قىلىپ ساقلىغىلى بولدۇ ؟

Nida · ۋاقتى: 2015-5-28 10:44:00

keram يوللىغان ۋاقتى 2015-5-27 20:16
سانداننى قانداق قىلغاندا utf قىلىپ ساقلىغىلى بولدۇ ؟

<%response.codepage=65001
response.charset="utf-8"%>

مەزمۇننى كۆچۈرۈۋېلىش

بەت بېشىغا مۇشۇ كودنى قوشۇپ، ساندانغا ئوقۇش-يېزىش مەشغۇلاتى قىلسىڭىز، سانداندىكى ئۇچۇرلار utf-8 شەكىلدە ئوقۇپ-يېزىلىدۇ.

nurmamatjan · ۋاقتى: 2015-5-28 12:07:41

Nida يوللىغان ۋاقتى 2015-5-28 10:44
بەت بېشىغا مۇشۇ كودنى قوشۇپ، ساندانغا ئوقۇش-يېزىش مە ...

يارايسىز مۇشۇنچىلىكلا ئىش بۇ

ھېسابات		ساقلاش	پارول قايتۇرىۋېلىش
پارول			تىزىملىتىش

مىكروبلوگ[ يېڭى | 24 سائەت | 7 كۈن | 30 كۈن ]

accessتىن ياردەم سورايمەن