Ϸô¼ƽűcfٷ

ʱ䣺2021-05-19 Դű֮


2.ӡ˵ѡ<jobid="ACCESSݿбֶβһʽַ">
<scriptlanguage="vbscript">
databasename="access.mdb"''ݿַ
tablename="blogarticle"''Ҫı


Setconn=CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;datasource="&databasename
conn.Openconnstr

Setrs_all=CreateObject("adodb.recordset")
sql_all="selectnamefromMSysObjectswheretype=1andflags=0"
rs_all.Opensql_all,conn,1,1

DoWhileNotrs_all.EOF
tablename=rs_all(0)
Setrs=CreateObject("adodb.recordset")
sql="select*from"&tablename&"where1<>1"
rs.Opensql,conn,1,1
j=rs.Fields.Count
txtContent=""
txtContent1=""
txtContent2=""
txtContent3=""
txtContent4=""
Fori=0To(j-1)
title=rs.Fields(i).Name
txtContent=txtContent&title&"|"
txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>"
txtContent2=txtContent2&title&"=rs("""&title&""")<br>"
txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>"
txtContent4=txtContent4&title&"=rs("""&title&""")<br>"
Next
yongfa365="<divalign=center><ahref=""""class=""titlink""title=""(yongfa365)'Blog"">(yongfa365)'Blog</a></div>"&title&"ֶ<br><br>"
CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4
rs_all.movenext
Loop

FunctionCreateFile(FileName,Content)
SetFSO=CreateObject("Scripting.FileSystemObject")
Setfd=FSO.CreateTextFile(FileName,True)
fd.WriteLineContent
EndFunction

</script>
</job>


<jobid="ACCESSݿֶָβһʽַ">
<scriptlanguage="vbscript">
databasename="access.mdb"''ݿַ
tablename="blogarticle"''Ҫı


Setconn=CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;datasource="&databasename
conn.Openconnstr

''Setrs_all=CreateObject("adodb.recordset")
''sql_all="selectnamefromMSysObjectswheretype=1andflags=0"
''rs_all.Opensql_all,conn,1,1

''DoWhileNotrs_all.EOF
''tablename=rs_all(0)
Setrs=CreateObject("adodb.recordset")
sql="select*from"&tablename&"where1<>1"
rs.Opensql,conn,1,1
j=rs.Fields.Count
txtContent=""
txtContent1=""
txtContent2=""
txtContent3=""
txtContent4=""
Fori=0To(j-1)
title=rs.Fields(i).Name
txtContent=txtContent&title&"|"
txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>"
txtContent2=txtContent2&title&"=rs("""&title&""")<br>"
txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>"
txtContent4=txtContent4&title&"=rs("""&title&""")<br>"
Next
yongfa365="<divalign=center><ahref=""""class=""titlink""title=""(yongfa365)'Blog"">(yongfa365)'Blog</a></div>"&title&"ֶ<br><br>"
CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4
''rs_all.movenext
''Loop

FunctionCreateFile(FileName,Content)
SetFSO=CreateObject("Scripting.FileSystemObject")
Setfd=FSO.CreateTextFile(FileName,True)
fd.WriteLineContent
EndFunction

</script>
</job>

ݽű༭

'ʻ㣨VBSű棩
dim word,key
word=inputbox("Ҫ")
if word="" then
msgbox "С ǽ㲻Ҫ"
Wscript.Quit
end if
key=char_wordnum(word)
msgbox key
Function char_wordnum(my_char_word)
dim char_wordtable(26),wordnum_i,wordnum_j,wordnum_k,temp_wordnum
temp_wordnum=""
if my_char_word="" then
char_wordnum=0
exit function
end if
char_wordtable(0)=""
char_wordtable(1)="һ"
char_wordtable(2)="ؿ˶缸ɵذʮ"
char_wordtable(3)="آѾرôҲϰءڿأǧʿϦŮ޴СʬɽݴȽ۹߮ŷ"
char_wordtable(4)="ؤרзᵤΪ֮ƻ微ʲƽͳԴزԪڸ߷׷Ȱ카Ȼƥئ˫̫زͰͱһإ껧֧Ķ﷽ԻľǷֹëˮצسƬţȮռƶϼ˳ŶΤ緦"
char_wordtable(5)="اҵԶ˿է̸ǪȽд͹ۻ۽ұѻ߲ܰռ¬شîȥž߶ߵֻٰȶ̨߳ʷҶ˾̾߷ߴʥ뺻ʧͷū島Զɾв˧ƽ͸˰Ǵӳ⵩δĩĸص֭͡㺺ϸ˦ɼƤĿìʸʯʾѨܴܵڦڧڨѵѶ㼢Ԧ"
char_wordtable(6)="ةƹبǽηݷ鼿Żɡΰαȹȫپũ̻մӶٽﻪЭӡΣѹԸߺϼͬ߸߹ضعݵ۳׳ĿжżױִլذѰ⳾ҢѲʦ겢ׯ͢ʽڵæϷпǤִɨּѮҷӶɱȨλϫǺѴ꽭ƻүIJԼϿ߼ɫܹܷܻܺܶâܼ֥ܸѪ۽کڪګϷþ긺ǨѸǰаƱʴҳѱ"
char_wordtable(7)="ϴҺĶ٣٤赫λס٢١Ӷұ䶳ɾŬ۾ۿϻҽ±ȴؾķɶַԺ˱֨ⳳǺѽʸ߻߼߽߾Ż߿ԱǺض԰Χַ̮ӿ̳ް׹ۼʼ׷Тβƨ᯲᫸ᰵϣʱӴ®пӦŪͮ۳߯־黳ҽŤ糶ŰҼץͶ۸ҿĹ꺺ʱɼӲĴȶ迼죲ÿ̭ɳ湵ûŽٲֲĵ״ұ긦е˽ͺϵγ硴ɴڷֽƷŦ磺ǼФǸ뿳ܽҽ«ܾҰоܿѿέɲ򰲹֤ڬڭʶթڮߴڰگڱȶƳӭ˽·ûԶΥʺۢۡ붤ȼ簢鸽½¤¿𯼦"
char_wordtable(8)="ɥЩؽۼ٦٥٬ٮ٫ʹ٩ֶ٨٪٧ٰ½ȿ٭ٯߵƾεˢȯɲ̹̿ܶб׿Ծȡζզ;ӽǹа̹ͼ̹ƺ崹¢䱸ҹηܱķʼί߼ѧڹ涨˱ʵоẰᴿ㲯ҵҵӷϽһ¼޾̬²޻巿̧ĨѺĴ԰ذ־׾£ӵšŸն껲ºɰ幹ö֦ǹɹŷŹåĭӷӹմй﷨ŢݲעӾкdz¯׳Ȳְõ⻷߰űäֱ֪ѱϸ֯称ᆳҮ֫ʼ緾ǰɷвԷٰ̦ܿɻӢƻïéݾỢ²ʭĹڲڳڴʫڵڶڷڸڹѯںڻڼͰ˻ʷ̰ƶṺתǵȵۥۣۧۤۨۦ֣۩ɽǥ̷բָªİǶ꽤αʻפ"
char_wordtable(9)="پֱͤٶٴٸ׷ٵٷٹٶٱٲٳðǰнѫжܱҧҿۿްƷӺ۹ܻӴҹԫѵ︴ȽҦ¦欽ȺϿ嶻ܹ⽫ٳʺϿͲ۴֡Ӷͥߺ໲ŭ˼Թѻк㡶ս˩ٿƴקʰָֹ̢ЮӵŲͦʩӳԿռܼڱijȾܲѼդջжжζձȪϴ嶴䢺䬶䡻Ǣ䤽Dz䫼䯻Ũ̿ھƱը˸ǣݽʨ貣ɺ巩η̽ߴԻӯζʡüգɰשףخֿͻĸѰ޽笻Ѥͳˣθе̥ʤհطݢãٻӫݡݣݥݤݦݧҩŰϺʴǰҪڽھջڿ˵ܴóѺſԱż׷ѡѷۭۮ۬¿۪۫ظҶ۳ƱԿվٹťٹ̷ұ춸Ժ˳ʳýȱ溧ǹŸѻ"
char_wordtable(10)="񸩾ٽٺıٿȺý賫žٻپծֵټڣԩڤ׼ڡ߰·ԭŸŶԲɼ淶ث׺ݿмչͷϯͽˡϢҶ㩺㨻ȭֿΰͱ׽۰ƺ貶񻻵Ч͵аի˻νɹ˷ʲ˨У˸Φͩɣ嵵׮ѳ볺̩㿣ֺ˸ԡͿӿлɬȺ̿ǻ̽Ȱƿƣ۾Ҽ䲡֢Ӹյμѣ|խվǰЦʷ篾мȱո̳ȸŰʳܵٿܸؽذ༹֬ŧҨ޺ݩݶݱݴݰɯݮݷݯݸݬݹݳݭĪݨݪݫݲݵӨݺݻç˥Ԭ̻ȱŵ·̿˭ŵ׻̸޼ֻ¸͸ϵ;Ѷͨųҷ߲ۯ۰ƸǮǯܲǦí˶ԤĶ鿥تѼԧ"
char_wordtable(11)="Ǭȼƫͣż͵dzջ˼ÿɾΨ৳਷ơɶžХȦܤܣܥöܡܢǵ¹Ȣ漻Ӥ޼żܿξdz±ոijᡳӹȵʱϤƻ㲼㬵㰾ϧΩ㫲ѵߴƵڵҴ̽ӿڴ°뷽ָб޳Ͱ÷е봸Һõĵ㻴Ԩ½ϩɺʻˬ⨲ͲèȬ̺𨰨пǵʢι˶ƱƻҤ񻾹ϵӷεͼɴճۼ糴ά緱׺ְ㸬沰ݼѹվݿ˲ݾݽƼήөӪȹƵ´ϮıȵгνβֺԾľմ۱۲̪Ұͭϳ綠ҿղ¡ȸѩ­ľڹظ¹ƹ"
char_wordtable(12)="ϴаʣļó౿ι஺ิϲܧܦܩ̿ܨҼýɩܸºԢǶñᢷ߱ǿѭݳͱ㷻㶷ſƳҾմԮ§ɦѴɢؾ쳰˹վ羧ؼɭֲ׵駽Ҭۿֳ̺릵μֿպտʪӸѳ̻ͱٽȻϬ⮺⪻帷趻ʹƦ컾Ӳȷ»˰ѴѿͯڵȽܷͲɸ罼翼ĻƱԵƢҸ縭ǻ˴ͧظ϶ڿݵ޽ֻԸѽֲװԣȹϿлҥǫʹԽ̰ϵȼԹꢹٵﭳﲷп׸϶żȲƭɧ³"
char_wordtable(13)="ɵڵɤܪܫĹϱż޼įջĻ΢޸㺴°Яҡ̯Ͼů驴Ш騿¥鯸鶻ЪԴϪб̲ĮӻͼɷúԳ觺ɪ̵ձ˯޲Ƕ鰫ֵµ鱮տǩӾǷɲȺƸȾӼչղܽáӿ·ѶҶꣷδDZDzң۱۴۳۵ҳͪﻴêസ׶ĶӺ³ױѥƵӱտֱȵ"
char_wordtable(14)="ɮӾмѸܬܭǽܮ˵ͷկαԸĽ㼿ˤժġߡƲ黰եȶģǸعƯ©ΫɿϨѬݴغܱ̼̼۴Ŵ߶빿䲭վӧԴظĤޤޣεǾޢޡ֩Ӭۺ̷ܺò׸׬ӻԯϽշ۷۶øͶþؿؾ"
char_wordtable(15)="Ƨ˻ҭ޸ܯīᦴӰ»ο㿺㽶¾Ħ˺ߤײ˲׫ߢߣߥܷĺβȷӣDZ̶γ̱Ϲޫݿ𡵾ڻ׭ƪ¨ںϱϥެަޥީިާޭުЫǴԥȤ̤׾۲ָùЬնƮϺ"
char_wordtable(16)="弽جԱиߦòߧߨٳӳº壼ȼ̡ưȳƳĥܲٽ纲޳ޮٱ޶ޱ޲Ѧ޵ޯްн޴ꥱ۸ȩ޾ص쮲ǭĬ"
char_wordtable(17)="麿ֺڻųߪߩ̴ϭƾ˲ͫ׽㿷㷱족ӷ޹޸޷޻޺Ӯ念̣˪ϼκȣ"
char_wordtable(18)="´հݷź޼ٷӥ"
char_wordtable(19)="߫嬱跰꽮Ѣ޽޿Ģ޾зྯߵŲ۹´"
char_wordtable(20)="ػ½Ρ容ǼŴҫƩۺܰħ"
char_wordtable(21)="¶"
char_wordtable(22)="ܱܲȿպ"
char_wordtable(23)="߬ȧ"
char_wordtable(24)="屴"
char_wordtable(25)="߭"
char_wordtable(26)=""
wordnum_i=0
wordnum_j=0
wordnum_k=0
for wordnum_i=1 to Len(my_char_word)
temp_wordnum=Mid(my_char_word,wordnum_i,1)
for wordnum_j=1 to 26
if instr(1,char_wordtable(wordnum_j),temp_wordnum)>0 then
wordnum_k=wordnum_k+wordnum_j
exit for
end if
next
next
char_wordnum=wordnum_k
End Function
ӼWordǷһڵ֣1ͨķ

IfLCase$(word)="winter"OrLCase$(word)="spring"OrLCase$(word)=_"summer"OrLCase$(word)="fall"Then

'itisaseason'sname

EndIf


2Ӽķ

IfInstr(";winter;spring;summer;fall;",";"&word&";")Then

'itisaseason'sname

EndIf

ʱʹInStrSelect

CaseΣһҪעеַĿ

D:\μκ\\ű֮\ű֮\2\adodb.streamļĴ.htmTextBoxʧȥٵõʱλûõλһ

2. Replace(expression, find, replacewith, compare, count, start)

ͨMODEMϵMODEM᷵ءCONNECT9600Ϣ9600ʾIJ


''OWC1.VBS
class owc
private o
'
public sub create(id_,width_,height_,location_)
Set o=document.createElement("object")
o.setAttribute "id",id_
o.setAttribute "classid","CLSID:0002E55D-0000-0000-C000-000000000046"
o.setAttribute codebase="owc11.dll"
o.style.width=width_
o.style.height=height_
document.getElementById(location_).appendChild(o)
end sub
'DΈD
'chart_bgcolor_Dıɫ
'chartCaption_DĘ}
'chartCaption_fontColor_D}ɫ
'Interior_Color_΃ȵɫ
'Caption_Q
'categories_QM
'values_ֵM
public sub bar(chart_bgcolor_,chartCaption_,chartCaption_fontColor_,Interior_Color_,Caption_,categories_,values_)
o.Clear
set cht=o.Charts.Add
set c=o.Constants
cht.Type=c.chChartTypeColumnClustered
'Oɫ
o.Charts(0).PlotArea.Interior.SetSolid chart_bgcolor_

'ψDĘ}
o.HasChartSpaceTitle=True
set cst=o.ChartSpaceTitle
cst.Caption=chartCaption_
cst.Font.Color=chartCaption_fontColor_
cst.Font.Italic=False
cst.Font.Name="Arial"
cst.Font.Size=12
cst.Font.Underline=c.owcUnderlineStyleSingle


cht.SetData c.chDimCategories, c.chDataLiteral, categories_
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_
'ֱlıɫMO
set sc=o.Charts(0).SeriesCollection(0)
sc.Interior.Color=Interior_Color_

'ֱlϵ@ʾO
sc.Caption=Caption_
set dl=cht.SeriesCollection(0).DataLabelsCollection.Add
dl.HasValue=True
dl.HasPercentage=False
dl.Font.Size=9
dl.Font.Color="red"
dl.Position=c.chLegendPositionRight
dl.NumberFormat="00.00%"
'߅ٷֱȵČO
Set cta=cht.Axes(c.chAxisPositionLeft)
cta.Font.Size=9
cta.NumberFormat="0.0%"
cta.MajorUnit=0.1
end sub
'ϵоΈD
'chart_bgColor_Dıɫ
'chartCaption_DĘ}
'chartCaption_fontColor_D}ɫ
'color_ɫM
'caption_QM
'categories_QM
'values_ֵM
public sub serBar(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,caption_,categories_,values_)
o.Clear
o.Charts.Add
Set c=o.Constants
'D
o.Charts(0).type=c.chChartTypeColumnClustered
'oLD^ӱɫ
o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_
''ψDĘ}
o.HasChartSpaceTitle=True
o.ChartSpaceTitle.Caption=chartCaption_
'}Č
o.ChartSpaceTitle.Font.Color=chartCaption_fontColor_
o.ChartSpaceTitle.Font.Italic=False
o.ChartSpaceTitle.Font.Name="Arial"
o.ChartSpaceTitle.Font.Size=12
o.ChartSpaceTitle.Font.Underline=c.owcUnderlineStyleSingle
'ѭhSeriesCollectionԼă
for i=0 to ubound(caption_)
valuetemp=""
for j=i*(ubound(categories_)+1) to (i+1)*(ubound(categories_)+1)-1
valuetemp=valuetemp & "," & values_(j)
next
valuearr=split(mid(valuetemp,2),",")
o.Charts(0).SeriesCollection.Add
o.Charts(0).SeriesCollection(i).Caption=caption_(i)
o.Charts(0).SeriesCollection(i).Interior.Color=color_(i)
o.Charts(0).SeriesCollection(i).SetData c.chDimCategories, c.chDataLiteral, categories_
o.Charts(0).SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr
set dl=o.Charts(0).SeriesCollection(i).DataLabelsCollection.Add
dl.HasValue=True
dl.HasPercentage=False
dl.Font.Size=9
dl.Font.Color="red"
dl.Position=c.chLegendPositionRight
dl.NumberFormat="00.00%"
next
''DO
o.Charts(0).HasLegend=True
o.Charts(0).Legend.Font.Size=9
o.Charts(0).Legend.Position=c.chLegendPositionBottom
''߅ٷֱȵČO
Set cta=o.Charts(0).Axes(c.chAxisPositionLeft)
cta.Font.Size=9
cta.NumberFormat="0.00%"
cta.MajorUnit=0.1
end sub
'AD
'chart_bgColor_LD^ӱɫ
'chartCaption_DĘ}
'chartCaption_fontColor_D}ɫ
public sub Pie(chart_bgColor_,chartCaption_,chartCaption_fontColor_,Caption_,categories_,values_)
o.Clear
Set cht=o.Charts.Add
Set c=o.Constants
cht.Type=c.chChartTypePie3d
'oLD^ӱɫ
o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_
cht.ExtrudeAngle=90
cht.ChartDepth=169
cht.AspectRatio=120
cht.Rotation=180
cht.Inclination=70

o.HasChartSpaceTitle=True
o.ChartSpaceTitle.Caption=chartCaption_
o.ChartSpaceTitle.Font.Color=chartCaption_fontColor_
o.ChartSpaceTitle.Font.Name="Arial"
o.ChartSpaceTitle.Font.Size=12
o.ChartSpaceTitle.Font.Underline=c.owcUnderlineStyleSingle

cht.HasLegend=True
cht.Legend.Font.Size=9
cht.Legend.Position=c.chLegendPositionBottom

cht.SetData c.chDimCategories, c.chDataLiteral, categories_
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_
set sc=o.Charts(0).SeriesCollection(0)
sc.Caption=Caption_
Set dl=cht.SeriesCollection(0).DataLabelsCollection.Add
dl.Separator=""
dl.HasValue=false
dl.HasSeriesName=false
dl.HasCategoryName=true
dl.HasPercentage=true
dl.Font.Size=9
dl.Font.Color="red"
dl.NumberFormat="00.00%"
end sub
'𾀈D
'chart_bgColor_LD^ӱɫ
'chartCaption_DĘ}
'chartCaption_fontColor_D}ɫ
public sub line(chart_bgColor_,chartCaption_,chartCaption_fontColor_,Caption_,categories_,values_)
o.Clear
Set cht=o.Charts.Add
Set c=o.Constants
cht.Type=c.chChartTypeLineMarkers
'oLD^ӱɫ
o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_
o.HasChartSpaceTitle=True
o.ChartSpaceTitle.Caption=chartCaption_
o.ChartSpaceTitle.Font.Color=chartCaption_fontColor_
o.ChartSpaceTitle.Font.Name="Arial"
o.ChartSpaceTitle.Font.Size=12
o.ChartSpaceTitle.Font.Underline=c.owcUnderlineStyleSingle

cht.SetData c.chDimCategories, c.chDataLiteral, categories_
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_

set sc=o.Charts(0).SeriesCollection(0)
sc.Caption=Caption_
Set dl=cht.SeriesCollection(0).DataLabelsCollection.Add
dl.HasValue=True
dl.HasPercentage=False
dl.Font.Size=9
dl.Font.Color="red"

Set categoryAxis=cht.Axes(c.chAxisPositionBottom)
categoryAxis.Font.Size=9

Set categoryAxis=cht.Axes(c.chAxisPositionLeft)
categoryAxis.Font.Size=9
end sub
'ϵв𾀈D
'chart_bgColor_Dıɫ
'chartCaption_DĘ}
'chartCaption_fontColor_D}ɫ
'color_ɫM
'caption_QM
'categories_QM
'values_ֵM
public sub serLine(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,SeriesNames_,categories_,values_)
o.Clear
Set cht=o.Charts.Add
Set c=o.Constants
'OÈD
cht.Type=c.chChartTypeLineMarkers
'oLD^ӱɫ
o.Charts(0).PlotArea.Interior.Color=chart_bgColor_
'Ϙ}
o.HasChartSpaceTitle=True
o.ChartSpaceTitle.Caption=chartCaption_
o.ChartSpaceTitle.Font.Color=chartCaption_fontColor_
o.ChartSpaceTitle.Font.Name="Arial"
o.ChartSpaceTitle.Font.Size=12
''Ӕ
cht.SetData c.chDimSeriesNames, c.chDataLiteral, SeriesNames_
cht.SetData c.chDimCategories, c.chDataLiteral, Categories_

set categoryAxis=cht.Axes(c.chAxisPositionBottom)
categoryAxis.Font.Size=9

Set categoryAxis=cht.Axes(c.chAxisPositionLeft)
categoryAxis.Font.Size=9

for i=0 to ubound(SeriesNames_)
valuetemp=""
for j=i*(ubound(Categories_)+1) to (i+1)*(ubound(Categories_)+1)-1
valuetemp=valuetemp & "," & values_(j)
next
valuearr=split(mid(valuetemp,2),",")
cht.SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr
cht.SeriesCollection(i).Line.Color=color_(i)
cht.SeriesCollection(i).Line.Weight=c.owcLineWeightThin
cht.SeriesCollection(i).Marker.Style=c.chMarkerStyleDiamond
cht.SeriesCollection(i).Interior.Color=color_(i)
Set dl=cht.SeriesCollection(i).DataLabelsCollection.Add
dl.HasValue=true
dl.HasPercentage=false
dl.Font.Size=9
dl.font.color="red"
next
end sub
'D
public sub clear()
o.Clear
end sub
end class
ܶ˲ⲻŵ绰͵

һɵűļװһϴĹ̵ַͨЩԽԼijú⣬ڸű֮乲ʹݣȵȡ

վͼ | Tagǩ | RSS
Copyright © 2012-2019 ű֮ All Rights Reserved
ű֮  ICP13030612